<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%language=vbscript %>

Dim rs, mail, subject, message,html

   invioDa =  "@"
   subject = Request.Form("soggetto")
   html = Request.Form("html")


   DIM iMsg, Flds, iConf


set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg

Set .Configuration = iConf


.CreateMHTMLBody "http://www.miosito.it/"& HTML &""

'mettere la propria mail
.To = rs("email")

'mettere una mail valida come mittente
.From = "@"
.Subject = subject

.Send
End With