|
|
|
<%
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)
%>
|
|
|
Ruente en Invierno y Primavera
|
 |
|
Location: Blogs Blog javiteranPersonal javiteran |
 |
| Posted by: Javier Terán González |
miércoles, 08 de octubre de 2008 9:59 |
Me envía mi hermano Pablo dos fotos de Ruente tomadas desde el mismo sitio y espectaculares por su belleza.
Una será en la primavera por lo verde que está todo y la otra obviamente en invierno por la pedazo de nevada que tenía todo el valle.
Disfrutar del paisaje.
Ehh, todavía no estaba soterrada la electricidad ni siquiera empezada la casa de mi otro hermano, pero debía estar a punto.
Je. Y a mi madre no le van a gustar las fotos, el portal no tiene flores. Eso sí, está mi abuela en la foto de la primavera.
|
|
| Permalink |
Trackback |
Comments (2)
Add Comment
|
Re: Ruente en Invierno y Primavera |
By zipi on
domingo, 12 de octubre de 2008 16:42 |
| la verdad que ruente,para mi,el mejor pueblo con diferencia,y mas si lo añadieran a la lista de los pueblos mas bonitos.han estado esta semana unos señores muy aseñorados cerciorandose de si ruente podria entrar en esa lista.al menos es lo que tengo entendido.estuvieron mirandolo bastante,no se en que acabara la cosa.por cierto,las fotos guapisimas,me gusta la nevada,porque ya casi no se ven fotos asi de ruente.mas fotos,plis. |
|
|
Re: Ruente en Invierno y Primavera |
By eva on
sábado, 18 de octubre de 2008 18:09 |
| dile a Pablo que son unas fotos preciosas |
|
|
|
|
|
|
<%
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)
%>
|
|
|
|
|
|