Error Type:
Microsoft VBScript runtime (0x800A01FB)
An exception occurred: 'my_Conn.Execute'
/snitztest/inc_functions.asp, line 2156


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461; .NET CLR 1.0.3705) 

Page:
GET /snitztest/usergroups.asp 

Time:
Wednesday, May 29, 2002, 4:39:01 PM 


More information:
Microsoft Support 

Function IsGroupParentAdmin(GroupID)
   
    
   

	strSql2 = "SELECT USERGROUP_PARENT,USERGROUP_ID FROM " & strMemberTablePrefix & "USERGROUPS "
	strSql2 = strSql2 & "WHERE USERGROUP_ID = " & GroupID
	set rsSubGroupsD = my_Conn.execute(strSql2)

	
		If Not RsSubGroupsD.EOF Then

			Do Until RsSubGroupsD.EOF			
			
        CurrentGroupID = rsSubGroupsD("USERGROUP_ID")	

	strS = "SELECT USERGROUP_ADMIN FROM " & strMemberTablePrefix & "USERGROUPS "
	strS = strS & "WHERE USERGROUP_ID = " & CurrentGroupID
	strS = strS & " AND USERGROUP_ADMIN = " & MemberID 
	set rsGroupS = my_Conn.execute(strS)
	'## if member exists in this group then access is allowed, return value of 1

if not rsGroupS.bof and not rsGroupS.eof then	
IsGroupParentAdmin = 1
end if


				IsGroupParentAdmin(CurrentGroupID)
				RsSubGroupsD.MoveNext
			Loop 
	
		End If
		
		Set RsSubGroupsD = Nothing
		
End Function