recupero dati da un form e invio in email

[zeweb]

Allora oltre a questi dati da un form

<%
cognome = Request.form("cognome")
email = Request.form("email")
messaggio = Request.form("messaggio")
trovato = Request.form("trovato")

If IsNull(email) Or email = "" Then
Response.Write ("<span class='testo'>Controlla il campo E-mail
Indietro")
Response.End
End if

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = Request.Form("email")
MiaMail.To = "xxx@xxx.com"
MiaMail.Subject = "Contatto dal sito"
MiaMail.HTMLBody = "Cognome:  " & Request.Form("cognome") & "
E-mail:  " & Request.Form("email") & "
Richiesta:  " & Request.Form("messaggio") & "
Ci ha trovato:  " & Request.Form("trovato")
MiaMail.Send()
Set MiaMail = Nothing

Dim MiaMail2
Set MiaMail2 = Server.CreateObject("CDO.Message")
MiaMail2.From = "xxx@xxx.com"
MiaMail2.To = Request.Form("email")
MiaMail2.Subject = "Conferma di ricezione "
MiaMail2.HTMLBody = "Abbiamo ricevuto la tua richiesta!
Grazie per averci scritto, sarai contattato prima possibile.

xxx"
MiaMail2.Send()
Set MiaMail2 = Nothing
Response.Write ("<span class='testo'>La tua richiesta è stata correttamente inviata, sarai contattato al più presto.
Torna alla home page")
%>

vorrei recuperare e mandare nella mail anche il valore di un chekbox che ho nel form

<input name="amico" type="checkbox" value="si">

Devo applicare un id="amico" nel form e poi ?