codice:
<%

' stringa HTML da inviare
strHTML = strHTML & "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>"
strHTML = strHTML & "<html>"
strHTML = strHTML & "<head>"
strHTML = strHTML & "<title>Documento senza titolo</title>"
strHTML = strHTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
strHTML = strHTML & "</head>"
strHTML = strHTML & "<body bgcolor='#D2D2D2'>"
strHTML = strHTML & "<div align='center'>"
  strHTML = strHTML & "<table width='600' border='0' cellspacing='0' cellpadding='0'>"
    strHTML = strHTML & "<tr>"
     strHTML = strHTML & " <td height='46' style='background-image:url(http://www.infogolf.info/restyling ig pro shop/immagini/testata-email.gif);background-repeat:no-repeat; background-position:right bottom;'></td>"
    strHTML = strHTML & "</tr>"
    strHTML = strHTML & "<tr>"
     strHTML = strHTML & " <td bgcolor='#FFFFFF' style='background-image:url(http://www.infogolf.info/restyling ig pro shop/immagini/sfondo-email.gif); background-position:right bottom;'>Ciao</td>"
    strHTML = strHTML & "</tr>"
    strHTML = strHTML & "<tr>"
      strHTML = strHTML & "<td height='43' style='background-image:url(http://www.infogolf.info/restyling ig pro shop/immagini/piede-email.gif);background-repeat:no-repeat; background-position:right bottom;'></td>"
   strHTML = strHTML & " </tr>"
  strHTML = strHTML & "</table>"
strHTML = strHTML & "</div>"
strHTML = strHTML & "</body>"
strHTML = strHTML & "</html>"


Set link = CreateObject("CDONTS.Newmail")

With link
.BodyFormat = 1
.MailFormat = 1
.To = "prova3@prova.it" ' Inserisci qui il tuo indirizzo email
.Bcc = "prova2@prova.info"
.From = "prova@prova.it"
.Subject = "Newsletter IG Pro Shop"
.Body = strHTML
.Send
End With
Set link = Nothing
%>