Print Page | Close Window

Forum Login Tool from other folder

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=24748
Printed Date: 30 March 2026 at 4:18am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Forum Login Tool from other folder
Posted By: leiti
Subject: Forum Login Tool from other folder
Date Posted: 04 November 2007 at 7:59pm

Hello,

i have the following problem. in one folder I have installed webwiz forum, in another there is an application.

i want to user the quik login cookie as login for the other application. is this possible and how would this work?

thanks for your help!




Replies:
Posted By: leiti
Date Posted: 05 November 2007 at 6:16am
I tried it with the following self written function.
 
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



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net