<% '================== '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 '================== url= "http://www.viajarjordania.com/xml/itinerarios.xml" Set objXML2 = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML2.async = False objXML2.setProperty "ServerHTTPRequest", True objXML2.Load(url) Set objItemListA = objXML2.getElementsByTagName("programas/codigo") Set objXML2 = Nothing N=0 For Each objItemA In objItemListA codigo = objItemA.childNodes(0).text If codigo = 11 Then titulo= objItemA.SelectSingleNode("titulo").text duracion= objItemA.SelectSingleNode("duracion").text salidas= objItemA.SelectSingleNode("salidas").text precio= objItemA.SelectSingleNode("precio").text tasas= objItemA.SelectSingleNode("tasas").text suplementos= objItemA.SelectSingleNode("suplementos").text foto= objItemA.SelectSingleNode("foto").text itinerario= objItemA.SelectSingleNode("itinerario").text incluye= objItemA.SelectSingleNode("incluye").text noincluye= objItemA.SelectSingleNode("noincluye").text cuadro= objItemA.SelectSingleNode("cuadro").text End if Next Set objItemListA = Nothing %> <% 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 | Oferta *<%=titulo%>* desde <%=precio%> Eur.
<%=GetHTML("http://www.viajarjordania.com/arriba.asp")%>
<%=titulo%>

<%=GetHTML("http://www.viajarjordania.com/izquierda.asp")%>
itemprop="url">

<%=titulo%>, desde <%=precio%> € + Tasas

<%=duracion%>

Salidas: <%=salidas%>

La puntuación de Viajes ASADE para el itinerario "<%=titulo%>" es de 4,9 sobre 5.


Distribución de las noches según el día de salida
Domingo Lunes Miércoles Jueves
2 Noches Tel Aviv 1 Noche Tel Aviv 4 Noches Jerusalén 3 Noches Jerusalen
2 Noches Galilea 2 Noches Galilea 2 Noches Galilea 2 Noches Galilea
3 Noches Jerusalén 4 Noches Jerusalén 1 Noche Tel Aviv 2 Noches Tel Aviv
Día libre en Tel Aviv Día libre en Jerusalén Día libre en Jerusalén Día libre en Tel Aviv

Itinerario de ejemplo con salida los lunes:

<%=itinerario%>

El Viaje Incluye

<%=incluye%>

No Incluye

<%=noincluye%>

No se incluyen las tasas, cuyo valor es de <%=tasas%> €/pax actualmente. <%=suplementos%>



<%=cuadro%>


<% Session("Tasas")=True Session("Personas")=True Session("Individual")=True FSalida=Request.Form("FechaSalida") Session("FSalida")=FSalida Personas = CDbl(Request.Form("Personas")) If Personas<2 Then Personas=2 Session("Personas")=Personas Individual = CDbl(Request.Form("Individual")) If Individual>Personas Then Individual=Personas If Individual=1 And Personas=2 Then Individual=0 Session("Individual")=Individual csalida= Request.Form("CSalida") Session("csalida")=csalida Categoria= Request.Form("Categoria") Session("Categoria")=Categoria '__________________________________________________ 'Datos personales: sRemite=Trim(CStr(Request.Form("De"))) Session("sRemite")=sRemite solicitante= CStr(Request.Form("Solicitante")) Session("solicitante")=solicitante nif= CStr(Request.Form("NIF")) Session("nif")=nif nombre= CStr(Request.Form("Nombre")) Session("nombre")=nombre direccion= CStr(Request.Form("Direccion")) Session("direccion")=direccion codigoP= CStr(Request.Form("CodigoPostal")) Session("codigoP")=codigoP direccion= CStr(Request.Form("Direccion")) Session("direccion")=direccion ciudadProv= CStr(Request.Form("Ciudad")) Session("ciudad")=ciudadProv telefono= CStr(Request.Form("Telefono")) Session("telefono")=telefono ASADE= CStr(Request.Form("ASADE")) %>

Formulario de solicitud del viaje - También puede llamar al (0034) 956 94 79 94

*Todos los campos son obligatorios para enviar el formulario (salvo los comentarios).

Fecha de salida:    Ciudad de salida: Categoría:

 Número total de personas (adultos + niños) que solicitan el viaje:  (para los niños añada información adicional en las observaciones del formulario)

Número total de personas que viajarán en individual:

Persona física o jurídica que solicita el viaje:

  

NIF/CIF:

Nombre y apellidos completos de todos los viajeros y, si es posible, nº de pasaporte (para niños añada fecha de nacimiento):

Dirección

Código postal

Ciudad y provincia de residencia

E-mail:

Teléfono de contacto (preferible fijo):

 El viaje debe pagarse por ingreso en la cuenta que le proporcionaremos. Por favor avísenos si no recibe el correo inmediatamente.

 Le recordamos que puede contratar aparte un Seguro de Cancelación del viaje. Vea también las Condiciones Generales del viaje.  Todo el contenido de esta página goza de carácter contractual, salvo error u omisión.

