Ciao




<%
Dim mycdontsmail
Set mycdontsmail = CreateObject("CDONTS.NewMail")
html = html & "<html><head>"
html = html & "<title>Email in formato Html</title>"
html = html & "<style>"
html = html & "a:link {font-family:verdana; font-size:12px; color:#333399; text-decoration:none;}"
html = html & "a:visited {font-family:verdana; font-size:12px;color:#550000; text-decoration:none;}"
html = html & "a:hover {font-family:verdana; font-size:12px;color:#ff0000;text-decoration:none;}"
html = html & "</style>"
html = html & "</head>"
html = html & "<body bgcolor=""#FFFFFF"">"
html = html & "<center>
"
html = html & "<a href=""http://www.libero.it/"">"
html = html & "Libero</a>

"
html = html & "</center>"
html = html & "</body>"
html = html & "</html>"
mycdontsmail.From = "mittente@mail.it"
mycdontsmail.To = "destinatario@mail.it"
mycdontsmail.Subject = "E-mail in formato Html"
mycdontsmail.BodyFormat = 0
mycdontsmail.MailFormat = 0
mycdontsmail.Body = html
mycdontsmail.Send()
Set mycdontsmail = nothing
response.write("<center>L'email è stata spedita</center>")
%>




Massimo