invio email da form in ASP

[Unideanet]

salve,

ho fatto un modulino che con un codice asp invia ad una mail i dati, ma a volte non funziona o funziona con molto ritardo (il server è aruba)
nessuno di voi veterani mi sa dir qualcosa? ci sono errori nel codice o è un problema di aruba?

CODICE USATO:---
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = mittente
Mail.From = Request.Form("email")
Mail.Subject = "Email dal modulo di www.lameridianabeb.com"
Mail.TextBody = messaggio
Mail.Send
Set Mail = nothing

nome=Request.Form("fromName")
cnome=Request.Form("fromSurname")
email=Request.Form("email")
tel=Request.Form("telefono")
volevo=Request.Form("cusale")
messaggio=Request.Form("note")
%>
<font face="Tahoma" size="2">
<%
response.write "Il Suo messaggio è stato spedito con successo, " & nome & " " & cnome
response.write " grazie per averci contattato, La ricontatteremo al più presto ad uno dei recapiti da Lei fornitici. "
%>
<%
response.write "Qui di seguito puo' rivedere i dati da Lei inviatici, in caso di errori ricompili il modulo correttamente, grazie "&vbCrLf
%>
<%
%>
<%
response.write "Nome: " & nome %>
<%
response.write "Cognome: " & cnome %>
<%
response.write "IP del compilante: " & ippo %>
<%
response.write "Email: " & email %>
<%
response.write "Tel: " & tel %>
<%
response.write "Voleva: " & volevo %>
<%
response.write "Messaggio: " & messaggio%>
<%
%>

<%
response.write "I dati forniti non vengono registrati in un database ma solo inviati alla Nostra email, "
%>
<%
response.write " lì la richiesta è evasa e i dati sono registrati per esigenze di prenotazione oppure cancellati."
%>
<%
response.write " Per nessuna ragione vengono mostrati a terzi. "
%>
</font>


----------------

[yoyo87]

vai pure qui:
http://vademecum.aruba.it/start/cont...tto.htm#cdosys

[Unideanet]

ok grazie,
ma secondo te c'è differenza tra il codice proposta da aruba:

<%
Set link = CreateObject("CDONTS.Newmail")
link.From = request.form("email")
'sostituire mio indirizzo email con vostro indirizzo email
link.To = "webmaster@masterbass.com"
'sostituire -Mail creata da un server- con il vostro oggetto
link.Subject = "Mail creata da un server"
link.Body = request.form("mex")
link.Send
Set link = Nothing
%>

ed il mio:
<%
Set Mail = Server.CreateObject("CDO.Message")
Mail.To = mittente
Mail.From = Request.Form("email")
Mail.Subject = "Email dal modulo di www.lameridianabeb.com"
Mail.TextBody = messaggio
Mail.Send
Set Mail = nothing
%>

[Unideanet]

poi ribadisco, se alcune volte funziona, può essere che solo ci siano ritardi e stasera non abbia ancora funzionato?

è una domanda la mia, ma la cosa penso possa esser interessante, se infatti un codice ha un errore, NON dovrebbe funzionar mai. O no?

[yoyo87]

la differenza era per farti vedere questa parte:

Set Mail = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Flds = Config.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

[Unideanet]

ok ti ringrazio ma non essendo un esperto di ASP per me è abbstanza oscura la differenza a questo punto, devi dire che mi sembrava che il mio codice funzionasse, finché ho visto che pare dare delle defaillance, cioè stasera per esempio non funziona, a volte sembra ritardare ecc ecc, che devo fare? devo imparare quel sistema che hai proposto tu?

e del mio mi sai dir nulla, voglio dire, è statao usato, avrà una sua funzionalità (?) e perché a volte va e a volte no, ne hai idea?

grazie

[yoyo87]

sinceramente non so riponderti, so solo che aruba non è proprio il massimo...

Cmq vai sicuro che quello script che ti ho proposto è sicuro

Scusa se non posso aiutarti nelle altre domande...semmai chiedi a qualcun'altro


CIAO

[Unideanet]

ok grazie, ma allora che serve è migliore per chi necessita di fare spesso form con asp?

grazie

[santino83]

secondo me devi integrare il tuo script con questo che dice aruba:

Set Config = CreateObject("CDO.Configuration")
Set Flds = Config.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

poi che vuol dire che ogni tanto funziona o ogni tanto no? da errore o semplicemente non arriva l'email? arriva in ritardo? potrebvbe essere il server di posta di aruba che è un pò lentuccio in determinati momenti

[Unideanet]

a volte mi mando una mail e mi arriva dopo un'ora o più... daché non son sicuro che non me ne perda qualcuna...

a volte funziona seza problemi, se a volte funziona dovrebbe funzionar sempre, onnò? però è lento.

Ma io non son sicuro se qualcje volta mi frega.

il codice basta che aggiungo quelle riche al mio script oppure è iù cpmlesso, io ho provato ma mi dà errore!

forse ci sono server migliori di ARUBA?