Quando spedisco la newsletter dal sito mi tornano indietro tutte le email con questo errore:

Error type: Winsock
Error Description: Connection timed out.
Additional information: connect()


Che errore è? come posso risolvere?

Ciao David

conta=0
BCC=""
Dim mail
Dim conf
Const NAMESPACE = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoSendUsingPort = 2
do until rs.eof
'do while not rs.eof
do until (Conta > 30) OR (rs.eof = true)
email=replace(rs("indirizzo")," ","")
IF InStr(email,".")=0 OR InStr(email,"@")=0 THEN
else
BCC = email & "; " & BCC
Conta = Conta + 1
end if
rs.movenext

loop

Set mail = CreateObject("CDO.Message")
Set conf = CreateObject("CDO.Configuration")
conf.Fields(NAMESPACE & "sendusing") = cdoSendUsingPort
conf.Fields(NAMESPACE & "smtpserver") = "localhost"
conf.Fields(NAMESPACE & "smtpserverport") = 25
conf.Fields.Update
mail.Configuration = conf
mail.HTMLBody = pagetxt
mail.From = "info@xxx.it"
mail.Subject = "Newsletter "&date()
mail.To= "info@yyy.it"
mail.Bcc =BCC
mail.Fields("urn:schemas:httpmail:importance").Val ue = 2
mail.Fields.Update()
mail.Send
inviate=bcc&inviate

Conta = 0
BCC = ""
loop