Snitz Forums 2000 - Help needed on Active Users version 4.0.17

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Help needed on Active Users version 4.0.17

New Topic

Topic Locked

Printer Friendly

Author

Topic

Nijii
Starting Member

Greenland
49 Posts

Posted - 18 February 2006 : 21:43:03

I have just installed Active Users version 4.0.17 picked from Nathan's profile but got the error below after following all the instructions. I tried to find the answer to the error in other topics but can't seem to find any.

------------------------
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression 'MEMBER_ID ='.
/snitz/inc_func_common.asp, line 57
------------------------------------
This is from inc_func_common.asp

'Ls3k- First Order of business, is this person new?
if MemberID="-1" then 'If this is a Guest, check by IP
strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' AND MEMBER_ID = -1"
else 'If this is a Member, check by Member_ID
strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = " & MemberID
end if
Line 57 is: set rs = my_conn.execute (strSql)

I need help!

Edited by - Nijii on 18 February 2006 21:46:13

masterao
Senior Member

Sweden
1678 Posts

Posted - 19 February 2006 : 04:28:27

On which page do you get that error? Could you please post a link to a text-version of that page and of inc_header.asp?

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

Edited by - masterao on 19 February 2006 05:12:06

Nijii
Starting Member

Greenland
49 Posts

Posted - 19 February 2006 : 09:46:08

quote:
Originally posted by masterao

On which page do you get that error? Could you please post a link to a text-version of that page and of inc_header.asp?

The error comes from the default page but I got it on other pages too.
Here are text versions of the inc_header and inc_func_common.

inc_func_common.txt
inc_header.txt

Edited by - Nijii on 22 February 2006 15:03:02

masterao
Senior Member

Sweden
1678 Posts

Posted - 19 February 2006 : 10:40:19

The following section from inc_header.asp seems to have been mixed up and is the cause of the error.

if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then
select case Request.Form("Method_Type")
  case "login"
	if strLoginStatus = 1 then
	  AUHandleLoging() 
	end if
  case "logout"
    AUHandleLoging() 
end select
ActiveUserTracker()
	chkCookie = 1
	mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
	chkCookie = 0
else
	MemberID = -1
	mLev = 0
end if

Replace the above code with the following, and it will work.

select case Request.Form("Method_Type")
	case "login"
		strEncodedPassword = sha256("" & Request.Form("Password"))
		select case chkUser(strDBNTFUserName, strEncodedPassword,-1)
			case 1, 2, 3, 4
				Call DoCookies(Request.Form("SavePassword"))
				strLoginStatus = 1
			case else
				strLoginStatus = 0
			end select
	case "logout"
		Call ClearCookies()
end select

if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then
	chkCookie = 1
	mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
	chkCookie = 0
else
	MemberID = -1
	mLev = 0
end if

select case Request.Form("Method_Type")
  case "login"
	if strLoginStatus = 1 then
	  AUHandleLoging() 
	end if
  case "logout"
    AUHandleLoging() 
end select
ActiveUserTracker()

Let me know how it goes.