Ciao,
sto utilizzando questo codice per elaborare le informazioni mandate da un form, che dovrebbero essere poi spedite via e-mail. Sto lavorando in locale.
codice:<% invioA = STR_EMAIL invioDa = STR_EMAIL 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 & vbCrLf & 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_SERVER_MAIL Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = invioA .From = Request.Form("E-mail") .Sender = invioDa .Subject = "Contatto dal dominio " & nomeDominio .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & "" .Send End With %> <script> document.location.replace('<%= modulo & "?dm=yes"%>'); </script>
Una volta inviati i dati dal form appare però questo errore:
Tipo di errore:
CDO.Message.1 (0x80040213)
Il trasporto non è riuscito a connettersi al server.
/components/form/includes/contact_data-inc.asp, line 44
Da cosa può dipendere?
Saluti,
Carlostefano

Rispondi quotando