Rs da select name

[chesterfield]

Inserisco un record cosi:

<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>

bene.

scrivo nel database il campo e-mail cosi:

'recupero il dato
dim strEmail
strEmail = request.form("Email")

'Lavoro sul Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "nome tabella", conn, 3, 3
rs.addnew
rs("Email") = strEmail

'Chiusura
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing


e va tutto bene per il campo type="text" name="Email" ma per gli altri due non so proprio come si fa visto che sono si o no!!

Come faccio?

[Mems]

Usa campi di tipo numerico ìmpostati a bit dove salvi 0 per no, oppure 1 per si.
Infondo le sue combo passano zero o uno...

[chesterfield]

Originariamente inviato da Mems
Usa campi di tipo numerico ìmpostati a bit dove salvi 0 per no, oppure 1 per si.
Infondo le sue combo passano zero o uno...

non ho capito :master:

[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