Mapas y Planos

Mapas, planos y distancias

Breves instrucciones de uso:

1- Si escribe la calle, ciudad y país tendrá más posibilidades de obtener resultados.

2- Utilice la lengua de cada país para las búsquedas o en su defecto el inglés.

3- Si el resultado de la búsqueda es negativo usted será avisado. Si no aparece el mensaje de aviso significa que el destino se ha encontrado pero puede que usted no pueda visualizarlo debido a la escala del mapa o plano. En éste caso debe modificar la escala con la herramienta de la izquierda.

4- Ejemplos de búsqueda: "Paris" (o "Paris, France"), "Berlin", "Luxor, Egypt", "Aswan, Egypt", "Louvre, Paris", "20 Rue de Rivoli, Paris, France", "Egypt" (mapa del país), "C/ Arcos 15, Sevilla, España" (dirección de la ASADE), etc.

Distancias entre El Cairo y otras ciudades

Ciudad

Kilómetros

Ciudad
Kilómetros

Alejandría (por el Delta)

225

Kom Ombo

835

Alejandría (por el Desierto)

221

Luxor

664

Aswan

880

Marsa Matrouh

490

Asyut

359

Minya

236

Barrages

25

Nuweiba

670

Belbeis

77

Oasis Bahariya

316

Beni Suef

123

Oasis Farafra

420

Damietta

191

Oasis Dakhla

690

Dahab

610

Oasis Kharga

586

Dikheila

212

Port Said

220

Edfu

775

Qaroun

153

Esna

719

Qena

622

El Sadat

95

Qusseir

684

El Tur

376

Safaga

601

Fayyum

103

Sharm el Sheikh

772

Fayed

157

Siwa

617

Gamasa

485

St. Catherine

392

Halayeb

1245

Suez

134

Hurghada

504

Taba

540

Ismailia

140

Tanta

94

Kafr el Sheikh

134

Zagazig

85

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

Suscríbase a la lista de correo sobre viajes a Egipto de ASADE-EgypTour

Haz de Egiptomania.com tu página de inicio

© Juan de la Torre Suárez

Todos los derechos reservados.