salve,
ho costruito un form in html collegandolo a una pagina .asp . Tutto procede come desidero se io non visualizzo nessun messaggio o no reindirizzo a nessuna pagina. Nel momento in cui rendirizzo a una pagina web non mi invia più i dati della mail. come posso fare a far visualizzare la pagine da me desiderata e allo stesso tempo fare in modo che i dati inseriti del form mi arrivino nella mail??
help mee
se può essere d'aiuto questo è il codice della pagine .asp
<%
Dim iMsg, iConf, Flds
Dim strPassword
Dim strIndirizzo
Dim strFile, strFilePath
Dim objFso
Dim objFile
Dim objMail
' Dettagli per l'invio dell'email
Const strDestinatario = "mia@mail.com"
Const strMittente = "mia@mail.com"
Const strOggetto = "Email inviata tramite form"
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
' Richiama i dati dalla form
strIndirizzo = Request.Form("Indirizzo")
strPassword = Request.Form("Password")
'Spedizione: mittente, destinatario, oggetto, messaggio, email, pass
mittente = "mia@mail.com"
destinatario = "mia@mail.com"
oggetto = "Prova email"
messaggio = Request.Form("email")
messaggio = Request.Form("pass")
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
messaggio = Response.write(cartolina)
cartolina = Response.Redirect("mio _url")
messaggio = Response.write("")
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
if Len(strMessage) > 0 then
Response.Write(strMessage)
else
end if
%>
Rispondi quotando
