<%If Request.cookies("ADMIN")="SI" then%>
Version nueva
<%End If%> <% '****DEFINE RUTAPATH***** Dim ChEncontrados Dim Buscadesde Dim Siguebuscando Dim Rutax Dim RutaPath Dim RutaMDB Dim RutaURL RutaURL=Request.ServerVariables("URL") ChEncontrados=0 Buscadesde=0 Siguebuscando="y" Do While Siguebuscando="y" If Instr(Buscadesde+1,RutaURL,"/")>0 then Buscadesde=Instr(Buscadesde+1,RutaURL,"/") ChEncontrados=ChEncontrados+ 1 Else Siguebuscando="n" End If Loop For Rutax = 1 to ChEncontrados-1 RutaPath = RutaPath & "../" Next %> <% If Request("idAF")<>"" then Response.cookies("RefAF")=Request("idAF") End If If Request.cookies("RefAF")<>"" then response.write(Request.cookies("RefAF")) 'GUARDA EL REFERER, LP, Y CAMPAÑA DE PUBLICIDAD******************************************************* If NOT Instr(Request.ServerVariables("HTTP_REFERER"), "aragonesesviajes.com") > 0 then '***GURDA REFERER Response.cookies("REFERER") = Request.ServerVariables("HTTP_REFERER") '***GRABA UNA COOKIE CON LA LANDING PAGE LPSITE = Request.ServerVariables("URL") If Request.ServerVariables("QUERY_STRING") <> "" then LPSITE = LPSITE & "?" & Request.ServerVariables("QUERY_STRING") Response.cookies("LPSITE") = LPSITE '***GRABA UNA COOKIE SI EL VISITANTE ENTRO POR ALGUNA CAMPAÑA DE PUBLICIDAD******' If Request("src")<>"" then response.cookies("Publicidad")=Request("src") End If '***************************************************************************************************** 'SiteDown = true If SiteDown AND Request.Cookies("Admin")<>"SI" then Response.redirect "http://www.aragonesesviajes.com/index.html" End If %> <% If Request("AdminAccessCode")="X6X2S1S68ER1B3H8HTA3SD5R68" OR Instr(Request.ServerVariables("HTTP_REFERER"), "http://www.aragonesesviajes.com/administrador/") > 0 then Response.Cookies("Admin")="SI" Response.Cookies("Admin").expires=DateAdd("d",7,now()) Response.redirect "http://www.aragonesesviajes.com/" End If %> <% '****DEFINE QUE SERVICIOS SE VAN A MOSTRAR EN LA PAGINA***** ShowFligth=true ShowAssist=false ShowCrucero=false ShowCircuito=true ShowAsistencia=true Showexoticos=false Showcursos=false ShowSki=false ShowLinks=true 'se redefine mas abajo como true si el pais del visitante no es argentina. dbq=Server.MapPath(RutaPath & "cgi-bin/Agencia.mdb") Agencia = "driver={Microsoft Access Driver (*.mdb)}; dbq="&dbq Set BaseZ = Nothing Set TablaZ = Nothing Set BaseZ = Server.CreateObject("ADODB.Connection") Set TablaZ = Server.CreateObject("ADODB.Recordset") BaseZ.Open Agencia SQLZ = "SELECT * FROM CrucerosFechasSalidas WHERE Salida > #"&Date&"# ORDER BY Codigo" TablaZ.Open SQLZ, BaseZ, 3, 3 If NOT TablaZ.EOF then ShowCrucero=true TablaZ.Close BaseZ.Close Set TablaZ = Nothing Set BaseZ = Nothing '*********************************************************** If Session("Nueva")="SI" then Ayuda="SI" Else Ayuda="NO" End If Session("Ayuda")="" If (Ayuda="SI" OR Request.ServerVariables("URL")="/default.asp" OR Request.ServerVariables("URL")="/Comunidad/ListaCasamientoslogin.asp") AND Request("Test")="y" then 'Session("Ayuda")="newWindow('"&RutaPath&"ASP/Ayuda_Encuesta.asp','Atencion',150,300,'scrollbars=yes,resizable=no,status=no,toolbar=no,menubar=no');" Session("Ayuda")="" Else Session("Ayuda")="" End If Function Fechatexto(Fecha) If IsDate(Fecha) then Dia=Right("0"&Day(Fecha),2) Mes=Right("0"&Month(Fecha),2) Anio=Right(Year(Fecha),4) Fechatexto = Dia&"/"&Mes&"/"&Anio Else Fechatexto = Fecha End If End Function Function Mestexto(mesfecha) Select Case mesfecha Case "January" Mestexto="Enero" Case "February" Mestexto="Febrero" Case "March" Mestexto="Marzo" Case "April" Mestexto="Abril" Case "May" Mestexto="Mayo" Case "June" Mestexto="Junio" Case "July" Mestexto="Julio" Case "August" Mestexto="Agosto" Case "September" Mestexto="Septiembre" Case "October" Mestexto="Octubre" Case "November" Mestexto="Noviembre" Case "December" Mestexto="Diciembre" Case Else Mestexto= mesfecha End Select End Function Function Diasem(dia) Select Case dia Case "Sun" Diasem = "Dom" Case "Mon" Diasem = "Lun" Case "Tue" Diasem = "Mar" Case "Wed" Diasem = "Mie" Case "Thu" Diasem = "Jue" Case "Fri" Diasem = "Vie" Case "Sat" Diasem = "Sab" Case Else Diasem = dia End Select End Function function fechatxt() Dim Mestxt(12) Mestxt(0)="x" Mestxt(1)="Enero" Mestxt(2)="Febrero" Mestxt(3)="Marzo" Mestxt(4)="Abril" Mestxt(5)="Mayo" Mestxt(6)="Junio" Mestxt(7)="Julio" Mestxt(8)="Agosto" Mestxt(9)="Septiembre" Mestxt(10)="Octubre" Mestxt(11)="Noviembre" Mestxt(12)="Diciembre" Dim Diasemtxt(7) Diasemtxt(0)="x" Diasemtxt(1)="Domingo" Diasemtxt(2)="Lunes" Diasemtxt(3)="Martes" Diasemtxt(4)="Miércoles" Diasemtxt(5)="Jueves" Diasemtxt(6)="Viernes" Diasemtxt(7)="Sábado" fechatxt=Diasemtxt(Weekday(Date))&" "&Day(Date)&" de "&Mestxt(Month(Date))&" de "&Year(date) End Function Session("Ayuda")="" If (Ayuda="SI" OR Request.ServerVariables("URL")="/default.asp" OR Request.ServerVariables("URL")="/Comunidad/ListaCasamientoslogin.asp") AND Request("Test")="y" then Session("Ayuda")="SI" End If onMouseMove="onmousemove='ny=event.clientY + document.body.scrollTop; nx=event.clientX + document.body.scrollLeft;'" '486 191 '365 70 %>
<% 'Si no es el googlebot**************************************** AskCountry=True If Instr(IPUser,"66.249")<>1 AND Instr(IPUser,"216.239")<>1 AND AskCountry then If Request.Cookies("IP")("Country")<>"" then PaisIP=Request.Cookies("IP")("Country") Else URL=Split(Request.Servervariables("URL"),"/") For x=2 to Ubound(URL) CD = CD & "../" Next Set BaseGeo = Nothing Set TablaGeo = Nothing Set BaseGeo = Server.CreateObject("ADODB.Connection") Set TablaGeo = Server.CreateObject("ADODB.Recordset") IP1=Split(Request.Servervariables("REMOTE_ADDR"),".") IP=Right("00"&IP1(0),3) &"."& Right("00"&IP1(1),3) &"."& Right("00"&IP1(2),3) &"."& Right("00"&IP1(3),3) BaseIPs="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(CD&"cgi-bin/GeoIPCountry.mdb") BaseGeo.Open BaseIPs SQLGeo="SELECT DISTINCT Paises.Pais FROM Paises INNER JOIN RangosIP ON Paises.CodPais=RangosIP.CodPais WHERE RangoDesde<='"&IP&"' AND RangoHasta>='"&IP&"'" TablaGeo.Open SQLGeo, BaseGeo, 3, 3 If not TablaGeo.EOF then PaisIP=TablaGeo("Pais") End If TablaGeo.Close BaseGeo.Close Set TablaGeo = Nothing Set BaseGeo = Nothing End If If PaisIP<>"Argentina" OR Request.Cookies("Admin")="SI" then ShowLinks = true %> <%End If%><%End If%>
<% Dim prog %> <%If ShowSki then%> <%End If%> <%If ShowCrucero then%> <%End If%>
Pasajes aéreos en Oferta y vuelos regulares y especiales.

