<% vardireccion = Request.ServerVariables("SERVER_NAME") If vardireccion = "viajarjordania.com" Then Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://www.viajarjordania.com/" End If '================== 'Leer página sin problema de tildes '================== Function GetHTML(strURL) Dim objXMLHTTP, strReturn, strHTML Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.setRequestHeader "Accept-Language", "sp" objXMLHTTP.setRequestHeader "Pragma", "no-cache" objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXMLHTTP.SetRequestHeader "Content-Type", "text/html" objXMLHTTP.SetRequestHeader "charset", "iso-8859-1" objXMLHTTP.Send if objXMLHTTP.statusText="OK" then body8209 = objXMLHTTP.responseBody GetHTML = "" For i = 0 to UBound(body8209) GetHTML = GetHTML & chrw(ascw(chr(ascb(midb(body8209,i+1,1))))) Next else Response.write "Error en página:" & objXMLHTTP.statustext end if Set objXMLHTTP = Nothing End Function '================== %> <% If InStr(Request.ServerVariables("SERVER_NAME"),"www") = 0 Then Response.Status="301 Moved Permanently" Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") End if %> ViajarJordania.com | Lugares para visitar en Jordania e Israel (Jerusalén) " > " >
<%=GetHTML("http://www.viajarjordania.com/arriba.asp")%>

Lugares para visitar en Jordania




Petra y el reino de los Nabateos




Ammán

Amman es la capital de Jordania y tiene una población de más de dos millones habitantes, que suelen ser muy amables. Constituye una base ideal para explorar el país y tiene algunos elementos de interés para el viajero:
...




Petra

...



Jerash

...



Ajloun

...



Madaba

...



Wadi Rum

...



Mar Muerto

...



Karak

...



Áqaba

...



Castillos del Desierto

...



...

Seguimos añadiendo videos, fotografías y textos sobre los principales lugares para visitar en Jordania...


<%=GetHTML("http://www.viajarjordania.com/pie.asp")%>
<%=GetHTML("http://www.egiptomania.com/red-viajes.asp")%>