Rs da select name

[Mems]

Originariamente inviato da chesterfield
non ho capito :master:

tabella_iscritti
id_iscritto = contatore
email_iscritto = testo
scelta_ristorante = numerico (impostato a bit)
scelta_bar = numerico (impostato a bit)

pagina1.asp

<form method="POST" action="scrivi_record.asp"> 
Email 
<input type="text" name="Email"> 
Ristorante 
<select name="Ristorante"> 
<option value="1" selected>SI</option> 
<option value="0" selected>No</option> 
</select> 
Bar 
<select name="Bar"> 
<option value="1" selected>SI</option> 
<option value="0" selected>No</option> 
</select> 
<input type="submit" value="INVIA"> 
</form>

pagina scrivi_record.asp

'recupero il dato 
dim strEmail, iRistorante, iBar 
strEmail = request.form("Email") 
iRistorante = request.form("Ristorante")
iBar = request.form("Bar")

'Lavoro sul Recordset 
Dim rs 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open "tabella_iscritti", conn, 3, 3 
rs.addnew 
rs("email_iscritto") = strEmail 
rs("scelta_ristorante") = iRistorante
rs("scelta_bar") = iBar
rs.Update
'Chiusura 
rs.Close 
set rs = Nothing 
conn.Close 
set conn = Nothing