strano errore in una query

[lambda89]

http://img501.imageshack.us/my.php?i...mmagineef7.png
aiuto!!!!!!!!!!!!!!!!!
grazie anticipatamente
il codice completo è:
http://cl1p.net/problema/

[Domenix]

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("Registro.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM letturaOCR"
rs.open  sql,conn,3,3
do while not(rs.EOF)
cod=rs("codice")
o1=rs("ora1")
o2=rs("ora2")
o3=rs("ora3")
o4=rs("ora4")
o5=rs("ora5")
o6=rs("ora6")
o7=rs("ora7")
o8=rs("ora8")
o9=rs("ora9")
sql3="INSERT INTO assenzenote(IdAlunno,ora1,ora2,ora3,ora4,ora5,ora6,ora7,ora8,ora9) VALUES('"&cod&"','"&o1&"','"&o2&"','"&o3&"','"&o4&"','"&o5&"','"&o6&"','"&o7&"','"&o8&"','"&o9&"')"
conn.execute(sql3)
rs.MoveNext
loop
%>

[lambda89]

http://img73.imageshack.us/my.php?im...magine2uw8.jpg
non funziona ancora!!!!!!!!!!!!!!!!


<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("Registro.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT codice,ora1,ora2,ora3,ora4,ora5,ora6,ora7,ora8,ora 9 FROM letturaOCR"
rs.open sql,conn,3,3
do while not(rs.EOF)
cod=rs("codice")
o1=rs("ora1")
o2=rs("ora2")
o3=rs("ora3")
o4=rs("ora4")
o5=rs("ora5")
o6=rs("ora6")
o7=rs("ora7")
o8=rs("ora8")
o9=rs("ora9")

sql3="INSERT INTO assenzenote(IdAlunno,ora1,ora2,ora3,ora4,ora5,ora6 ,ora7,ora8,ora9) VALUES ('" & cod & "','" & o1 & "','" & o2 & "','" & o3 & "','" & o4 & "','" & o5 & "','" & o6 & "','" & o7 & "','" & o8 & "','" & o9 & "');"

Conn.execute sql3

rs.MoveNext
loop
%>

[Domenix]

1. Devi cliccare su RISPONDI;
2. Per i campi di tipo numerico non si usano apici singoli ' attorni al valore da memorizzare.

[lambda89]

sulla execute mi dice:
parametri insufficenti previsto 2

[Domenix]

Controlla la corrispondenza tra i campi della tabella così come li hai espressi nella sql.

[lambda89]

corrispondono sono giusti

[Santino83_02]

sql3="INSERT INTO assenzenote(IdAlunno,ora1,ora2,ora3,ora4,ora5,ora6,ora7,ora8,ora9) VALUES ('" & cod & "','" & o1 & "','" & o2 & "','" & o3 & "','" & o4 & "','" & o5 & "','" & o6 & "','" & o7 & "','" & o8 & "','" & o9 & "');"

response.write(sql3 & "
") 

'Conn.execute sql3
rs.MoveNext
loop

response.end

esegui con questa modifica e controlla se tutte le query che genera sono valide