Sono quansi sicuro di aver settato bene il CDOSYS ma ricevo sto messaggio:
The transport failed to connect to the server.

Eppure il codice è quello chem i hanno dato quelli del server

codice:
<%
nome = Request.form("nome")
cognome = Request.form("cognome")
azienda = Request.form("azienda")
country = Request.form("country")
email_1 = Request.form("email_1")
email_2 = Request.form("email_2")
telefono = Request.form("telefono")
messaggio = Request.form("messaggio")

' Dichiara l'oggetto email e la configurazione

Dim objMail, objMail2, objConfig

' Dimensiona l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' ====================================
'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.attiva.biz"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' ====================================

' Assegna all'oggetto le propriet&agrave; necessarie

' Mittente dell'email (indirizzo)
objMail.From = Request.Form("email_1")

' Destinatario dell'email (indirizzo)
objMail.To = "xxx@mail.it"

' Cc e Bcc (opzionale)
'objMail.Cc = "altroindirizzo@dominio.com; ancora@dominio.com"
'objMail.Bcc = "altroindirizzo@dominio.com; ancora@dominio.com"

' Oggetto dell'email
objMail.Subject = "AUREL Wireless - Contatto dal sito"

' Valore di priorit&agrave;
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()

' Allegare un file
'objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zip")

' Corpo del messaggio
'objMail.TextBody = "Testo della mail" ' Formato Testo
objMail.HTMLBody = "Cognome:  " & Request.Form("cognome") & "
Nome:  " & Request.Form("nome") & "
Stato:  " & Request.Form("country") & "
Telefono:  " & Request.Form("telefono") & "
E-mail: [/b] " & Request.Form("email_1") & "

Richiesta:  " & Request.Form("messaggio") ' Formato HTML

' Invia l'email
objMail.Send()

' Distruggi l'oggetto
Set objMail = Nothing

Set objConn = Server.CreateObject("ADODB.Connection")
str="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fpdb/utenti.mdb")
objConn.Open str
str=""
stringa_1="INSERT INTO Email_newsletter ("'Values (
for each variable_name in request.form
	value=request.form(variable_name)
	if ((not variable_name="button") ) then 'aggiungere OR ....
		if (not variable_name="Privacy") then 
		'response.write variable_name& " - " &value &"
"
		str=str+ variable_name +","
		str2=str2 &"'"&value&"',"
		end if
	end if
next
'crea l'SQL INSERT 
str=stringa_1 + Left(str,len(str)-1) + ") Values (" + Left(str2,len(str2)-1)+")"
Set objRs = objConn.Execute (str)

Response.Write ("<span class='avviso'>Your message was received correctly, you will be contact as soon as possible.")
%>