<% cDestino=UCASE(replace(Request.QueryString ("cdestino"),"'","�")) cEmpresa=UCASE(replace(Request.QueryString ("cempresa"),"'","�")) Destino=UCASE(replace(Request.QueryString ("ndestino"),"'","�")) Destino=Replace(Destino,"X"," ") Empresa=UCASE(replace(Request.QueryString ("nempresa"),"'","�")) Empresa=Replace(Empresa,"X"," ") Dim Dia(7) Dia(1)="Lunes" Dia(2)="Martes" Dia(3)="Miercoles" Dia(4)="Jueves" Dia(5)="Viernes" Dia(6)="Sabado" Dia(7)="Domingo" Dim oConeccion ' conneccion Dim oRecordset ' recordset Set oConeccion = Server.CreateObject("ADODB.Connection") set oCmd=Server.CreateObject ("ADODB.Command") oConeccion.open "Provider=SQLOLEDB; Data Source=127.0.0.1; Database=tebasa; UID=web; PWD=soloparaver;" oCmd.ActiveConnection=oConeccion 'primer consulta oCmd.CommandText="SELECT cuid, cempresano, convert(char(10), dservicio, 103) as dservicio, ndia, choraservi, clocalidadno, ctipo FROM Servicio WHERE cempresano='" & cEmpresa & "' AND clocalidadno='" & cDestino &"' ORDER BY ndia, choraservi" set oRecordset=oCmd.Execute %> TERMINAL de OMNIBUS de RETIRO | Horarios
superior
INICIO Consultas-Informes   Mapa del sitio   Sugerencias al webmaster


EMPRESA: <%=Empresa%> | SERVICIOS A: <%=Destino%>



<% do until oRecordset.EOF %> <% oRecordset.movenext loop oConeccion.close %>
DIA
HORARIO
PERMANENTES | ADICIONALES
<%=Dia(oRecordset(3).value)%>
<%=oRecordset(4).value%>
<%if oRecordset(6).value<>"P" then %>
Adicional <%=oRecordset(2).value%> <%else%> Permanente <%end if%>

[ Realizar otra búsqueda ]

 

Terminal de ómnibus de Retiro | Av. Antártida Argentina y Calle 10 | C1104AJQ | Capital Federal
inferior