Ciao...
ho una pagina dove c'è un modulo di registrazione al sito, dove si inseriscono i dati dell'utente...
voglio che tale modulo venga trasmesso tramite email
come fare?
Ciao...
ho una pagina dove c'è un modulo di registrazione al sito, dove si inseriscono i dati dell'utente...
voglio che tale modulo venga trasmesso tramite email
come fare?
spero che almeno sai come recuperare i dati inseriti nel form, se si vai al seguente indirizzo e dacci un occhiata:
http://asp.html.it/script/lista/30/email/
![]()
<head> Nothing! </head>
<body> Open your mind and close your ass !!! </body>
potresti cortesemente farmi un esempio?
io ho un form di registrazione con determinati campi da compilare...
voglio inviare qst form via email.
aiutami per favore
so problemi però non sai nulla di asp.......azz...un corso no??? ti stiamo facendo il sito....
mmm comunque...inserisci questo codice dopo il codice che salva i dati nel db.
email = request.form("email") ' oppure request.querystring dipende
Body = ""
xVar = Server.Mappath("TestoEmail.txt")
Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
Set Txt = Sys.OpenTextFile( xVar, 1 )
Body = Txt.ReadAll
Txt.Close
If Body<>"" Then
'Utilizzo questa variabile per inserire il messaggio: riceverai la sunpass solo
'se l'utente che si stà registrando non è già cliente
strCliente = ""
Body = Replace(Body, "$Nome$", Request("Nome"))
Body = Replace(Body, "$Cognome$", Request("Cognome"))
Body = Replace(Body, "$Indirizzo$", Request("Indirizzo"))
'qui ci metti tutte le altre info che vuoi inviare
Set aMail = new cNewMail
aMail.pFrom = Application("E-SENDER")
aMail.pSubject = "Benvenuto nuovo utente!!"
aMail.pBody = Body
aMail.pMailFormat = CdoMailFormatMime
aMail.pBodyFormat = CdoBodyFormattext
aMail.pImportance = CdoHigh
'Invia l'email all'utente
aMail.pTo = email
ret1 = aMail.SendMail
'Test per vedere se sis registrano due volte
aMail.pTo = "la tua email caro"
ret1 = aMail.SendMail
End If
Nel file invece TestoEmail.txt scrivi:
- Sei un nuovo Socio!
I tuoi dati:
Nome : $Nome$
Cognome : $Cognome$
Indirizzo : $Indirizzo$
Stop! Buon lavoro......
chiedo scusa per la mia ignoranza (dovuta a dimenticanza...ho ripreso ASP dopo non so quanti anni)...
cmq grazie ancora