TARIFAS Y RESERVAS


 
Nombre

E-mail
Mail

<%if ( Request.QueryString("m") = 2 ) then %> Los datos se enviaron correctamente <% end if if ( Request.QueryString("m") = 1 ) then %> Error al enviar la consulta <%end if%>

<% Dim vConn dim oRsv, orsv1 set oRsv = Server.CreateObject("ADODB.Recordset") set orsv1 = Server.CreateObject("ADODB.Recordset") Dim str set vConnV = getDbConnectionWeb str = sTarifasDisponiblesHoyMultiple1() set oRsv1= vConnV.execute(str) dim titulo, descripcion, incluye titulo = "" do while not oRsv1.eof idTarifa = oRsv1 ("idTipoTarifa") descripcion = oRsv1("incluye") titulo = oRsv1("titulo") %> <% str = sTarifaSubTarifaWeb(idTarifa, 2 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 3 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then %> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 4 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 5 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 6 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 7 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 8 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 9 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 10 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if str = sTarifaSubTarifaWeb(idTarifa, 11 ) set oRsv = vConnV.execute(str) if not orsv.eof then if trim(orsv("tar0"))<> "" then%> <% end if end if %>
<%response.Write(titulo)%> <%response.Write trim(orsv1("titulo1"))%> <%response.Write trim(orsv1("titulo2"))%> <%response.Write trim(orsv1("titulo3"))%>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>
<%response.Write trim(orsv("tar0")) %> <%response.Write trim(orsv("tar1")) %> <%response.Write trim(orsv("tar2")) %> <%response.Write trim(orsv("tar3")) %>

<%response.Write(descripcion)%>


<%orsv1.movenext loop %>