Ciao a tutti, il contesto è un form di richiesta informazioni.
Mi sarebbe piaciuto inserire nel momento del clic sul pulante invia la richiesta, un ritorno di conferma richiesta con una mail all'utente che ha inserito la richiesta ma e qui che non capisco il codice viene processato senza problemi tanto e vero che va alla pagina voluta dopo l'inserimento della richiesta ma la mail di conferma non parte.![]()
Premetto che il sito è sullo spazio di aruba, che uso il cdosys_114 e che non sono per niente esperta, ho pensato ad un errore di etichette, di denominazione si submit ma lo controllate attentamente. Sarebbe più facile se almeno ci fosse un errore ma niente le informazioni le inserisce perfettamente anche nel database.
' *** Send An Email From A Web Page - CDOSYS_114
If (request ("submit")<> "") Then
Set usxMsg = CreateObject("CDO.Message")
Set usxConf = CreateObject("CDO.Configuration")
' Set the SMTP Server
Set Flds = usxConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
.Update
End With
With usxMsg
Set .Configuration = usxConf
.To = request.Form("E_MAIL")
.From = "info@nomesito.it"
.Subject = "Richieste/Informazioni"
.TextBody = "Buongiorno " &request("Cognome")&" ha ricevuto questa e-mail, perchè ha richiesto informazioni per "&request("DESCRIZIONE")&" "& vbCrLf & vbCrLf & "Grazie. Entro 24/48 h. ricevera' un ulteriore conferma. Cordiali saluti. "
.Fields.Update
.Send
End With
Response.redirect("richiesta_avvenuta.asp")
Set Flds = Nothing
Set usxMsg = Nothing
Set usxConf = Nothing
End If
%>
Vi ringrazio per l'attenzione, ciao Alessandra![]()

Rispondi quotando