MailingList asp

   Dim server_smtp
   Dim objMail
   Dim objConfig
     server_smtp ="smtp.localhost.it"
     
   Set objMail = Server.CreateObject("CDO.Message")
   Set objConfig = Server.createObject("CDO.Configuration")
   With objConfig
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = server_smtp
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
     .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     .Fields.Update
   End With
   
   Set objMail.Configuration = objConfig
     objMail.From = email_can ' Mittente dell'email (indirizzo)
If DatabaseEsterno = True then 
     objMail.To = rs.Fields(CellaEmail) ' Destinatario dell'email (indirizzo)
     objMail.Subject = Titolo
     objMail.Fields.Update()
     objMail.HTMLBody = strMessage & vbCrlf & vbCrlf & Body ' Formato HTML
     objMail.Send() ' Invia l'email
Else 
     objMail.To = rs.Fields("email") ' Destinatario dell'email (indirizzo)
     objMail.Subject = Titolo
     objMail.Fields.Update()
     objMail.HTMLBody = strMessage & vbCrlf & vbCrlf & Body ' Formato HTML
     objMail.Send() ' Invia l'email
End If     
   Set objMail = Nothing

'on error resume next