|
|
|
<%
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)
%>
|
|
|
Personal javiteran
|
 |
|
|
Author: |
Javier Terán González |
Created: |
jueves, 29 de marzo de 2007 9:18 |
 |
|
Mis comentarios personales y experiencias y curiosidades que pasan en mi vida |
|
20111101. La Fuentona de Ruente se secó. |
|
|
By Javier Terán González on
miércoles, 02 de noviembre de 2011 9:39
|
|
|
Buenos días.
De nuevo se ha secado la Fuentona de Ruente.
Ayer 1 de noviembre de 2011 y día de todos los santos a las 6 de la mañana se ha secado hasta las 11 de la mañana en la que ya manaba con mas o menos normalidad
Para mi ha sido un caso un poco raro. Normalmente yo he visto secarse totalmente a la Fuentona pero en este caso no ha sido así.
Se ha secado casi todo el río menos el "OJO", allí el nivel del agua bajaba y de repente subía un poco ...al rato volvía a bajar y al rato volvía a subir el nivel y parecía que iba a brotar con normalidad.
Esto lo repitió al menos 5 veces en lo que yo estuve allí, así que teníamos piedras como las de la foto como refe ...
|
 |
|
Comments (2)
|
More...
|
|
|
Grandes Fiestas de la Magdalena en Ruente. 2011. Picayos |
|
|
By Javier Terán González on
martes, 09 de agosto de 2011 18:14
|
|
|
Este año se ha vuelto a recuperar el tradicional baile de Picayos de Ruente por parte de los niños del pueblo.
Creo que la última vez que lo bailaron/cantaron los chavales del pueblo fue en el año 1997.
La tradición no se había perdido del todo por que en el año 2007 las mujeres del pueblo también lo hicieron.Picayos 2007
A continuación pongo un par de videos de los miles que se hicieron en esa actuación tan bonita.
Daba gusto ver a las niñas del pueblo tan pequeñas tocar y cantar la pandereta con ese entusiasmo y a los niños con los brazos arriba tocando las castañuelas y bailando.
¡¡Fue muy emocionante!!
| | | | | |