Questo dovrebbe essere lo script per fare una ricerca all'interno di un database ma mi viene segnalato un errore di compilazione alla linea 8. Potreste aiutarmi?

<%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("database/agriturismi.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
SQL = "SELECT * FROM agriturismi WHERE "
&_ " Nome agriturismo LIKE '%" & request("nomeagri") &"%' "

&_ " Città " & request("locaagri") &"%' "
&_ " Provincia LIKE '%" & request("provagri") &"%' "
rsElenca.open SQL, Conn
%>
<% IF rsElenca.bof AND rsElenca.eof = true THEN%>
response.write "non è stato trovato niente"
<%ELSE%>
<% while not rsElenca.eof=true%>
<%rsElenca("Nome agriturismo")%>
<%rsElenca("Indirizzo")%>
<%rsElenca("Città")%>
<%rsElenca("Provincia")%>
<%rsElenca("Telefono")%>
<%rsElenca("URL")%>

<%rsElenca.movenext%>
<%wend%>
<%end if%>

Cmq potrebbe funzionare?

Ho seguito le tue indicazioni ma il problema persiste, mi viene segnalato questo errore alla linea 8:

Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/portale/cercaagri.asp, line 8
&_ " Nome LIKE '%" & request("nomeagri") &"%' "

Questo è lo script:

<%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("database/agriturismi.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
SQL = "SELECT * FROM agriturismi WHERE "
&_ " Nome LIKE '%" & request("nomeagri") &"%' "
&_ " Città LIKE '%" & request("locaagri") &"%' "
&_ " Provincia LIKE '%" & request("provagri") &"%' "
rsElenca.open SQL, Conn
%>
<% IF rsElenca.bof AND rsElenca.eof = true THEN%>
response.write "non è stato trovato niente"
<%ELSE%>
<% while not rsElenca.eof=true%>
<%rsElenca("Nome")%>
<%rsElenca("Indirizzo")%>
<%rsElenca("Città")%>
<%rsElenca("Provincia")%>
<%rsElenca("Telefono")%>
<%rsElenca("URL")%>

<%rsElenca.movenext%>
<%wend%>
<%end if%>

Deve esserci qualche errore tra le stringhe Nome/Città/Provincia.
AIUTO!!1

Ho seguito il tuo consiglio ed ho modificato il campo ccentato nel db ma adesso scatta l'errore:

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'rsElenca'
/portale/cercaagri.asp, line 14

<%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("database/agriturismi.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

nomeagri=request.form("nomeagri")
locaagri=request.form("locaagri")
provagri=request.form("provagri")

SQL = "SELECT * FROM agriturismi WHERE nomeagri LIKE '%" & request("Nome") & "%'
locaagri LIKE '%" & request("Citta") & "%'
provagri LIKE '%" & request("Provincia") & "%' "

rsElenca.open SQL, Conn --> LINEA INCRIMINATA

IF rsElenca.bof AND rsElenca.eof = true THEN
response.write "non è stato trovato niente"
ELSE
while not rsElenca.eof=true
rsElenca("Nome")
rsElenca("Indirizzo")
rsElenca("Citta")
rsElenca("Provincia")
rsElenca("Telefono")
rsElenca("URL")
rsElenca.movenext
wend
end if
%>

Riesci a vedere il problema? Scusa per l'assillo.