Grap the username outside the forum ?

Does anyone know how i can grap the username outside the forum. ?  It could be on my frontpage...etc.

I have tried to grap it with the cookies and strLoggedInUsername .... But no luck





Edited by Sundsdal - 17 February 2008 at 5:10pm

I know....   but im using the code from the forum:

'Read in users ID number from the cookie
strLoggedInUserCode = Trim(Mid(Request.Cookies("Forum")("UserID"), 1, 40))

'###strLoggedInUserCode = Request.Cookies("Forum")("UserID")

'Replace harmful SQL quotation marks with doubles
strLoggedInUserCode = Replace(strLoggedInUserCode, "'", "''", 1, -1, 1)
'Make the usercode SQL safe
'strLoggedInUserCode = formatSQLInput(strLoggedInUserCode)

'If a cookie exsists on the users system then read in there username from the database
If isEmpty(strLoggedInUserCode) = False Then

    'Intialise the ADO recordset object
    Set rsLoggedInUser = Server.CreateObject("ADODB.Recordset")
   
    'Initalise the strSQL variable with an SQL statement to query the database
   
        strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Active, tblAuthor.Signature, tblAuthor.Author_email, tblAuthor.Status, tblAuthor.Redaktion "
        strSQL = strSQL & "FROM tblAuthor "
        strSQL = strSQL & "WHERE User_code = '" & strLoggedInUserCode & "';"


       
    'Query the database
    'rsLoggedInUser.Open strSQL, strCon
    Set rsLoggedInUser = Conn.execute(strSQL)
   
    'If the database has returned a record then run next bit
    If NOT rsLoggedInUser.EOF Then
       
        'Before getting the users details make sure then are not trying to log in under the guest account
        If rsLoggedInUser("Author_ID") <> 2 Then
            'Read in the users details from the recordset
            strLoggedInUsername = rsLoggedInUser("Username")
        .....
......
......  etc.

I should be able to read the username this way.... right ?

Yep i know.... talking to myself here :-) BUT i figured it out.... and i works now.

I edited in this strLoggedInUserCode = Trim(Mid(Request.Cookies("Forum")("UserID"), 1, 40))