<%
MyYear = Year(Now)
dim mes(12)
mes(1) = "Jan"
mes(2) = "Feb"
mes(3) = "Mar"
mes(4) = "Apr"
mes(5) = "May"
mes(6) = "Jun"
mes(7) = "Jul"
mes(8) = "Aug"
mes(9) = "Sep"
mes(10) = "Oct"
mes(11) = "Nov"
mes(12) = "Dec"
Delta = 1
Dim Hab(3)
Hab(1) = "Single"
Hab(2) = "Double"
Hab(3) = "Triple"
Lang = Request.QueryString("Lang")
If Lang = "es" THEN
Delta = 0
mes(1) = "Ene"
mes(4) = "Abr"
mes(8) = "Ago"
mes(12) = "Dic"
END IF
TFecha = "Insert a valid date."
Tcheck = "I`m booking hotel or car in this site too."
TDesde = "From (Date)"
THasta = "To (Date)"
If Lang = "es" THEN
TFecha = "Fecha no válida"
Tcheck = "Estoy reservando hotel o auto en este sitio también."
TDesde = "Desde (Fecha)"
THasta = "Hasta (Fecha)"
End If
Calcular = Request.QueryString("Calcular")
%>
<% IF Calcular <> "True" Then %>
<%
Else
Dim original
original = SetLocale("en-us")
Descuento = Request.QueryString("Descuento")
DD = Request.QueryString("DD")
DM = Request.QueryString("DM")
DA = Request.QueryString("DA")
HD = Request.QueryString("HD")
HM = Request.QueryString("HM")
HA = Request.QueryString("HA")
Desde = mes(DM) + " " + DD + ", " + DA
Hasta = mes(HM) + " " + HD + ", " + HA
Ttitulo = "Mobile Phone Rental"
Ttarjeta = "You don`t need to send your credit card info in order to make a mobile phone reservation with us."
If Lang = "es" THEN
original = SetLocale("es-cl")
Desde = DD + " " + mes(DM) + ", " + DA
Hasta = HD + " " + mes(HM) + ", " + HA
Ttitulo = "Arriendo de teléfono celular"
Ttarjeta = "Usted no tiene que enviarnos los datos de su tarjeta de crédito para hacer una reserva con nosotros."
END IF
Dias = DateDiff("d", Desde, Hasta)
If Descuento = "True" Then
Total = Dias * 0.9
Tipo = "Celular"
Else
Total = Dias * 1.9
TTarjeta = ""
Tipo = "Celular sólo"
End If
format1 = "
"
format2 = "
"
tab1 = "
"
tab2 = "
"
cel1 = "
"
cel2 = "
"
cel3 = "
"
Texthtm = ""
Texthtm = Texthtm + tab1 + "
"
If Lang = "es" Then
Text1 = Cstr(Dias) + " días de arriendo de teléfono celular"
Else
Text1 = Cstr(Dias) + " days of mobile phone rental"
End If
Texttot = "Total"
if Lang = "es" Then
Texthtm = Texthtm + "Desde : " & Desde + " "
Texthtm = Texthtm + "Hasta : " & Hasta
Else
Texthtm = Texthtm + "From : " & Desde + " "
Texthtm = Texthtm + "To : " & Hasta
End If
Texthtm = Texthtm + "
