Ejemplos de itinerarios de viajes a Egipto que se pueden diseñar en ViajEgipto.com (telf. 956 94 79 94)

Día 1 - Viernes - 02/11/2012: [El Cairo] Vuelo regular de Egyptair (incluye comida). Llegada al aeropuerto de El Cairo, con vuelo directo, el Viernes desde Madrid. Traslado al hotel seleccionado en régimen de alojamiento y sólo desayuno.

Día 2 - Sábado - 03/11/2012: [El Cairo] Desayuno y visita a las pirámides de Guiza, la Gran Esfinge y el templo del valle del rey Kefren, Dashur (incluye entrada a Pirámide Roja), Menfis y Sakkara. Incluye almuerzo (bebidas no incluidas) en restaurante local. Alojamiento en el hotel.

Día 3 - Domingo - 04/11/2012: [El Cairo] Desayuno y el día completo en El Cairo con almuerzo (sin bebidas) y visitas al Museo Egipcio, la Ciudadela de Saladino, Mezquita de Alabastro, Barrio Copto y Mercado de Jan el Jalili. Alojamiento en el hotel.

Día 4 - Lunes - 05/11/2012: [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.

 Visite nuestras últimas novedades:

<% Set objXML2 = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML2.async = False objXML2.setProperty "ServerHTTPRequest", True objXML2.Load("http://www.viajesegipto.eu/rss.xml") Set objItemListA = objXML2.getElementsByTagName("item") Set objXML2 = Nothing For Each objItemA In objItemListA ' Nodos: 0=Título, 3=link, 2=Descripción Limite2=Limite2+1 If Limite2<=5 Then strHTML2 = strHTML2 & " " strHTML2 = strHTML2 & "" & objItemA.childNodes(0).text & vbCrLf strHTML2 = strHTML2 & "
" End if Next Set objItemListA = Nothing Response.Write strHTML2 strHTML2="" %>

<% 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 %>