Pasajes aéreos en Oferta y vuelos regulares y especiales.

Vuelos

Pasajes aéreos en Oferta y vuelos regulares y especiales.

Hoteles

Paquetes vacacionales y a su medida!

 Paquetes

 Ski

Alquier de auto, rent a car, automoviles

 Autos

Cruceros, Cruises

Cruceros

  Mapa del sitio

   Inicio |  Contáctenos ¿no está en Argentina?

Buenos Aires, Argentina, <%=fechatxt()%>

 Parece que Ud. se encuentra en <%=PaisIP%>(It seems that you are in <%=PaisIP%> ). Es correcto? (Is this correct?) Si/yes No/No

 
<%If Request.cookies("ADMIN")="SI" then%>
Version nueva
<%End If%> <% '****DEFINE RUTAPATH***** Dim ChEncontrados Dim Buscadesde Dim Siguebuscando Dim Rutax Dim RutaPath Dim RutaMDB Dim RutaURL RutaURL=Request.ServerVariables("URL") ChEncontrados=0 Buscadesde=0 Siguebuscando="y" Do While Siguebuscando="y" If Instr(Buscadesde+1,RutaURL,"/")>0 then Buscadesde=Instr(Buscadesde+1,RutaURL,"/") ChEncontrados=ChEncontrados+ 1 Else Siguebuscando="n" End If Loop For Rutax = 1 to ChEncontrados-1 RutaPath = RutaPath & "../" Next %> <% If Request("idAF")<>"" then Response.cookies("RefAF")=Request("idAF") End If If Request.cookies("RefAF")<>"" then response.write(Request.cookies("RefAF")) 'GUARDA EL REFERER, LP, Y CAMPAÑA DE PUBLICIDAD******************************************************* If NOT Instr(Request.ServerVariables("HTTP_REFERER"), "aragonesesviajes.com") > 0 then '***GURDA REFERER Response.cookies("REFERER") = Request.ServerVariables("HTTP_REFERER") '***GRABA UNA COOKIE CON LA LANDING PAGE LPSITE = Request.ServerVariables("URL") If Request.ServerVariables("QUERY_STRING") <> "" then LPSITE = LPSITE & "?" & Request.ServerVariables("QUERY_STRING") Response.cookies("LPSITE") = LPSITE '***GRABA UNA COOKIE SI EL VISITANTE ENTRO POR ALGUNA CAMPAÑA DE PUBLICIDAD******' If Request("src")<>"" then response.cookies("Publicidad")=Request("src") End If '***************************************************************************************************** 'SiteDown = true If SiteDown AND Request.Cookies("Admin")<>"SI" then Response.redirect "http://www.aragonesesviajes.com/index.html" End If %> <% If Request("AdminAccessCode")="X6X2S1S68ER1B3H8HTA3SD5R68" OR Instr(Request.ServerVariables("HTTP_REFERER"), "http://www.aragonesesviajes.com/administrador/") > 0 then Response.Cookies("Admin")="SI" Response.Cookies("Admin").expires=DateAdd("d",7,now()) Response.redirect "http://www.aragonesesviajes.com/" End If %> <% '****DEFINE QUE SERVICIOS SE VAN A MOSTRAR EN LA PAGINA***** ShowFligth=true ShowAssist=false ShowCrucero=false ShowCircuito=true ShowAsistencia=true Showexoticos=false Showcursos=false ShowSki=false ShowLinks=true 'se redefine mas abajo como true si el pais del visitante no es argentina. dbq=Server.MapPath(RutaPath & "cgi-bin/Agencia.mdb") Agencia = "driver={Microsoft Access Driver (*.mdb)}; dbq="&dbq Set BaseZ = Nothing Set TablaZ = Nothing Set BaseZ = Server.CreateObject("ADODB.Connection") Set TablaZ = Server.CreateObject("ADODB.Recordset") BaseZ.Open Agencia SQLZ = "SELECT * FROM CrucerosFechasSalidas WHERE Salida > #"&Date&"# ORDER BY Codigo" TablaZ.Open SQLZ, BaseZ, 3, 3 If NOT TablaZ.EOF then ShowCrucero=true TablaZ.Close BaseZ.Close Set TablaZ = Nothing Set BaseZ = Nothing '*********************************************************** If Session("Nueva")="SI" then Ayuda="SI" Else Ayuda="NO" End If Session("Ayuda")="" If (Ayuda="SI" OR Request.ServerVariables("URL")="/default.asp" OR Request.ServerVariables("URL")="/Comunidad/ListaCasamientoslogin.asp") AND Request("Test")="y" then 'Session("Ayuda")="newWindow('"&RutaPath&"ASP/Ayuda_Encuesta.asp','Atencion',150,300,'scrollbars=yes,resizable=no,status=no,toolbar=no,menubar=no');" Session("Ayuda")="" Else Session("Ayuda")="" End If Function Fechatexto(Fecha) If IsDate(Fecha) then Dia=Right("0"&Day(Fecha),2) Mes=Right("0"&Month(Fecha),2) Anio=Right(Year(Fecha),4) Fechatexto = Dia&"/"&Mes&"/"&Anio Else Fechatexto = Fecha End If End Function Function Mestexto(mesfecha) Select Case mesfecha Case "January" Mestexto="Enero" Case "February" Mestexto="Febrero" Case "March" Mestexto="Marzo" Case "April" Mestexto="Abril" Case "May" Mestexto="Mayo" Case "June" Mestexto="Junio" Case "July" Mestexto="Julio" Case "August" Mestexto="Agosto" Case "September" Mestexto="Septiembre" Case "October" Mestexto="Octubre" Case "November" Mestexto="Noviembre" Case "December" Mestexto="Diciembre" Case Else Mestexto= mesfecha End Select End Function Function Diasem(dia) Select Case dia Case "Sun" Diasem = "Dom" Case "Mon" Diasem = "Lun" Case "Tue" Diasem = "Mar" Case "Wed" Diasem = "Mie" Case "Thu" Diasem = "Jue" Case "Fri" Diasem = "Vie" Case "Sat" Diasem = "Sab" Case Else Diasem = dia End Select End Function function fechatxt() Dim Mestxt(12) Mestxt(0)="x" Mestxt(1)="Enero" Mestxt(2)="Febrero" Mestxt(3)="Marzo" Mestxt(4)="Abril" Mestxt(5)="Mayo" Mestxt(6)="Junio" Mestxt(7)="Julio" Mestxt(8)="Agosto" Mestxt(9)="Septiembre" Mestxt(10)="Octubre" Mestxt(11)="Noviembre" Mestxt(12)="Diciembre" Dim Diasemtxt(7) Diasemtxt(0)="x" Diasemtxt(1)="Domingo" Diasemtxt(2)="Lunes" Diasemtxt(3)="Martes" Diasemtxt(4)="Miércoles" Diasemtxt(5)="Jueves" Diasemtxt(6)="Viernes" Diasemtxt(7)="Sábado" fechatxt=Diasemtxt(Weekday(Date))&" "&Day(Date)&" de "&Mestxt(Month(Date))&" de "&Year(date) End Function Session("Ayuda")="" If (Ayuda="SI" OR Request.ServerVariables("URL")="/default.asp" OR Request.ServerVariables("URL")="/Comunidad/ListaCasamientoslogin.asp") AND Request("Test")="y" then Session("Ayuda")="SI" End If onMouseMove="onmousemove='ny=event.clientY + document.body.scrollTop; nx=event.clientX + document.body.scrollLeft;'" '486 191 '365 70 %>
<% 'Si no es el googlebot**************************************** AskCountry=True If Instr(IPUser,"66.249")<>1 AND Instr(IPUser,"216.239")<>1 AND AskCountry then If Request.Cookies("IP")("Country")<>"" then PaisIP=Request.Cookies("IP")("Country") Else URL=Split(Request.Servervariables("URL"),"/") For x=2 to Ubound(URL) CD = CD & "../" Next Set BaseGeo = Nothing Set TablaGeo = Nothing Set BaseGeo = Server.CreateObject("ADODB.Connection") Set TablaGeo = Server.CreateObject("ADODB.Recordset") IP1=Split(Request.Servervariables("REMOTE_ADDR"),".") IP=Right("00"&IP1(0),3) &"."& Right("00"&IP1(1),3) &"."& Right("00"&IP1(2),3) &"."& Right("00"&IP1(3),3) BaseIPs="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(CD&"cgi-bin/GeoIPCountry.mdb") BaseGeo.Open BaseIPs SQLGeo="SELECT DISTINCT Paises.Pais FROM Paises INNER JOIN RangosIP ON Paises.CodPais=RangosIP.CodPais WHERE RangoDesde<='"&IP&"' AND RangoHasta>='"&IP&"'" TablaGeo.Open SQLGeo, BaseGeo, 3, 3 If not TablaGeo.EOF then PaisIP=TablaGeo("Pais") End If TablaGeo.Close BaseGeo.Close Set TablaGeo = Nothing Set BaseGeo = Nothing End If If PaisIP<>"Argentina" OR Request.Cookies("Admin")="SI" then ShowLinks = true %> <%End If%><%End If%>
<% Dim prog %> <%If ShowSki then%> <%End If%> <%If ShowCrucero then%> <%End If%>
Pasajes aéreos en Oferta y vuelos regulares y especiales.

Pasajes aéreos en Oferta y vuelos regulares y especiales.

Vuelos

Pasajes aéreos en Oferta y vuelos regulares y especiales.

Hoteles

Paquetes vacacionales y a su medida!

 Paquetes

 Ski

Alquier de auto, rent a car, automoviles

 Autos

Cruceros, Cruises

Cruceros

  Mapa del sitio

   Inicio |  Contáctenos ¿no está en Argentina?

Buenos Aires, Argentina, <%=fechatxt()%>

 Parece que Ud. se encuentra en <%=PaisIP%>(It seems that you are in <%=PaisIP%> ). Es correcto? (Is this correct?) Si/yes No/No

 

Indice de Cuba

Indice de Republica Dominicana