Errore invio email da modulo web vps aruba

[klinik]

Salve, uso un modulo richiesta informazioni da un bel po di anni su server windows aruba senza problemi, poi ho preso un server virtuale base, successivamente aggiornato al pro, con windows 2003 ed anche là il modulo funziona.
Adesso ho preso un altro server vps pro con windows 2008 R2 ed il modulo web non funziona più.... mi da errore:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.

lo script:






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

'* voce da modificare con il proprio indirizzo email


richiesta = Request.Form("richiesta")

invioA = "info@sito.it"

oggetto= "Richiesta informazioni dal sito Sito.it "


invioDa = " "

'------------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 & "
" & 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(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = oggetto
.HTMLBody = "

<font face=verdana size=2>Questi i dati inseriti nel modulo richiesta informazioni da un visitatore:
" & corpoMessaggio & "

<hr size=1 color=red> Indirizzo IP " & indirizzoIp & "
Browser e sistema operativo " & browserSistemaOperativo & "
"


.Send
End With
%>

<center>
<font face=verdana size=2 color=red>













Richiesta inviata, riceverete risposta quanto prima



<meta http-equiv="refresh" content="3; URL=index.asp">

Non ne vengo fuori.....

[Roby_72]

E l'errore quale sarebbe?

Roby

[flender]

ciao,
ho il tuo stesso problema. Sei riuscito a risolvere ?

grazie

[Vincent.Zeno]

avete chiesto in assistenza?
avete chiesto se cdosys è supportato o se ci sono modifiche o settaggi da fare?

rendeteci edotti sull'esito

[Massimo61]

Originariamente inviato da klinik
Salve, uso un modulo richiesta informazioni da un bel po di anni su server windows aruba senza problemi, poi ho preso un server virtuale base, successivamente aggiornato al pro, con windows 2003 ed anche là il modulo funziona.
Adesso ho preso un altro server vps pro con windows 2008 R2 ed il modulo web non funziona più.... mi da errore:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.

lo script:






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

'* voce da modificare con il proprio indirizzo email


richiesta = Request.Form("richiesta")

invioA = "info@sito.it"

oggetto= "Richiesta informazioni dal sito Sito.it "


invioDa = " "

'------------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 & "
" & 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(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = oggetto
.HTMLBody = "

<font face=verdana size=2>Questi i dati inseriti nel modulo richiesta informazioni da un visitatore:
" & corpoMessaggio & "

<hr size=1 color=red> Indirizzo IP " & indirizzoIp & "
Browser e sistema operativo " & browserSistemaOperativo & "
"


.Send
End With
%>

<center>
<font face=verdana size=2 color=red>













Richiesta inviata, riceverete risposta quanto prima



<meta http-equiv="refresh" content="3; URL=index.asp">

Non ne vengo fuori.....

Ciao,

il modulo non è completo, passi un valore vuoto invioDa = " " che è nel .Sender

il .Sender serve per ricevere comunicazione ad un indirizzo email inserito in caso di mancato recapito della mail, di solito si mette il postmaster@email.ext che è l'indirizzo predefinito del servermail.

Non recuperi tutti i campi richiesti (comunque non pregiudica il non funzionamento dalla libreria CDO).

Su server 2008 R2 (condiviso) funziona correttamente.

Prova cosi:

Form:

<form action="invia.asp" method="post">
Email Mittente: <input type="text" name="email">
Richiesta: <textarea name="richiesta"></textarea>
<input type="submit" value="Invia">
</form>

Pagina invia.asp:

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

'* voce da modificare con il proprio indirizzo email


richiesta = Request.Form("richiesta")

invioA = "info@sito.it"

oggetto= "Richiesta informazioni dal sito Sito.it"

invioDa = "email@mancatorecapito.it"
'invioDa = ""

'------------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 & "
" & 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(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = oggetto
.HTMLBody = "

<font face=verdana size=2>Questi i dati inseriti nel modulo richiesta informazioni da un visitatore:
" & corpoMessaggio & "

<hr size=1 color=red> Indirizzo IP " & indirizzoIp & " 
Browser e sistema operativo " & browserSistemaOperativo & "

 Dal Dominio: "&nomeDominio&"

Pagina invio: "&modulo&"

 Email: "&Request.Form("email")& "

 Messaggio: "&Request.Form("richiesta")& " "                 


.Send
End With
%>

<center>
<font face=verdana size=2 color=red>













Richiesta inviata, riceverete risposta quanto prima

Prova se adesso funziona, in altro fai una prova con Persits.Mailer



Massimo.