13 messaggi dal 02 dicembre 2003
Ciao a tutti,
Qualcuno sa spiegarmi cosa significa questo mess DI ERRORE?

CDO.Message.1 error '80040213'
Il trasporto non è riuscito a connettersi al server.

Si tratta di un normale FORM che va inserito in un sito per la richiesta di informazioni da parte dell'utente.
Il codice che utilizzo per l'invio della mail è il seguente ed è stato preso e modificato dalle info che fornisce il servizio di a$. tecnica di aruba:


<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "zio_caro@yahoo.it"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@miodominio.it"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "<br>" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

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(cdoSMTPServer) = "smtp.miodominio.it"
Flds(cdoSendUserName) = "info@miodominio.it"
Flds(cdoSendPassword) = "...PasswordDelmiodominio..."
' -------------------------------------------------
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

Response.Write "------------------------------------------------------------------" & "<BR>"
Response.Write "<B>nomeDominio : </B>" & nomeDominio & "<BR>"
Response.Write "<B>indirizzoIp : </B>" & indirizzoIp & "<BR>"
Response.Write "<B>modulo : </B>" & modulo & "<BR>"
Response.Write "<B>browserSistemaOperativo : </B>" & browserSistemaOperativo & "<BR>"
Response.Write "------------------------------------------------------------------" & "<BR>"
Response.Write "<B>cdoSendUsingMethod : </B>" & cdoSendUsingMethod & "<BR>"
Response.Write "<B>cdoSendUsingPort : </B>" & cdoSendUsingPort & "<BR>"
Response.Write "<B>cdoSMTPServer : </B>" & cdoSMTPServer & "<BR>"
Response.Write "<B>cdoSMTPServerPort : </B>" & cdoSMTPServerPort & "<BR>"
Response.Write "<B>cdoSMTPAuthenticate : </B>" & cdoSMTPAuthenticate & "<BR>"
Response.Write "<B>corpoMessaggio : </B>" & corpoMessaggio & "<BR>"
Response.Write "------------------------------------------------------------------" & "<BR>"
Response.Flush

With iMsg

Set .Configuration = iConf

.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.HTMLBody = "<font face=verdana size=2>Questi i dati inseriti nel modulo presente alla pagina <b> " & modulo & " </b>da utente con indirizzo IP <b>" & indirizzoIp & " </b> browser e sistema operativo <b>" & browserSistemaOperativo & "</b><br>" & corpoMessaggio
.Send

End With
%>
<script>
document.location.replace('grazie.asp');
</script>


GRAZIE A TUTTI
Pefix
324 messaggi dal 20 settembre 2001
www.iromtek.com
'Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServer) = "smtp.miodominio.it" 
Flds(cdoSendUserName) = "info@miodominio.it" 
Flds(cdoSendPassword) = "...PasswordDelmiodominio..." 


mi sa tanto che non riconosce questi valori

"Il problema delle persone è che cercano negli altri qualità che questi non posseggono mentre dovrebbero apprezzare ed esaltare le qualità che gli altri realmente posseggono"
13 messaggi dal 02 dicembre 2003
Sghillo ha scritto:
'Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServer) = "smtp.miodominio.it" 
Flds(cdoSendUserName) = "info@miodominio.it" 
Flds(cdoSendPassword) = "...PasswordDelmiodominio..." 


mi sa tanto che non riconosce questi valori


A quali valori ti riferisci?
Per verificare se le costanti sono valorizzate ho inserito nel codice alcune righe per visualizzare il loro valore.
Dal browser ricevo questo:
------------------------------------------------------------------
nomeDominio : localhost
indirizzoIp : 127.0.0.1
modulo : http://localhost/temp/form_info.html
browserSistemaOperativo : Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
------------------------------------------------------------------
cdoSendUsingMethod : http://schemas.microsoft.com/cdo/configuration/sendusing
cdoSendUsingPort : 2
cdoSMTPServer : http://schemas.microsoft.com/cdo/configuration/smtpserver
cdoSMTPServerPort : http://schemas.microsoft.com/cdo/configuration/smtpserverport
cdoSMTPAuthenticate : http://schemas.microsoft.com/cdo/configuration/smtpauthenticate
corpoMessaggio :
nome = Ciccio
cognome = De Ciccibus
tel = 02...
email = pefix@aaaaaaaaa.it
messaggio = form_info.htmlform_info.html
------------------------------------------------------------------
error '8004020f'
/temp/form_info.asp, line 76




Grazie mille Pefix

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.