Por favor indique cualquier otro comentario que estime oportuno (campo no obligatorio):
Escriba la palabra ASADE para poder enviar el formulario:
<% enviar= CStr(Request.Form("Enviar")) Datospersonales = "FORMULARIO DE RESERVA DEL VIAJE SELECCIONADO" & VbCrLf Datospersonales=Datospersonales & "Solicitante: " & solicitante & VbCrLf Datospersonales=Datospersonales & "NIF/CIF: " & nif & VbCrLf Datospersonales=Datospersonales & "Nombre: " & nombre & VbCrLf Datospersonales=Datospersonales & direccion & VbCrLf Datospersonales=Datospersonales & codigoP & " - " & ciudadProv & VbCrLf Datospersonales=Datospersonales & "E-Mail: " & sRemite & VbCrLf Datospersonales=Datospersonales & "Teléfono: " & telefono & VbCrLf & VbCrLf Datospersonales=Datospersonales & "Comentario: " & CStr(Request.Form("Datos")) & VbCrLf & VbCrLf sBody=sBody & "Personas: " & personas & VbCrLf sBody=sBody & "En individual: " & Individual & VbCrLf sBody=sBody & "Categoría del viaje: " & Categoria & VbCrLf sBody=sBody & "Ciudad de salida: " & csalida & VbCrLf sBody=sBody & "Fecha de salida: " & FSalida & VbCrLf '__________________________________________________ ' Campos obligatorios: If HayVacio="" then For Each x In Request.Form If Request.Form(x) ="" and x<>"Datos" Then HayVacio="SI" End if Next End if IP=Request.ServerVariables("Remote_Addr") If HayVacio="" and enviar<>"" and ASADE="ASADE" and IP<>"91.237.249.69" and IP<>"91.201.64.25" and IP<>"146.0.73.230" and IP<>"146.0.73.231" and IP<>"91.226.212.44" and IP<>"109.230.216.60" and IP<>"109.230.216.225" then MandarMail End if if HayVacio="SI" and enviar<>"" then %>

ATENCIÓN: Debe rellenar todos los campos del formulario para poder enviarlo.


<% For Each x In Request.Form If Request.Form(x) ="" and x<>"Datos" Then Response.write "
El campo del formulario " & x & " está vacío.

" End if Next end if '======================================================================================== Sub MandarMail 'Creamos el objeto Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.viajarjordania.com" Mail.Username = "reservas@viajarjordania.com" Mail.Password = "001313juan" 'Para nosotros: Mail.AddAddress "presidente.asade@gmail.com" Mail.AddAddress "egiptomania@telefonica.net" Mail.AddAddress "info@tawytours.com" Mail.Subject="Viaje a Jordania: " & Titulo & ", desde la IP: " & IP Mail.From = "reservas@viajarjordania.com" Mail.Body=Datospersonales & VbCrLf & sBody Mail.Send Mail.Reset 'Para el comprador: Mail.Subject="Respuesta automática: Viaje a Jordania: " & Titulo Mail.From = "reservas@viajarjordania.com" Mail.AddAddress sRemite 'Texto para el comprador: sBody=sBody & VbCrLf itinerario = Replace(itinerario, "", "") itinerario = Replace(itinerario, "

", "") incluye = Replace(incluye, "
", "") noincluye = Replace(noincluye , "

", "") noincluye = Replace(noincluye , "

", "") sBody=sBody & "ITINERARIO:" & VbCrLf sBody=sBody & itinerario & VbCrLf sBody=sBody & "El Viaje Incluye:" & VbCrLf sBody=sBody & incluye & VbCrLf sBody=sBody & "El Viaje NO Incluye:" & VbCrLf sBody=sBody & noincluye & VbCrLf sBody=sBody & "Este correo contiene un texto automático generado según las opciones que usted ha elegido. Para comprar el viaje deberá ingresar el precio en una cuenta que le proporcionaremos tras ser confirmada su reserva." & VbCrLf & VbCrLf sBody=sBody & "El precio total definitivo y demás detalles se lo diremos por teléfono o e-mail, ya que el viaje puede sufrir modificaciones o las tasas pueden variar. Le recordamos que puede contratar un Seguro de Cancelación del viaje." & VbCrLf sBody=sBody & "Para realizar cualquier consulta llame al 956 94 79 94 y pregunte por Juan de la Torre." & VbCrLf sBody=sBody & VbCrLf & VbCrLf & "Reciba un cordial saludo, " & VbCrLf & VbCrLf sBody=sBody & "Juan de la Torre Suárez " & VbCrLf sBody=sBody & "Director de Viajes ASADE" Mail.Body=sBody Mail.Send Mail.Reset If Err <> 0 Then ' si hay un error que de una descripcion strErr = Err.Description Response.Write strErr Else Response.Write "

El formulario ha sido enviado correctamente.

" 'PARA CONTROL DE CONVERSIONES: %> <% End If Set Mail=nothing End Sub 'MandarMail %>


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