|
|
|
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Function googleScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
if IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
end If
resArray = Split(screenRes, delimiter, 2)
if (UBound(resArray) + 1) = 2 Then
googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
end If
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text_image" &_
"&channel=" &_
"&client=ca-mb-pub-2309394272977410" &_
"&color_border=" & googleColor("555555", googleTime) &_
"&color_bg=" & googleColor("FFFFCC", googleTime) &_
"&color_link=" & googleColor("0000CC", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("008000", googleTime) &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=utf8" &_
"&output=xhtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_
googleScreenRes()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%>
|
|
|
Cumpliendo la LOPD
|
 |
|
Location: Blogs Blog javiteranPersonal javiteran |
 |
| Posted by: Javier Terán González |
martes, 05 de mayo de 2009 21:32 |
Je,je. Según al LOPD (Ley Orgánica de Protección de Datos) y seguro que varias leyes mas está prohibido sin el consentimiento de los padres publicar fotos de niños menores de 14 años.
Pero bueno, voy a hacer una excepción e inclumplir la ley.
 
No me digáis que no merecen la pena.
Sobre todo por el montón de detalles que se pueden apreciar en la foto de los cambios que ha habido (quitando los obvios de los protagonistas de la foto).
-Mi calle en tierra
-La cuadra de Ento y Fina
-Hierba por todas partes
-El huerto de delante de la casa de Ento y Fina
-La cuadra de mi abuelo donde hoy hay tres plantas donde vive mi tío Angel Carlos, Merce y familia.
-Incluso otra cuadra de mi abuelo donde poníamos la leña y que hoy es una gran casa de Julia y Chucho.
Es de observar que se llevaban las patas anchas en los pantalones
¿Y lo mono que va pablo con su cazadora vaquera en la Rabasa Derby verde de la época?
¿Agus va con chirucas y el pantalón por la rodilla?...je,je..
Y por si nadie conoce al del triciclo es mi primo Ramón....(que guapo Pablo también con su pantalón de rayas y catiuscas)
Venga. Seguro que hay muchos mas detalles, pero los dejo para vosotros.
Un saludo. |
|
| Permalink |
Trackback |
Comments (6)
Add Comment
|
Re: Cumpliendo la LOPD |
By Ramón on
domingo, 10 de mayo de 2009 1:24 |
| Si es que, ya prometiamos todos nosotros... |
|
|
Re: Cumpliendo la LOPD |
By javiteran on
domingo, 10 de mayo de 2009 18:50 |
je.... y tu con un triciclo de montaña.
Eras ya un hombrecito. ;-) |
|
|
Re: Cumpliendo la LOPD |
By Soni on
lunes, 11 de mayo de 2009 15:34 |
| A juzgar por las katiuscas de Pablo había llovido ¿Sabeís lo que hecho en falta? El caminito que hacía siempre güeli para que el agua del canalón llegase hasta el desagüe de la esquina de la cuadra de Ento y Fina. |
|
|
Re: Cumpliendo la LOPD |
By Pablo on
lunes, 11 de mayo de 2009 19:08 |
| Ya veo que la foto de abajo ha marcado tendencia. Yo con casi melena y Mon con el pelo moreno. Si no nos reconocemos ni nosotros. La verdad es nos trae buenos recuerdos y no nos crea ningún trauma. Gracias Javi, sigue indagando en el pasado a ver que encuentras. |
|
|
Re: Cumpliendo la LOPD |
By Jose Ramon (temblad, que ya llego !!!) on
domingo, 17 de mayo de 2009 12:24 |
| Esta generación de videoconsolas y tecnoadictos no sabrá lo que se ha perdido..........con que poco se puede ser tan feliz !!! Pablo, eres un chupacámara |
|
|
Re: Cumpliendo la LOPD |
By Tu primo on
martes, 26 de mayo de 2009 16:43 |
| Detras de la foto se ve un brazo, de quien es? Si tiene alguna otra foto del momento, ponla, majo |
|
|
|
|
|
|
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text" &_
"&channel=" &_
"&client=ca-mb-pub-2309394272977410" &_
"&color_border=" & googleColor("555555", googleTime) &_
"&color_bg=" & googleColor("FFFFCC", googleTime) &_
"&color_link=" & googleColor("0000CC", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("008000", googleTime) &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=chtml" &_
"&output=chtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%>
|
|
|
|
|
|