Errore 80040e10

[daxie]

Ciao a tutti,
ho creato il seguente codice utilizzando un SQL già collaudata e funzionante. Inserendola in un "IF THEN ELSE" però mi da un errore, non riesco a capire dove sbaglio..

codice:

Dim operatore, GiornoInizio, MeseInizio, AnnoInizio, GiornoFine, MeseFine, AnnoFine 

operatore=Session("idutente")
GiornoInizio=Day(request.Form("InizioPeriodo"))
MeseInizio=Month(request.form("InizioPeriodo"))
AnnoInizio=Year(request.form("InizioPeriodo"))
GiornoFine=Day(request.Form("FinePeriodo"))
MeseFine=Month(request.Form("FinePeriodo"))
AnnoFine=Year(request.Form("FinePeriodo"))


Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/palestre.mdb")


if     operatore = 11 Then
SQL= "SELECT T_PALESTRE.palestra, T_PALESTRE.data, T_PALESTRE.dalleOre, T_PALESTRE.alleOre, T_PALESTRE.note, T_DIRIGENTI.Nominativo, T_CATEGORIE.NomeCategoria, T_PALESTRE.categoria, T_PALESTRE.operatore FROM (T_PALESTRE INNER JOIN T_CATEGORIE ON T_PALESTRE.categoria = T_CATEGORIE.ID) INNER JOIN T_DIRIGENTI ON T_PALESTRE.operatore = T_DIRIGENTI.ID_UTENTE WHERE T_PALESTRE.data Between #"& MeseInizio &"/"& GiornoInizio &"/"& AnnoInizio &"# And #"& MeseFine &"/"& GiornoFine &"/"& AnnoFine &"# "
set rs =server.CreateObject("adodb.recordset")
rs.open sql, conn


Elseif operatore = 12 then
SQL= "SELECT T_PALESTRE.palestra, T_PALESTRE.data, T_PALESTRE.dalleOre, T_PALESTRE.alleOre, T_PALESTRE.note, T_DIRIGENTI.Nominativo, T_CATEGORIE.NomeCategoria, T_PALESTRE.categoria, T_PALESTRE.operatore FROM (T_PALESTRE INNER JOIN T_CATEGORIE ON T_PALESTRE.categoria = T_CATEGORIE.ID) INNER JOIN T_DIRIGENTI ON T_PALESTRE.operatore = T_DIRIGENTI.ID_UTENTE WHERE T_PALESTRE.data Between #"& MeseInizio &"/"& GiornoInizio &"/"& AnnoInizio &"# And #"& MeseFine &"/"& GiornoFine &"/"& AnnoFine &"# "


set rs =server.CreateObject("adodb.recordset")
rs.open sql, conn


else
SQL= "SELECT T_PALESTRE.palestra, T_PALESTRE.data, T_PALESTRE.dalleOre, T_PALESTRE.alleOre, T_PALESTRE.note, T_DIRIGENTI.Nominativo, T_CATEGORIE.NomeCategoria, T_PALESTRE.categoria, T_PALESTRE.operatore FROM (T_PALESTRE INNER JOIN T_CATEGORIE ON T_PALESTRE.categoria = T_CATEGORIE.ID) INNER JOIN T_DIRIGENTI ON T_PALESTRE.operatore = T_DIRIGENTI.ID_UTENTE WHERE T_PALESTRE.data Between #"& MeseInizio &"/"& GiornoInizio &"/"& AnnoInizio &"# And #"& MeseFine &"/"& GiornoFine &"/"& AnnoFine &"# AND T_DIRIGENTI.operatore="& operatore &" ORDER BY T_PALESTRE.data"




set rs =server.CreateObject("adodb.recordset")
rs.open sql, conn
end if

Errore:

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.

[optime]

----------------------------------------------------
impariamo a fare un po' di debug


*immediatamente prima* di eseguire la query metti


Response.Write "maGGica SQL...: " & sql & "<br>"
Response.Flush


poi posta quello che viene a video
----------------------------------------------------

[daxie]

maGGica SQL...: SELECT T_PALESTRE.palestra, T_PALESTRE.data, T_PALESTRE.dalleOre, T_PALESTRE.alleOre, T_PALESTRE.note, T_DIRIGENTI.Nominativo, T_CATEGORIE.NomeCategoria, T_PALESTRE.categoria, T_PALESTRE.operatore FROM (T_PALESTRE INNER JOIN T_CATEGORIE ON T_PALESTRE.categoria = T_CATEGORIE.ID) INNER JOIN T_DIRIGENTI ON T_PALESTRE.operatore = T_DIRIGENTI.ID_UTENTE WHERE T_PALESTRE.data Between #8/1/2013# And #10/28/2013# AND T_DIRIGENTI.operatore=1 ORDER BY T_PALESTRE.data

[optime]

T_DIRIGENTI.operatore è un campo numerico?

[daxie]

Si il campo operatore è un campo numerico nel DB

[optime]

controlla bene i nomi dei campi

[daxie]

Trovato l'errore! invece di essere T_DIRIGENTI.operatore doveva essere T_DIRIGENTI.ID_UTENTE.

Grazie dell'aiuto!

[optime]

optime!