<%
'****Recupero materia, alunno e giudizio attuale 
alunno =request.form("ComboAlunno")
materia = request.form("ComboMateria")
voto = request.form("ComboGiudizi")

'dichiarazione query
Set rsPagella = Server.CreateObject("ADODB.Recordset")
Dim sqlPagella ' Creo la query SQL
[COLOR=red]sqlPagella = "INSERT INTO Pagella (ID_Persona,ID_Materia,Giudizio) VALUES ("&alunno&","&materia&","&voto&")"[/COLOR] 
rsPagella.Open sqlPagella, cn ' Apro il Recordset

response.write "Complimenti, le informazioni sono state inserite correttamente!"
'chiudo la connessione
cn.Close
Set cn = Nothing
%>