Ecco il codice della pagina mail.asp:
codice:
<%
DIM invioA
invioA = "miaemail@miosito.it"
nomeutente= request.Form("user")
nome= Request.form("nome")
cognome= Request.form("cognome")
mailutente= Session("ricordamail")
passutente= Request.form("password")
link="http://www.miosito.it/conferma.asp?password="
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.miosito.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous
Flds.Update
With iMsg
Set .Configuration = iConf
iMsg.To = invioA
iMsg.From = request("email")
iMsg.Sender = request("email")
iMsg.Subject = "Richiesta iscrizione"
iMsg.HtmlBody = "<html><head></head><body>Ciao " & nome & cognome & " hai ricevuto questa e-mail perchè hai richiesto l'iscrizione al nostro sito. La password che ti è stata assegnata è: " & passutente & "
<div align=""center"">Per confermare l'iscrizione clicca su questo link: " & link & Request.form("password")
iMsg.Send
Set iMsg=Nothing
End With
%>
<script>
document.location.replace('http://www.miosito.it/send.asp');
</script>
Tieni conto che se inserisco una mail diretta (es. "miaemail@email.it") nei campi:
codice:
iMsg.From = request("email")
iMsg.Sender = request("email")
tutto funziona correttamente!
Ho provato anche ad aggiungere il .form ma niente non funziona non "legge i campi"!!!
Forse li perdo in quanto li invio ad database?!? Infatti anche se arriva la mail i campi che devo prendere dal form non si visualizzano!!
Ho provato anche a fare così: mailutente= Session("ricordamail") inserendo un campo nascosto nella pagina del form...
Aiuto... qualche suggerimento?
Rispondi quotando
