<%
Dim Cerca
Cerca = Replace(Request.Form("search"), "'", "")
if Cerca = "" then
Response.write "Errore. Non hai inserito nessun termine da cercare"
Response.end
end if

Dim DbPath, Conn
DbPath="../fpdb/login.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)

Dim strSQL, Rs
strSQL = "Select * from tblNews where Content like '%" & Cerca & "%' or SEARCH_WORDS like '%" & Cerca & "%' order by ID desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, Conn, 3, 3

if Rs.EOF then
Response.write "Nessun risultato trovato!"
else
Do while NOT Rs.EOF
Response.write "" & Rs("NOME_SITO") & "
" & Rs("DESCRIZIONE") & "

"
Rs.MoveNext
Loop
End If

Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
%>


mi da questo errore:

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

cerca_risultati.asp, line 103


la linea 103 è qs:

Rs.Open strSQL, Conn, 3, 3

:master: