29 dicembre 2003 alle 11:51:58 Utilizzo la conferma dell'iscrizione via e-mail e ho scoperto per caso, provando un mod per il forum di Sam Taylor, che gli utenti che convalidano l'iscrizione per il sito, non la convalidano anche per il forum, non riuscendo così a scriverci dentro.
Come posso fare per rendere valida sia l'iscrizione al sito, sia l'abilitazione del forum via email, senza dover intervenire io per abilitare l'utente?
--------------- Gaspare http://www.ressa.net
azzurro
Amatore
46 Discussioni
30 dicembre 2003 alle 10:51:50 nessuno può aiutarmi?
--------------- Gaspare http://www.ressa.net
nerocdb
Amatore
25 Discussioni
30 dicembre 2003 alle 16:34:51 Io ho risolto scaricando una patch dal sito di Sam www.stzone.it
Ciao
azzurro
Amatore
46 Discussioni
30 dicembre 2003 alle 19:30:16 esattamente quale?
--------------- Gaspare http://www.ressa.net
bloobs2003
Utente
81 Discussioni
30 dicembre 2003 alle 21:21:44 Modificato il 30 dicembre 2003 alle 21:24:49Buona Sera a tutti x Azzurro questa è la modifica da effetturare
' Sostituire integralmente, o se preferite solo le modifiche apportate, 'alla funzione ConfirmAccount() del file INCLUDES/account-inc.asp
' Confirm account registration if bAutoSignup is set to False ' IN : iUserId (int) : user's id (table users, field uID) ' : sUserLogin (string) : user's login (table users, field uLogin) ' : sUserPassword (string) : user's password (table users, field uPassword) Function ConfirmAccount(iUserID, sUserLogin, sUserPassword) Dim oCn, oCn2, oRs, rSQL, rSQL2, bDone
bDone = False
If iUserID <> "" Then Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT uID FROM Users WHERE uID=" & iUserID & " AND uLogin='" & SQLEncrypt(sUserLogin) & "' AND uPassword='" & SQLEncrypt(sUserPassword) & "' AND uValid=0" Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then rSQL = "UPDATE Users SET uValid=1 WHERE uID=" & iUserID DBExecute oCn, rSQL
Set oCn2 = DBConnexion(DB_FORUM) rSQL2 = "UPDATE Users SET UserValid=1 WHERE UserLogin='" & SQLEncrypt(sUserLogin) & "'" DBExecute oCn2, rSQL2
bDone = True
oCn2.Close Set oCn2 = Nothing End If
oCn.Close Set oCn = Nothing Set oRs = Nothing End If
ConfirmAccount = bDone End Function
Ovviamente tutto il merito va a SamTaylor Auguro un felicissimo anno a tutta la community aspnuke
--------------- L'umiltà è la virtù dei grandi... http://www.blooobs.com/aspnuke
azzurro
Amatore
46 Discussioni
30 dicembre 2003 alle 22:38:18 lo provo e ti faccio sapere.