error '80040e10': Nessun valore specificato per alcuni parametri necessari.

[Apusca]

Salve,
Ho il seguente codice per l'inserimento dati in un database:

<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Dim conn
Dim strconn
Dim strSQL
Dim a
Dim rs
strconn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source ="
strconn = strconn + Server.MapPath ("GestioneOrdiniCartiera.accdb")
set conn = Server.CreateObject ("ADODB.Connection")
set rs = Server.CreateObject ("ADODB.Recordset")
conn.Open strconn
rs.Open "Agente", conn
rs.MoveFirst
Do While Not rs.EOF
if rs.Fields(1).Value= Request.Form("txtAgente") then a = rs.Fields(0).Value
rs.MoveNext
Loop
strSQL = "INSERT INTO Ordine(Data, Numero_Ordini, Id_Agente) VALUES(#" & Request.Form("txtData") & "#," & Request.Form("txtNum_Ordini") & ", a);"
conn.Execute(strSQL)
conn.Close
set conn = nothing
set rs = nothing
%>

Considerate che "txtData", "txtNum_Ordini" e "txtAgente" sono due textbox di un'altra pagina.
Mi dà l'errore che vedete nel titolo (Nessun valore specificato per alcuni parametri necessari). io credo che l'errore è dovuto alla variabile "a" ma non capisco il perchè.
Mi potete aiutare???
Grazie in anticipo

[optime]

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

*immediatamente prima* di eseguire la query metti

Response.Write "maGGica SQL...: " & strSQL & "
"
Response.Flush

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

[Apusca]

<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Dim conn
Dim strconn
Dim strSQL
Dim a
Dim rs
strconn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source ="
strconn = strconn + Server.MapPath ("GestioneOrdiniCartiera.accdb")
set conn = Server.CreateObject ("ADODB.Connection")
set rs = Server.CreateObject ("ADODB.Recordset")
conn.Open strconn
rs.Open "Agente", conn
rs.MoveFirst
Do While Not rs.EOF
if rs.Fields(1).Value= Request.Form("txtAgente") then a = rs.Fields(0).Value
rs.MoveNext
Loop
strSQL = "INSERT INTO Ordine(Data, Numero_Ordini, Id_Agente) VALUES(#" & Request.Form("txtData") & "#," & Request.Form("txtNum_Ordini") & ", a);"
Response.Write "maGGica SQL...: " & strSQL & "
"
Response.Flush
conn.Execute(strSQL)
conn.Close
set conn = nothing
set rs = nothing
%>

Così?!?!?!
questo è quello che mi esce:

maGGica SQL...: INSERT INTO Ordine(Data, Numero_Ordini, Id_Agente) VALUES(#27/04/2013#,10, a);
Microsoft Access Database Engine error '80040e10'

Nessun valore specificato per alcuni parametri necessari.

/Cartiera/AggiornaDB.asp, riga 24

[optime]

esatto. come puoi vedere da solo, nella stringa

INSERT INTO Ordine(Data, Numero_Ordini, Id_Agente) VALUES(#27/04/2013#,10, a);

stai passando la lettera a (evidenziata in rosso) non il valore della variabile a. Correggi

[cavicchiandrea]

Prova così
INSERT INTO Ordine(Data, Numero_Ordini, Id_Agente) VALUES(#27/04/2013#,10, "&a&"); se a è una variabile numerica altrimenti '"&a&"'

[Apusca]

Originariamente inviato da optime
esatto. come puoi vedere da solo, nella stringa

INSERT INTO Ordine(Data, Numero_Ordini, Id_Agente) VALUES(#27/04/2013#,10, a);

stai passando la lettera a (evidenziata in rosso) non il valore della variabile a. Correggi

E come faccio a passare il valore della variabile???

[br1]

Originariamente inviato da Apusca
E come faccio a passare il valore della variabile???

Te l'ha detto Andrea

[Apusca]

Adesso funzione ma ho un altro problema:
siccome nel codice che ho scritto avevo anche dimenticato di inizializzare la variabile a, l'ho inizializzata a=0 subito dopo averla dichiarata. Adesso il database si aggiorna ma nel campo Id_Agente ci va sempre il valore 0, cioè è come se non mi eseguisse il while.
Sapete dirmi il perchè?!?!

[optime]

scusa, ma questa riga

if rs.Fields(1).Value= Request.Form("txtAgente") then a = rs.Fields(0).Value

chi l'ha messa?

[Apusca]

Originariamente inviato da optime
scusa, ma questa riga

if rs.Fields(1).Value= Request.Form("txtAgente") then a = rs.Fields(0).Value

chi l'ha messa?

L'ho messa io perchè non va bene?