buscador

[Blashak]

pues la verdad probe con muchas cosas pero no puedo hacerlo funcionar. nose que hacer ya.
mi codigo:

tit = request.form("Pais")
pro = request.form("Provincia")
pob = request.form("Poblacion")
sist = request.form("Sistema")


Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\web2\registrate.mdb"
'SQL1="select * from anuncio where Provincia like '%" & pro & "%' and Poblacion like '%" & pob & "%'"


Query = "select * from anuncio WHERE "
If Not IsEmpty(tit) Then
Query = Query + "Pais like '%" & tit & "%' and "
End If
If Not IsEmpty(Pro) Then
Query = Query + "Provincia like '%" & Pro & "%' and "
End If
If Not IsEmpty(pob) Then
Query = Query + "Poblacion like '%" & pob & "%' and "
End If
If Not IsEmpty(sist) Then
Query = Query + "sistema like '%" & sist & "%' and "
End If

Query = MID(Query, 1, LEN(Query)-4)

response.write "font face='Verdana' size='1'>"&rs("Pais")&""
response.write "font face='Verdana' size='1'>"&rs("Provincia")&""
response.write "font face='Verdana' size='1'>"&rs("Poblacion")&""
response.write "font face='Verdana' size='1'>"&rs("sistema")&""


rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

saludos