Giuro che se oggi non arriva il mio manuale di asp, faccio una strage

finito l'ot, sono qui per chiedervi una cosa.
ho un elenco menu in cui posso fare selezioni multiple, collegato a un database, da cui prendo degli indirizzi mail.
fin qui tutto apposto, il problema è che dovrei aggiungere in una tabella gli indirizzi delle persone che ho selezionato con il ctrl.
ho usato la procedura guidata di dreamweaver, ma sapevo già che non sarebbe andata bene, perchè facendo l'inserisci record mi va a mettere solo l'ultimo valore che io ho selezionato.
vengo da visual basic e mi ricordo che li le select avevano degli indici, tramite i quali potevo capire se la tal voce "i" era selezionata o meno.
in asp è la stessa cosa?scusa la mia ignoranza ma senza manuale è un pò un casino, essendo alle prime armi
grazie a tutti

posto il codice cmq per far vedere cosa c'è ora

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>

<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_db1_STRING
MM_editCmd.CommandText = "INSERT INTO rubrica (email, id) VALUES (?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("select")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("id"), Request.Form("id"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_db1_STRING
Recordset1_cmd.CommandText = "SELECT * FROM soci ORDER BY progressivo ASC"
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Rubrica</title>
<style type="text/css">
<!--
.Stile3 {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
}
-->
</style>
</head>

<body>
<form ACTION="<%=MM_editAction%>" METHOD="POST" id="form1" name="form1">
<label> <span class="Stile3">Una volta cliccato su &quot;Seleziona&quot;,
chiudere la finestra</span>.

<span class="Stile3">Per selezionare un contatto per volta,
fare click sul

socio, tenere schiacciato
CTRL e cliccare sui soci

successivi.
Per selezionare tutti i soci, posizionarsi

sul primo socio, tenere premuto SHIFT
e schiacciare

FRECCIA GIU' fino a
quando non saranno selezionati tutti i

soci</span>



<select name="select" size="10" multiple="MULTIPLE" id="select">
<%
While (NOT Recordset1.EOF)
%><option value="<%=(Recordset1.Fields.Item("email").Value)% >"><%=(Recordset1.Fields.Item("codice").Value)%><% =" - "%><%=(Recordset1.Fields.Item("cognome").Value)%>< %=" "%><%=(Recordset1.Fields.Item("nome").Value)%> </option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
</label>
<label>
<input name="id" type="hidden" id="id" value="1" />
</label>



<label>
<input type="submit" name="button" id="button" value="Invia" />
</label>
</p>

<input type="hidden" name="MM_insert" value="form1" />
</form>

<label></label>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>