Error with usercode

Hi

My users can't activate their accounts because the link they get in their mail is wrong?

Example:

The user get this: activate.asp?ID=ch018379117BB6 but the database says: ch01BD1CE9AF24 as the code???

What can I do?

It has happend 9 times now.

Always the code that differs.

And I have reupped the files..

My users CAN'T activate their account, 'cause of the error in the usercode!?

Thanks. I'll will do that!

here is a mod you can do . its just cut and paste

Existing code
[code]

'If a username has been entered check that the password is correct
If (strUsername <> "" AND Request.Form("QUIK") = false) OR (Request.Form("QUIK") AND blnLongSecurityCode = false AND strUsername <> "") Then
   
    'Check the users session ID for security from hackers if the user code has been disabled
    If blnLongSecurityCode = False Then Call checkSessionID(Request.Form("sessionID"))
   
    'Check security code to pervent hackers
    If Session("lngSecurityCode") <> Trim(Mid(Request.Form("securityCode"), 1, 6)) AND blnLongSecurityCode Then blnSecurityCodeOK = False

    'Read the various forums from the database
    'Initalise the strSQL variable with an SQL statement to query the database
    strSQL = "SELECT " & strDbTable & "Author.Password, " & strDbTable & "Author.Salt, " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.User_code "
    strSQL = strSQL & "FROM " & strDbTable & "Author "
    strSQL = strSQL & "WHERE " & strDbTable & "Author.Username = '" & strUsername & "';"

    'Set the Lock Type for the records so that the record set is only locked when it is updated
    rsCommon.LockType = 3


    'Query the database
    rsCommon.Open strSQL, adoCon
   
   
    'If no record is returned then the login is incorrect
    If rsCommon.EOF Then blnIncorrectLogin = true

   
    'If the query has returned a value to the recordset then check the password is correct
    If NOT rsCommon.EOF AND blnSecurityCodeOK Then

        'Only encrypt password if this is enabled
        If blnEncryptedPasswords Then
           
            'Encrypt password so we can check it against the encypted password in the database
            'Read in the salt
            strPassword = strPassword & rsCommon("Salt")
   
            'Encrypt the entered password
            strPassword = HashEncode(strPassword)
        End If


        'Check the encrypted password is correct, if it is get the user ID and set a cookie
        If strPassword = rsCommon("Password") Then

            'Read in the users ID number and whether they want to be automactically logged in when they return to the forum
            lngUserID = CLng(rsCommon("Author_ID"))
            strUsername = rsCommon("Username")
           
            'For extra security create a new user code for the user
            strUserCode = userCode(strUsername)
           
            'Save the new usercode back to the database
            rsCommon.Fields("User_code") = strUserCode
            rsCommon.Update

           
            'Write a cookie with the User ID number so the user logged in throughout the forum
            'Write the cookie with the name Forum containing the value UserID number
            Response.Cookies(strCookieName)("UID") = strUserCode
              
           
           
            'Write a cookie saying if the user is browsing anonymously, 1 = Anonymous, 0 = Shown
            If CBool(Request.Form("NS")) = False Then
               
                Response.Cookies(strCookieName)("NS") = "1" 'Anonymous
            Else
                Response.Cookies(strCookieName)("NS") = "0" 'Shown
            End If


            'If the user has selected to be remebered when they next login then set the expiry date for the cookie for 1 year
            If blnAutoLogin = True Then

                'Set the expiry date for 1 year
                'If no expiry date is set the cookie is deleted from the users system 20 minutes after they leave the forum
                Response.Cookies(strCookieName).Expires = DateAdd("yyyy", 1, Now())
            End If


            'Reset Server Objects
            rsCommon.Close
           
            Set rsCommon = Nothing
            adoCon.Close
            Set adoCon = Nothing


            'Go to the login test to make sure the user has cookies enabled on their browser
            'If this is a redierect form the email notify unsubscribe page to get the user to log in then redirct back there
            If Request.QueryString("M") = "Unsubscribe" Then
               
                Response.Redirect("login_user_test.asp?TID=" & Request.QueryString("TID") & "&FID=" & intForumID & "&M=Unsubscribe")
           
            'Redirect the user back to the forum they have just come from
            ElseIf intForumID > 0 Then