Chiedo un ultimo aiuto. Grazie agli aiuti del forum negli ultimi giorni ho creato un questionario: l'utente fa il login, a secondo del login vengono generate le domande (personalizzate per ogni utente), l'utente risponde (tramite combobox) e alla fine dovrebbe inviare le risposte (inserendole nel db). E' proprio la scrittura che non riesco a fare. Di seguito allego lo script. In pratica è la parte in rosso che non funziona (immagino anche che sia piena di errori). Vorrei che ci fosse un pulsante "invia" ma non so cosa mettere in "action" e poi non so come mettere la stringa INSERT INTO.

Qualcuno mi può aiutare?

Grazie

Alessandro

codice:
<%@ language=vbscript%>
<%
'Definisci la connessione 
Set objConn = Server.CreateObject("ADODB.Connection") 

'Definisci stringa di connessione 
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") 

'Apri la connessione 
objConn.Open strConn%> 
<%if request.querystring("evt")="" then%>
<form action='?evt=1' method='post'>
	<input type='text' name='username' size="20">

	
	<input type='password' name='password' size="20">
		

<input type=submit value=invia>
</form>
<%else
user=request.form("username")
pass=request.form("password")
'verifica dell'username e passsword

sql="select * from [Utenti] where username='"&user&"' and password='"&pass&"' "
set rs=objconn.execute(sql)

if rs.eof then
response.write("Username o password errati")

else
session("login")=rs("Codice")
rs.close
set rs=nothing
sql="select * from [Risposte] where Codice="&session("login")&""
set rs=objconn.execute(sql)
response.write ("<center><table border=1 bordercolor=#ae0000 cellspacing=0 cellpadding=5>") 
x=1

do while not rs.eof
response.write ("<tr><td>") 
response.write x &".) </td><td>"& rs("domanda")
response.write ("</td><td>")

if rs("Risposta") <> " " then
response.write("" & rs("Risposta"))

else
sql2="select * from [Risposte Possibili]  where [Risposte Possibili].[Tipo Risposta] = '"&rs("Tipo Risposta")&"'"
set rs2=objconn.execute(sql2)
response.write ("<select>")
do while not rs2.eof
response.write ("<option value="& rs2("Rispostap"))
response.write (">" & rs2("Rispostap") & "</option>")
rs2.movenext
loop
response.write ("</select>")
response.write ("<input type=text name="& rs("Codice domanda") & "></input>")

end if
response.write ("</td></tr>")
rs.movenext
x=x+1

loop
response.write "</table>"
end if

sql="INSERT INTO [Risposte] (*) VALUES (Risposta)"
response.write ("<form method=post action=???><input type=submit value=Invia></form>") 
end if

%>