Help!
I am attempting to use Nikkols UserGroup Beta http://forum.snitz.com/forum/topic.asp?TOPIC_ID=45449 to customize my portal page depending on the groups which a user belongs. I currently have this code strSql = "SELECT U.USERGROUP_NAME, U.MEM_HIDE FROM " & strTablePrefix & "USERGROUPS U, " &_
strTablePrefix & "USERGROUP_MEMBERS UM " &_
"WHERE U.USERGROUP_ID = UM.USERGROUP_ID " &_
"AND UM.MEMBER_TYPE = 1 " &_
"AND UM.MEMBER_ID = " & MemberID & " " &_
"ORDER BY U.USERGROUP_NAME"
set rsGroups = my_Conn.execute(strSql)
arGroups = Null
if not rsGroups.bof and not rsGroups.eof then arGroups = rsGroups.GetRows
rsGroups.close
set rsGroups = Nothing
strGroups = ""
if not IsNull(arGroups) then
for iGcount = LBound(arGroups,2) to UBound(arGroups,2)
if (arGroups(1,iGcount) = 0 or mlev = 4) then
if strGroups <> "" then strGroups = strGroups & ", "
strGroups = strGroups & arGroups(0,iGcount)
end if
next
end if
which loads the group names into an array arGroups
Then I thought I could do something like this to check groups and display different menus etc if not IsNull(arGroups) then
for iGcount = LBound(arGroups,2) to UBound(arGroups,2)
if arGroups(0,iGcount) = "MainGroup" then
%>
<!--#include file="inc_news.asp" -->
<!-- #include file="inc_spacer.asp" -->
<!-- #include file="inc_spacer.asp" -->
<%
end if
next
end if
but this gives me errors in my includes such as thisMicrosoft VBScript compilation error '800a03ea'
Syntax error
/inc_news.asp, line 104
Function RemoveSignature(strExpression, strRemove)
which I cannot define.
I think this will be a good way to organize my site if I could figure out how to do it. Thanks in advance!