|
|
|
<%
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)
%>
|
|
|
El tiempo en Cantabria
|
 |
|
Location: Blogs Blog javiteran |
 |
| Posted by: Javier Terán González |
martes, 14 de abril de 2009 21:17 |
Siempre que llega la Semana Santa en Cantabria hace "MALISIMO" según todas las agencias de metereología y todos los telediarios.
Eso limita mucho el que vengan los turistas. Pero aún así nunca dejan de venir.
Las televisiones y la Agencia Estatal de Metereología deberían hacer un parte muy, muy especial para Cantabria y así aumentarían sus aciertos.
Si es cierto que ha hecho días malos, pero también ha hecho días gloriosos. El Jueves Santo hizo muy bueno, el viernes ,sabado ha llovido bastante pero llegó el domingo y ha vuelto a hacer bueno (que se lo digan a mi hermano que se ha pasado todo el día haciendo la pared esterior de su casa sin que caiga una sólo gota de agua).
El domingo por la noche estaba viendo la televisión para ver el tiempo y en una cadena ya era el colmo de la ignorancia o de la caradura. El símbolo de cantabria era una nube negra con mucho agua cayendo y también un sol, así es imposible fallar, o sol o lluvia.
Aún con ese parte me acerqué a esquiar a la estación de esquí de Cantabria Alto Campoo. 13 de abril de 2009 y me encontré con un día impresionante y 4 personas en la estación. Vamos, un paraiso.
Como había poca gente grabé un video haciendo unas bajaditas por las pistas fáciles (tampoco era cuestión de grabar la tortuga y romper la cámara).
Así que no hagáis siempre caso a lo que os dicen. A veces no es verdad. Sobre todo con el viempo sur en Cantabria.
Un saludo. |
|
| Permalink |
Trackback |
|
|
|
|
|
<%
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)
%>
|
|
|
|
|
|