Cuando Maykire te dice
Cita:
Iniciado por Myakire 
Me gustaría ver el query resultante tras las concatenaciones. ¿puedes desplegarlo y postearlo?, que para que no funcione necesita estar ingresando a algunas condiciones que no debiera y eso solo es posible si las variables tienen algún valor diferente a cadena vacia
lo que quieres es que hagas
Código HTML:
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 Query
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
lo que se te imprima en pantalla, postealo aquí
Cita:
Iniciado por Myakire Nop, el and debe ir al final por que no sabemos por cuál condición se irá, así que si se va por una o por las 4 condiciones, siempre tendremos un AND al final y con el MID lo cortamos.
Ahora lo entiendo