ciao a tutti,uso questo script per mandare e-mail da un sito che sta su aruba.secondo me è giusto lo script in se,è sbagliato l'oggetto che uso,ma preferisco prima sentire anche voi..
lo script è questo:
codice:
<%
email = Request.Form("email")
Ip = Request.ServerVariables("REMOTE_ADDR")
sTo = "destinatario<mail_destinatario>"
sFrom = email
sSubject = "[NB] Messaggio dal sito"
sMessage = vbcrlf _
& "Web Form from sito" & vbcrlf _
& vbcrlf _
& Message & vbcrlf _
& vbcrlf _
& "Da:" & vbcrlf _
& vbcrlf _
& " Nome : " & Request.Form("nome") & vbcrlf _
& " Cognome : " & Request.Form("cognome") & vbcrlf _
& " Indirizzo e-mail : " & Request.Form("email") & vbcrlf _
& vbcrlf _
& "Messaggio:" & vbcrlf _
& vbcrlf _
& " Messaggio : " & Request.Form("messaggio") & vbcrlf _
& vbcrlf _
& "Tipo di risposta:" & vbcrlf _
& vbcrlf _
& " Risposta via e-mail : " & Request.Form("check1") & vbcrlf _
& " Risposta via telefono : " & Request.Form("check2") & vbcrlf _
& " Numero di telefono : " & Request.Form("telefono") & vbcrlf _
& " Indirizzo ip : " & Ip
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pop3.nicolabellotti.it"
.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 iMsg = Server.CreateObject("CDO.Message")
Set iMsg.Configuration = objConfig
With iMsg
.To = sTo
.From = sFrom
.Subject = sSubject
.HTMLBody = SMessage
.Send()
End With
%>
e l'errore che ho è questo:
CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/send-email.asp, line 47
dove la linea 47 è quella in rosso...secondo voi cos'è?grazie