17 gennaio 2004 alle 13:15:16

' Sostituire integralmente,
'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