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