Pagina di REGISTRAZIONE
codice:
dim apri, chiudi
apri = "<html><body text='#000000' bgcolor='#0099FF' link='#000000' vlink='#000000' alink='#000000'>"
chiudi = "</body></html>"
'-----------------------------------------------------
'# Codice che invia l'email per l'utente
'-----------------------------------------------------
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "webmaster@miosito.it"
MiaMail.To = email
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
MiaMail.Subject = "Grazie per esserti registrato al sito internet miosito.it"
emailbody = "<font face=Verdana size=2>Benvenuto" & username & " sul sito web www.nomesito.it
Il suo account non sarà attivato finchè non verrà confermata la registrazione. Per farlo clicchi sul link sottostante
<p align='center'>[b]Clicca qui per attivare il tuo account[b]</p>
Lo staff di Nomesito.it</font>"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.HtmlBody = apri & emailbody & chiudi
MiaMail.Send()
Set MiaMail = Nothing
' # fine codice email
PAGINA DI ATTIVAZIONE
codice:
'apri connessione
dim id
id = request.querystring("key")
verificato = 1
Conn.Open strConn
sql = "UPDATE TABDATABASE set verificato=" & verificato & " WHERE username='" & id & "'"
Conn.Execute(sql)
response.write("<p align='center'><font face='Verdana' size='3'>Il suo account è stato attivato con successo
Clicca qui per effettuare il login</font></p>")
Conn.close
set Conn = nothing
dovrebbe andare... fai le opportune correzioni al codice
Permessi di invio
Rispondi quotando