Author |
Topic |
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 09:12:45
|
Ok my forum has been up and running for over 1 year. We have grown into many multiple categories and forums. So I wanted to implememnt the group categories feature but when I turn it on after setting up the groups this is the error I get.
Microsoft JET Database Engine error '80040e14'
The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
/inc_header.asp, line 141
Here is the code at that line (red is line 141):
if strGroupCategories = "1" then if Request.QueryString("Group") = "" then if Request.Cookies(strCookieURL & "GROUP") = "" Then Group = 2 else Group = Request.Cookies(strCookieURL & "GROUP") end if else Group = cLng(Request.QueryString("Group")) end if 'set default Session(strCookieURL & "GROUP_ICON") = "icon_group_categories.gif" 'Forum_SQL - Group exists ? strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, " strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES " strSql = strSql & " WHERE GROUP_ID = " & Group set rs2 = my_Conn.Execute (strSql) if rs2.EOF or rs2.BOF then Group = 2 strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, " strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES " strSql = strSql & " WHERE GROUP_ID = " & Group set rs2 = my_Conn.Execute (strSql) end if Session(strCookieURL & "GROUP_NAME") = rs2("GROUP_NAME") if instr(rs2("GROUP_ICON"), ".") then Session(strCookieURL & "GROUP_ICON") = rs2("GROUP_ICON") end if if instr(rs2("GROUP_IMAGE"), ".") then Session(strCookieURL & "GROUP_IMAGE") = rs2("GROUP_IMAGE") end if rs2.Close set rs2 = nothing Response.Cookies(strCookieURL & "GROUP") = Group Response.Cookies(strCookieURL & "GROUP").Expires = dateAdd("d", intCookieDuration, strForumTimeAdjust) end if
Any help would be appreciated. btw I have the following mods installed:
Webserach Photo Album Advanced color Picker Links Conquer Chat Private Messages Recurring Events Calender Basic Site Statistics Poll Mod IP Ban Users IP Search
You can visit my forum here:
http://www.ftpdreams.com |
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 09:50:26
|
here it is:
SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, FROM FORUM_GROUP_NAMES WHERE GROUP_ID = 2 |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 18 December 2003 : 10:09:09
|
'Forum_SQL - Group exists ?
strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, "
strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
strSql = strSql & " WHERE GROUP_ID = " & Group
set rs2 = my_Conn.Execute (strSql)
if rs2.EOF or rs2.BOF then
Group = 2
strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, "
strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
strSql = strSql & " WHERE GROUP_ID = " & Group
set rs2 = my_Conn.Execute (strSql)
end if
Session(strCookieURL & "GROUP_NAME") = rs2("GROUP_NAME")
if instr(rs2("GROUP_ICON"), ".") then
Session(strCookieURL & "GROUP_ICON") = rs2("GROUP_ICON")
end if
if instr(rs2("GROUP_IMAGE"), ".") then
Session(strCookieURL & "GROUP_IMAGE") = rs2("GROUP_IMAGE")
end if
rs2.Close
set rs2 = nothing
Response.Cookies(strCookieURL & "GROUP") = Group
Response.Cookies(strCookieURL & "GROUP").Expires = dateAdd("d", intCookieDuration, strForumTimeAdjust)
At the line in red, remove the ',' highlighted in green at the end, before the double quote. |
Snitz 3.4 Readme | Like the support? Support Snitz too |
|
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 10:16:58
|
Ok did that, same error and message. |
|
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 10:33:40
|
Correction.... New Error Now after doing the above.
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/inc_header.asp, line 153
Here's the code:
if instr(rs2("GROUP_IMAGE"), ".") then Session(strCookieURL & "GROUP_IMAGE") = rs2("GROUP_IMAGE") end if |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 18 December 2003 : 10:42:45
|
Yeah, I can see why, that field is not being requested in the SQL statement.
Change the red lines as shown:
'Forum_SQL - Group exists ?
strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE "
strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
strSql = strSql & " WHERE GROUP_ID = " & Group
set rs2 = my_Conn.Execute (strSql)
if rs2.EOF or rs2.BOF then
Group = 2
strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE "
strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
strSql = strSql & " WHERE GROUP_ID = " & Group
set rs2 = my_Conn.Execute (strSql)
end if
Session(strCookieURL & "GROUP_NAME") = rs2("GROUP_NAME")
if instr(rs2("GROUP_ICON"), ".") then
Session(strCookieURL & "GROUP_ICON") = rs2("GROUP_ICON")
end if
if instr(rs2("GROUP_IMAGE"), ".") then
Session(strCookieURL & "GROUP_IMAGE") = rs2("GROUP_IMAGE")
end if
rs2.Close
set rs2 = nothing
Response.Cookies(strCookieURL & "GROUP") = Group
Response.Cookies(strCookieURL & "GROUP").Expires = dateAdd("d", intCookieDuration, strForumTimeAdjust)
|
Snitz 3.4 Readme | Like the support? Support Snitz too |
|
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 10:56:29
|
Ok that fixed it, but when I add a title image in the admin options where is it suppose to show up? Can't get an image to display when I select that group? |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 20:43:01
|
What I want to do is when a forum group is accessed I want to have a different banner ad display right above the forum. But set ones with each group. Like the jokes section would have one etc etc. Don't know how to do it. |
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
|
bwatford
Starting Member
10 Posts |
Posted - 18 December 2003 : 20:56:01
|
SO how do I add the banner image display for different groups? |
|
|
|
Topic |
|