% 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 %>
|
|||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|