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