<% CodigoLocalidad=UCASE(replace(Request.QueryString("clocal"),"'","�")) localidad=UCASE(replace(Request.QueryString("local"),"@"," ")) 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 'segunda consulta oCmd.CommandText="SELECT * FROM Destino WHERE clocalidadno LIKE '%" & CodigoLocalidad & "%'" set oRecordset=oCmd.Execute CadenaCodigos="" Emp_Ant="" if oRecordset.EOF then Response.Redirect ("error.asp") else do until oRecordset.EOF if len(CadenaCodigos)< 1 then if Emp_Ant<>oRecordset(2).value then CadenaCodigos = "cempresano='" & oRecordset(2).value & "'" Emp_Ant=oRecordset(2).value end if else if Emp_Ant<>oRecordset(2).value then CadenaCodigos = CadenaCodigos & " or cempresano='" & oRecordset(2).value & "'" Emp_Ant=oRecordset(2).value end if end if oRecordset.movenext loop end if 'Response.Write (CadenaCodigos) 'Tercer Consulta oCmd.CommandText="SELECT * FROM Empresa WHERE " & CadenaCodigos & " order by crazonsocial asc" set oRecordset=oCmd.Execute %> TERMINAL de OMNIBUS de RETIRO
superior
INICIO Consultas-Informes   Mapa del sitio   Sugerencias al webmaster


Haga clic en el nombre de la empresa para obtener días, horarios de permanentes y adicionales


<% do until oRecordset.EOF Response.Write ("") oRecordset.movenext loop oConeccion.close %>

EMPRESAS CON SERVICIOS A: <%=localidad%>

TELEFONO

BOLETERIA

" & oRecordset(1).value & "" & oRecordset(2).value & "" & oRecordset(4).value & "

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