05 febbraio 2003 alle 16:18:22 Manca la seguente riga nella funzione ConfirmAccount: DBExecute oCn2, rSQL Quindi se bautosignup is false nessuno riesce a scrivere nel forum anche dopo essersi validato. Riporto tutta la funzione per individuare precisamente il punto della variazione. Ora funziona correttamente. Tutti gli iscritti al mio sito non riuscivano a scrivere...
Function ConfirmAccount(iUserID, sUserLogin, sUserPassword) Dim oCn, oCn2, oRs, rSQL, 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) rSQL = "UPDATE Users SET UserValid=1 WHERE UserLogin='" & SQLEncrypt(sUserLogin) & "'" DBExecute oCn2, rSQL
bDone = True
oCn2.Close Set oCn2 = Nothing End If
oCn.Close Set oCn = Nothing Set oRs = Nothing End If