Questo e' quello che avevo fatto


<%@Language=VBScript%>
<%option explicit%>
<%dim OggettoMail, strBody


set OggettoMail = Server.CreateObject("CDO.Message")


StrBody = "<HTML><HEAD><TITLE>EMAIL</TITLE>"
StrBody = StrBody + "<style type='text/css'>"
StrBody = StrBody + ".bordo1 {"
StrBody = StrBody + "border-top: none 0px none;"
StrBody = StrBody + "border-right: none 0px none;"
StrBody = StrBody + "border-bottom: none 0px none;"
StrBody = StrBody + "border-left: solid 2px black;"
StrBody = StrBody + "}"
StrBody = StrBody + "</style>"
StrBody = StrBody + "</HEAD><BODY>"
StrBody = StrBody + "<table width=100% height=100><tr><td class='bordo1'></td><td>"
StrBody = StrBody + "[b]<table width=80% cellspacing=0 cellpadding=1><tr><td bgcolor=f3f3f3><FONT FACE=VERDANA SIZE=1 color=333333>Da: <font face=verdana size=2 color=000000>" & Request.Form("cognome") & " </font></td></tr></table>"
StrBody = StrBody + " [b]<table width=80% cellspacing=0 cellpadding=1><tr><td bgcolor=f3f3f3><FONT FACE=VERDANA SIZE=1 color=333333> <font face=verdana size=1 color=000000>" & Request.Form("mail") & " </font></td></tr></table>"
StrBody = StrBody + " <FONT FACE=VERDANA SIZE=1 color=333333>Versione del sito:</font> <font face=verdana size=1 color=000000>Italiano</font>

"
StrBody = StrBody + "<FONT FACE=ARIAL SIZE=2 COLOR=FF0000>Dati:</FONT>


"
StrBody = StrBody + "<FONT FACE=VERDANA SIZE=1>Nome:</FONT> <FONT FACE=VERDANA SIZE=1 COLOR=FF0000>" & Request.Form("nome") & "</FONT>
"
StrBody = StrBody + "<FONT FACE=VERDANA SIZE=1>Cognome:</FONT> <FONT FACE=VERDANA SIZE=1 COLOR=FF0000>" & Request.Form("cognome") & "</FONT>
"
StrBody = StrBody + "<FONT FACE=VERDANA SIZE=1>E-mail:</FONT> <FONT FACE=VERDANA SIZE=1 COLOR=FF0000>" & Request.Form("mail") & "</FONT>
"
StrBody = StrBody + "<FONT FACE=VERDANA SIZE=1>Note:</FONT> <FONT FACE=VERDANA SIZE=1 COLOR=FF0000>" & Request.Form("note") & "</FONT>
"
StrBody = StrBody + "</td></tr></table>"
StrBody = StrBody + "</BODY></HTML>"


OggettoMail.From = Request.Form("mail")
OggettoMail.To = "pippo@nomesito.com"
OggettoMail.Subject = "Dati"
OggettoMail.HTMLBodyFormat=0
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.nomesito.com"
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
email.Configuration.Fields.Update
OggettoMail.Send


set OggettoMail = Nothing%>