Registrazione utente e pagina di conferma

[Pierhagi]

Ciao a tutti

ho realizzato una pagina di registrazione nuovo utente nella quale faccio inserire tra le altre cose:

...
user
pssw
email
codice di registrazione con controllo random
...

visto che è la mia prima pagina mi mancano degli elementi per proseguire.

Vorrei capire qual'è il codice che recupera l'indirizzo email dell'utente appena registrato lo abbina al "codice di registrazione" invia un email all'utente con il link di conferma registrazione che è composto dalla sua email + il codice di registrazione creato in random?

Presumo o meglio chiedo fa parte della pagina conferma o regsitra?

L'inserimento dei dati l'ho fatto e funziona....funziona anche la creazione e l'inserimento del codice ri registrazione.

Potete aiutarmi?

Pier

[lucalicc]

immagino che nella pagina che inserisce i dati del nuovo utente
recuperi tutti i dati, tra cui il nome utente, l'email e il codice di controllo.
Quando termini il codice che inserisce il nuovo utente,
inserisci il codice che invia la mail di attivazione
e nel corpo del messaggio inserisci un link del tipo:

per attivare il tuo account clicca su questo link
http://www.tuosito.it/pagina_di_aute...ione.asp?user=<%=request.form("user")%>&controllo=<%=request.form("controllorandom")%>

luca

[Pierhagi]

Ciao lucalicc

si inserisco i dati del nuovo utente x la registrazione al sito.

Quello che non riesco a creare è proprio il codice che invia l'email di attivazione, non potresti darmi un esempio di codice funzionante?

Io con la spedizione di email ho solo un precedente con un form contatti che utilizza cdosys ed in + c'è del codice javascript mentre nella mia pagina di registrazione vorrei utilizzare solo asp + vbscript.

Pier

[lucalicc]

questo è solo un esempio, ovviamente sostituisci i valori dinamici
preso dal tuo form con i nomi dei campi corretti:

<%
Dim iMsg, iConf, Flds

'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

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "mittente@tuodominio.xx"
destinatario = request.form("email")
oggetto = "Sito xyz - Attivazione account"
messaggio = "Per attivare il tuo account clicca su questo link:
[url]www.tuodominio.xx/user=[/url]" & request.form("user") &  "&code=" & request.form("random_code") & "

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto
.TextBody = messaggio

'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%> 

[Pierhagi]

Ciao lucalicc

grazie x il codice e per l'aiuto ma purtroppo non va. Il codice mi da questo errore:

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/registra.asp, line 225

a quella riga c'è:

.Send()

...ma non credo che sia questo il problema...credo che il mio server non abbia gli oggetti adatti per spedire questo tipo di email, è possibile?

Pier

[lucalicc]

questo codice è più completo
è preso dal vedemecum di Aruba (non so che hosting usi)
ovviamente aggiorna i parametri del server smtp

<%
'* voce da modificare con il proprio indirizzo email
miaEmail = "info@xyz.it"

'------------fine modifiche necessarie------------------

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = request.form("email")
.From = miaEmail
.Sender = miaEmail
.Subject = "Attivazione account sito xyz "
.TextBody = "Per attivare il tuo account clicca su questo link" & vbCrLf & "http://www.xyz.it/user=" & request.form("user") & "&code=" & request.form("random_code") & ""
.Send
End With
%>