questo è l'errore


Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

Ho realizzato questo codice

' QUI SI RILEVANO I PARAMETRI DI UNA TABELLA MA DELLO STESSO DB


<%
Dim cnx
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("databaseimm.mdb")

Dim cny
Set cny = Server.CreateObject("ADODB.Connection")
cny.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("databaseimm.mdb")
%>

<%
Function Trova_Telefono(codice, tipo)
Dim objRS, strSQL
strSQL = "SELECT telefono FROM immobili WHERE codiceimmobile = " & codiceimmobile
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cnx
If tipo = "Telefono" Then
If NOT objRS.EOF Then
Trova_Telefono = objRS.Fields("telefono")
Else
Trova_Telefono = ""
End If
objRS.Close
end if
End Function

Dim strIndirizzo : strIndirizzo = ""
Dim strCivico : strCivico = ""
Dim strComune : strComune = ""
Dim strCognome : strCognome = ""
Dim strTelefono : strTelefono = ""
Dim strVisione : strVisione = ""

Sub Trova_Indirizzo(codiceimmobile)
Dim objRS, strSQL
strSQL = "SELECT indirizzo,civico,comune,cognome,telefono,visione FROM immobili WHERE codiceimmobile = " & codiceimmobile
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cny
If NOT objRS.EOF Then
strIndirizzo = objRS.Fields("indirizzo")
strCivico = objRS.Fields("civico")
strComune = objRS.Fields("comune")
strCognome = objRS.Fields("cognome")
strTelefono = objRS.Fields("telefono")
strVisione = objRS.Fields("visione")
End If
objRS.Close
End Sub
%>



' QUI SI RILEVANO I RISULTATI DI RICERCA









<%
strSQL = "SELECT * FROM pubblicita WHERE " & _
"testata Like '%" & Trim(session("testata")) & _
"%' AND agenzia = 'AGENZIA 23' AND strVisione = 'SI' ORDER BY gruppo ASC"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cny
%>





Come si vede in questa ultima parte ho aggiunto questo campo


strVisione = 'SI'


ma il campo visione nn fa parte della tabella pubblicita ma della tabella immobili come si vede nella parte superiore del codice

cosa si puo fare x far permettere di elencare questi risultati:

campo TESTATA ok perchè è nella tabella
campo AGENZIA ok perchè è nella tabella
campo VISIONE "deve essere = SI " ma questo campo fa parte dell'altra tabella come posso modificare questo codice:




<%
strSQL = "SELECT * FROM pubblicita WHERE " & _
"testata Like '%" & Trim(session("testata")) & _
"%' AND agenzia = 'AGENZIA 23' AND strVisione = 'SI' ORDER BY gruppo ASC"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cny
%>



fatemi sapere x cortesia

vi ringrazio