aiuto form prenotazione

[mitzi]

salve a tutti
ho un problema ke non riesco a capire e sxo ke voi mi possiate aiutare. ho fatto una form di prenotazionex un dvd, il bottone della pag html si rikiama quella in asp :

************************************************** ******************


<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

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

'* voce da modificare con il proprio indirizzo email

invioA = ""

'* 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 = ""

'------------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 & 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.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 & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('disobbedienzacivile_gra zie.asp');
</script>

************************************************** *******************
a me sembra tutto ok, ma mi sapete dire perchè un giorno funziona e quello dopo no? da cosa può dipendere?

grazie in anticipo
M.

[99eros9]

In che modo non funziona? dovresti spiegare meglio se viene generato un errore specifico, oppure?

[mitzi]

hai ragione, fino a ieri mattina funzionava in modo perfetto. ieri pomeriggio apparentemente funzionava, non generava nessun errore ma le mail non arrivavano. Stamattina qualche mail è arrivata e qualche altra no!
da cosa potrà mai dipendere? quanto può essere affidabile?
gazie
M.

[99eros9]

dipende dal server. Quanto può essere affidabile? Nel tuo caso non molto. :-) prova a contattare l'amministratore

[mitzi]

in realtà questo script gira su hostingsolutions e non aruba ?
conosci qualke altro script migliore e + solido?
grazie
M.

[skykids]

Ciao

Conosco lo script perche anche io l'ho istallato su server aruba..

I server di posta aruba non sono molto affidabili pensa che ci sono qualche milione di utenti che mandano email al giorno,cmq visto che questo gira su hostingsolutions cambia anche qui:

Flds(cdoSMTPServer) = "smtp.aruba.it"

e metti quello del tuo hoster

Ciao