<%@ LANGUAGE="VBSCRIPT"%> <% Response.Buffer = True %> <% Function TraeVar( Var, Update_Interval, Fun ) dim d, strLastUpdate strLastUpdate = Application( Var & "LU") if isnull(strLastUpdate) or (Update_Interval < DateDiff("s", strLastUpdate, Now)) then d = Fun Application.Lock Application( Var ) = d Application( Var & "LU" ) = cstr(Now) Application.Unlock ' response.write "Leyo" else d = Application( Var ) ' response.write "No Leyo" end if TraeVar = d end function Function HaceListaFotos() dim dbc, rs, sql, m Set dbc = Server.CreateObject("ADODB.Connection") dbc.Open "DSN=fotos" Set rs = Server.CreateObject ("adodb.Recordset") rs.Open "Select Foto,Votos,Votantes from Fotos where genero='" & genero & "'", dbc, 1, 1 if rs.recordcount > 0 then HaceListaFotos = rs.getrows() else redim m(0,0,0) HaceListaFotos = m end if rs.close Set rs = nothing Dbc.close Set Dbc = nothing end function dim imagen, votos, votantes, porcentage, genero, listafotos, cfotos, x imagen=request("imagen") genero = "F" if trim(imagen) = "" then r = "ListaFotos" & genero listafotos = TraeVar( r , 0, HaceListaFotos ) if not isnull(listafotos) and not isempty(listafotos) then cfotos = ubound(listafotos,2) if cfotos > 0 then Randomize() x = cint (cfotos * Rnd) imagen = lcase(listafotos(0,x)) votos = listafotos(1,x) votantes = listafotos(2,x) if votantes <> 0 then porcentage = votos / votantes else porcentage = 1 end if else imagen = "" votos = 0 votantes = 0 porcentage = 0 end if end if end if %> Postales de Mujeres cachondas! Hermosas chicas en Bikini, Famosas y más!
Relativo.com - Dejate sorprender!
Novedades: -
[an error occurred while processing this directive]

 

Enviame a un amigo como postal! - TOP 30    

Presiona AQUI para ver otra foto

<%if imagen <> "" then %> <%else%> No hay imagen <%end if%>


Presiona AQUI para ver otra foto - TOP 30


Enviame a un amigo como postal!

Tu nombre  

Tu dirección de email  

El nombre de tu amigo  

El email de tu amigo  


El Mensaje para tu amigo  


Todas las imagenes aquí expuestas son obtenidas de páginas no comerciales, por lo tanto se consideran de libre distribución, si por el contrario usted encuentra alguna imagen que tenga algun tipo de copyright por favor notificarnoslo a info@relativo.com para retirarla lo más rápido posible.

All images that appear in this site are from non-comercal web pages and are considered public-domain. If you find any copyrighted image please notify it to info@relativo.com for inmediate deletion.
Relativo


Recomiendanos -  Sorprende a tus amigos!  -  Encuentros!  -  Tarjetas virtuales! 

Humor Gr�fico  -  Animaciones Divertidas!  -  Env�a Poes�as!  -  Env�a Chistes!

Documento sin título
   | Juegos Juegos   | Grandes Juegos    | PortalJuegosGratis    | Flasheados   | Bromas Aparte    | Humor Butanero     | 1oyo.com    | CanalMax    | Mal Gusto   | Noticias Actuales   | Pica Pong
Tu sitio
AQUI!

             

[an error occurred while processing this directive] Se enviaron: <%=contador("maemail_postales" , 0)%> postales, <%=contador("maemail_poesias", 0)%> poesías, <%=contador("maemail_chistesl", 0)%> chistes, <%=(contador("Mensaje01", 0) + contador("Mensaje04", 0) + contador("Mensaje05", 0) + contador("Mensaje06", 0) + contador("Mensaje07", 0) + contador("Mensaje08", 0))%> Lazos, <%=contador("maemail_chistes", 0)%> chistes gráficos, <%=contador("maemail_chicos", 0)%> chicos , <%=contador("maemail_chicas", 0)%> chicas, <%=(contador("Mensaje12", 0) + contador("Mensaje14", 0) + contador("Mensaje15", 0))%> juegos, animaciones, y videos y <%=contador("Mensaje10", 0)%> recomendaciones

Este sitio se visualiza mejor con una resolución de 1024x768 pixels