codice:
<%
Request.Form("nome")
Request.Form("email")
Request.Form("messaggio")
Dim objEMail
Dim sMittente
Dim sDestinatario
Dim sOggetto
Dim sBody
sMittente = "info@dominio.it"
Sdestinatario = "info@dominio.it"
sOggetto = request("email")
sBody = "NOME: " & request("nome") & VBCrLf
sBody = sBody & "e-mail: " & request("email") & VBCrLf
sBody = sBody & "Messaggio: " & request("messaggio") & VBCrLf
Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.From = sMittente
objEMail.To = sDestinatario
objEMail.Subject = sOggetto
objEMail.Body = sBody
objEMail.Send
Set objEMail = Nothing
%>