Nuestra Señora de la Asunción | Transporte de Pasajeros y Cargas

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Ciudades__MMColParam Ciudades__MMColParam = "10" If (Request("MM_EmptyValue") <> "") Then Ciudades__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ciudades Dim Ciudades_numRows Set Ciudades = Server.CreateObject("ADODB.Recordset") Ciudades.ActiveConnection = MM_NSACnx_STRING Ciudades.Source = "SELECT * FROM Ciudad WHERE Tipo = '" & "O" & "' ORDER BY Ciudad ASC" Ciudades.CursorType = 0 Ciudades.CursorLocation = 2 Ciudades.LockType = 1 Ciudades.Open() Ciudades_numRows = 0 %> <% Dim Resultados__MMColParam Resultados__MMColParam = "1" If (Request.Form("Origen") <> "") Then Resultados__MMColParam = Request.Form("Origen") End If %> <% Dim Resultados__MMColParam2 Resultados__MMColParam2 = "12" If (Request.Form("Destino") <> "") Then Resultados__MMColParam2 = Request.Form("Destino") End If %> <% Dim Resultados Dim Resultados_numRows Set Resultados = Server.CreateObject("ADODB.Recordset") Resultados.ActiveConnection = MM_NSACnx_STRING Resultados.Source = "SELECT Id_Destino, Origen, Destino, TipoServicio, Frecuencia, HoraSalida, HoraLlegada, Tarifa, Empresa, Ciudaddestino, CiudadOrigen FROM TablaDestinos WHERE CiudadOrigen = " + Replace(Resultados__MMColParam, "'", "''") + " and CiudadDestino = " + Replace(Resultados__MMColParam2, "'", "''") + "" & " order by HoraSalida" Resultados.CursorType = 0 Resultados.CursorLocation = 3 Resultados.LockType = 1 Resultados.Open() Resultados_numRows = 0 %> <% Dim Ciudades2__MMColParam Ciudades2__MMColParam = "10" If (Request("MM_EmptyValue") <> "") Then Ciudades2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ciudades2 Dim Ciudades2_numRows Set Ciudades2 = Server.CreateObject("ADODB.Recordset") Ciudades2.ActiveConnection = MM_NSACnx_STRING Ciudades2.Source = "SELECT * FROM Ciudad WHERE Tipo = '"& "D" & "' ORDER BY Ciudad ASC" Ciudades2.CursorType = 0 Ciudades2.CursorLocation = 2 Ciudades2.LockType = 1 Ciudades2.Open() Ciudades2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Resultados_numRows = Resultados_numRows + Repeat1__numRows %> Nuestra Señora de la Asunción | Transporte de Pasajeros y Cargas

			PASAJEROS

LOGISTICA	CARGAS	PASAJEROS	LA EMPRESA	ENVIOS-ENCOMIENDAS	CONTACTENOS

HORARIOS

Seleccione las ciudades de origen y destino, luego haga click en consultar. Para realizar una reservacion haga click en el enlace reserve.
Origen:		Destino:

<% If Resultados.RecordCount > 0 then %> <% Linea = 1 While ((Repeat1__numRows <> 0) AND (NOT Resultados.EOF)) %> <% if Linea mod 2 then %> <% else %> <% end if %> <% Linea = Linea + 1 Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Resultados.MoveNext() Wend %>

Origen	Salida	Destino	Llegada	Frecuencia	Servicio	Empresa	Reservar
<%=Resultados("Origen")%>	<%=Resultados("HoraSalida")%>	<%=Resultados("Destino")%>	<%=Resultados("HoraLlegada")%>	<%=Resultados("Frecuencia")%>	<%=Resultados("TipoServicio")%>	<%=Resultados("Empresa")%>	&Horario=<%=Resultados("HoraSalida")%>&Origen=<%=Resultados("Origen")%>&Destino=<%=Resultados("Destino")%>" class="Link10Px">Reserve

<% else %> <% Set DondeVa = Server.CreateObject("ADODB.Recordset") DondeVa.ActiveConnection = MM_NSACnx_STRING DondeVa.Source = "SELECT Ciudad FROM Ciudad WHERE Id_Ciudad = " + Request.Form("Origen") DondeVa.CursorType = 0 DondeVa.CursorLocation = 2 DondeVa.LockType = 1 DondeVa.Open() DesdeDonde = DondeVa("Ciudad") DondeVa.Close() DondeVa.Source = "SELECT Ciudad FROM Ciudad WHERE Id_Ciudad = " + Request.Form("Destino") DondeVa.Open() HastaDonde = DondeVa("Ciudad") DondeVa.Close() Set DondeVa = Nothing %>

En este momento no cubrimos el trayecto desde <%=DesdeDonde%> a <%=HastaDonde%>

Por favor realice otra consulta. Muchas Gracias

<% end if %>

<% Ciudades.Close() Set Ciudades = Nothing %> <% Resultados.Close() Set Resultados = Nothing %> <% Ciudades2.Close() Set Ciudades2 = Nothing %>