Forum Login Tool from other folder

 

Problem: I think I can't read webwiz Cookies?

 

FUNCTION loginForum()

 strLoggedInUserCode = Trim(Mid(Request.Cookies("WWFsLID")("UID"), 1, 44))

 If NOT strLoggedInUserCode = "" Then
 
  Set ConnF = Server.CreateObject("ADODB.Connection")                                               
  ConnF.Open(strConnForum) 
 
  'Initalise the strSQL variable with an SQL statement to query the database
  strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Active, tblAuthor.Banned, " & _
  "FROM tblAuthor, tblGroup " & _
  "WHERE tblAuthor.Group_ID  = tblGroup.Group_ID " & _
   "AND tblAuthor.User_code = '" & strLoggedInUserCode & "';"
 
  set rsForumUser = ConnF.Execute(strSQL)
 
  'If the database has returned a record then run next bit
  If NOT rsForumUser.EOF Then
 
   'Read in the users details from the recordset
   strLoggedInUsername = rsForumUser("Username")
   intGroupID = rsForumUser("Group_ID")
   lngLoggedInUserID = CLng(rsForumUser("Author_ID"))
   blnActiveMember = CBool(rsForumUser("Active"))
   blnBanned = CBool(rsForumUser("Banned"))
   
   If blnActiveMember = False OR blnBanned Then
    loginForum = ""
   else
    loginForum = lngLoggedInUserID
   end if
  End If
 
  ConnF.Close()
  set ConnF = nothing
 End If 

END FUNCTION