<% 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") %>
" Texthtm = "" Texthtm = Texthtm + tab1 + "" + tab2 + "
" Texthtm = Texthtm + tab1 + cel1 Texthtm = Texthtm + Text1 Texthtm = Texthtm + cel2 Texthtm = Texthtm + "US$ " + Cstr(Total) Texthtm = Texthtm + cel3 Texthtm = Texthtm & "
<% 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 = "
" 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 + "
" Texthtm = Texthtm & Texttot Texthtm = Texthtm & "
" Texthtm = Texthtm & "US$ " + Cstr(Total) Texthtm = Texthtm & cel3 Texthtm = Texthtm & tab2 Textmail = Textmail + "Desde : " & Desde + vbCr Textmail = Textmail + "Hasta : " & Hasta + vbCr Textmail = Textmail + "Total : US$ " + Cstr(Total) %>
<%=Ttitulo%>

<% Response.write Texthtm %>

<%=Ttarjeta%>
<% End If %>

<%=TDesde%>
<%=THasta%>

<%=Tcheck%>