|
Día 1 - Lunes -
19/09/2011: [Crucero Nilo en Lúxor] Vuelo regular de Egyptair (incluye
comida). Llegada al aeropuerto de Lúxor, vía El Cairo, el Lunes desde
Madrid. Traslado al crucero, embarque. Cena y noche a bordo. Alojamiento
con pensión completa.
Día 2 - Martes - 20/09/2011: [Crucero Nilo] Pensión completa a bordo.
Desayuno y visitas al Valle de los Reyes y los Colosos de Memnon. Comida
en el crucero y por la tarde visita a los templos de Karnak y de Lúxor
(si el día anterior hay tiempo estas últimas visitas se pueden
anticipar). Cena, noche a bordo y navegación.
Día 3 - Miércoles - 21/09/2011: [Crucero Nilo] Pensión completa a bordo.
Desayuno y al llegar a Edfu, visita del templo de Edfu. Paso por la
esclusa de Esna y navegación hacia Kom Ombo. Visita del templo de Kom
Ombo. Navegación, cena y noche a bordo.
Día 4 - Jueves - 22/09/2011: [Crucero Nilo] Pensión completa a bordo.
Desayuno y por la mañana visitaremos en Asuán el Obelisco Inacabado
(cantera de granito), la Gran Presa y por la tarde paseo en faluca.
Día 5 - Viernes - 23/09/2011: [Fin Crucero Nilo] Desayuno y desembarque.
Traslado al aeropuerto para tomar el avión a El Cairo. Llegada,
asistencia, traslado al hotel seleccionado y resto del día libre.
Alojamiento en el hotel.
Día 6 - Sábado - 24/09/2011: [El Cairo] Desayuno y visita a las
pirámides de Guiza, la Gran Esfinge y el templo del valle del rey Kefren.
Almuerzo incluido en restaurante local (sin bebidas) y visita al Museo
Egipcio de El Cairo. Alojamiento en el hotel. Alojamiento en el hotel.
Día 7 - Domingo - 25/09/2011: Desayuno y día extra libre. Alojamiento en
el hotel.
Día 8 - Lunes - 26/09/2011: [Regreso] Desayuno y a la hora convenida
traslado al aeropuerto para tomar vuelo de regreso a España (vía Cairo).
Facturación, embarque y FIN DEL VIAJE.
|
|
<%
URL = "http://www.egiptomania.com/red-viajes.asp"
HTML = GetHTML(URL)
Response.Write HTML
'==================
'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
%>

|