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.