Codice AspEmail

<%
' Controlla che il pulsante submit abbia come nome "invia"
If Request("invia") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")
' Qui va inserito il server SMTP
Mail.Host = "mail.mio_server.it"

Mail.From = "mio_indirizzo@miodominio.it" ' Indirizzo email del mittente
Mail.FromName = "Responsabile web" ' Nome del mittente - opzionale
Mail.AddAddress Request("email") ' L'indirizzo del destinatario che ricaviamo dall'elemento "email" del form

' Oggetto del messaggio
Mail.Subject = "Conferma iscrizione"
' Corpo del messaggio
Mail.Body = "Ciao " & Request("nome") & "," & _
Chr(13) & Chr(10) & _
"hai ricevuto questa mail perchè " & _
"hai richiesto l'iscrizione al nostro sito." & _
Chr(13) & Chr(10) & _
"La password che ti è stata assegnata è:" & Chr(13) & Chr(10) & _
Request("password") & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Per confermare l'iscrizione clicca su questo link" & Chr(13) & Chr(10) & _
"http://www.mio_dominio.it/conferma.asp?password=" & Request("password") & _ ' Da personalizzare con il nome del domino
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Saluti dal webmaster del sito "

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>