<%@LANGUAGE="VBSCRIPT"%> <% Dim strNac2 set Origenes = Server.CreateObject("ADODB.Recordset") Origenes.ActiveConnection = MM_dbSamar_STRING Origenes.Source = "SELECT DISTINCTROW Localidades.*, Empresas.Nombre FROM Localidades INNER JOIN ((Empresas INNER JOIN Lineas ON Empresas.codEmpresa = Lineas.codEmpresa) INNER JOIN Recorrido ON Lineas.codLinea = Recorrido.codLinea) ON Localidades.codLocalidad = Recorrido.codLocalidad WHERE (((Empresas.Nombre)<>'Samar Internacional')) ORDER BY Localidades.Localidad;" Origenes.CursorType = 0 Origenes.CursorLocation = 2 Origenes.LockType = 3 Origenes.Open() Origenes_numRows = 0 %> <% if request.form("idOri")<>"" then set OrigenElegido = Server.CreateObject("ADODB.Recordset") OrigenElegido.ActiveConnection = MM_dbSamar_STRING OrigenElegido.Source = "SELECT DISTINCT Localidades.Localidad FROM Localidades WHERE ((Localidades.Localidad)='" & request.form("idOri") & "');" OrigenElegido.CursorType = 0 OrigenElegido.CursorLocation = 2 OrigenElegido.LockType = 3 OrigenElegido.Open() 'OrigenElegido_numRows = 0 end if %> <% if request.form("idOri")<>"" then set destinos = Server.CreateObject("ADODB.Recordset") destinos.ActiveConnection = MM_dbSamar_STRING destinos.Source = "SELECT DISTINCTROW Localidades.* FROM (Localidades INNER JOIN Recorrido ON Localidades.codLocalidad = Recorrido.codLocalidad) INNER JOIN Matrices ON Recorrido.codRecor = Matrices.codRecDestino WHERE (((Matrices.codMatriz) In (SELECT Matrices.codMatriz FROM (Localidades INNER JOIN Recorrido ON Localidades.codLocalidad = Recorrido.codLocalidad) INNER JOIN Matrices ON Recorrido.codRecor = Matrices.codRecOrigen WHERE (((Localidades.Localidad)='" & request.form("idOri") & "') AND (((Matrices.Tarifa)<>0) OR ((Matrices.Excepcion)<>0)));))) ORDER BY Localidades.Localidad;" destinos.CursorType = 0 destinos.CursorLocation = 2 destinos.LockType = 3 destinos.Open() 'destinos_numRows = 0 end if %> Principal


Si desea recibir información sobre las líneas, horarios y tarifas de los trayectos que cubre el Grupo Samar dentro del territorio nacional, siga los siguientes pasos:

    <% if request.form("idOri")="" then %>
  1. Seleccione localidad de origen y pulse continuar:

    2. <% else %>
  2. <% response.write "" & "Origen: " & request.form("idOri") & ""%>

    3. <% end if %> <%if Request.form("idori")<>"" then %>
  3. Seleccione localidad de destino y pulse continuar:
    name="">
    4. <%end if%>
 
<% Origenes.Close() %> <% if request.form("idOri")<>"" then destinos.Close() end if %> <% if request.form("idOri")<>"" then OrigenElegido.Close() end if %>