Mi da questo errore, ma non capisco cosa puo essere.....
codice:
CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/formcdosys.asp, line 33
ecco il codice incriminato, la riga in rosso è la linea 33:
codice:
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "info@miodominio.it"
invioDa = "errore@miodominio.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
modulo = Request.ServerVariables("HTTP_REFERER")
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
Grazie...........