parametro non riconosciuto

[forte78]

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

[forte78]

???

[forte78]

Potete rispondere x cortesia ??

[Mems]

qualche stringa sql ha qualche nome campo non corretto, come se, ad esempio, sulla tabella il campo si chiami pippo e nella query hai scritto topolino.

[forte78]

Si ok , ma infatti è quello che ho chiesto lo so anke io .

Il campo in quella tabella nn c'è nn esiste .
Vorrei che quella query mi trovasse quei campi e fino a qui ci siamo ma che mi facesse solo vedere i valori SI del campo visione(che ripeto è di un'altra tabella)


questa tabella la metti in relazione cosi all'inizio dello script


<%
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
%>


Grazie a questo io riesco a vedere nell'elenco se inserisco strVisione se c'è un valore SI o NO


Ripeto quello che voglio è che mi facesse vedere solo i SI .


Non so se sono stato chiaro.
Fatemi sapere x cortesia