Added: April/14/2007 at 1:55am | IP Logged

Chris:

I am fairly new to ASPProtect v.7 and am learning how to use Groups rather than Access_Level. I have reviewed the documentation and found a page with examples for selecting with Groups:

<%
If InStr(Session("Groups"),"*9*") Then
     Response.Write("You are a member of group 9")
End If
%>

My project is to identify the military bases and casualties members of an Air Force veterans association served at during the Vietnam War.

1.  When I use the below ACCESS_LEVELs to select member’s status and info it works just fine for all 2,000 members. (Login with Username: Temp  PW: Temp http://www.vspa.com/aspprotect/guardmount-vspa-ad-2-access.a sp).

Code for Access_Level:

<!-- SELECT: VSPA MEMBERS & CASUALTIES, A-D -->

<!-- Group *9999* is non existing and permits selection to fall through and test multiple ElseIf Statements -->

<!-- Group *91* is assigned to select Names A-D  -->

<% If InStr(Session("Groups"),"*9999*") Then %>

             <% ElseIf CmdListUsers("Access_Level") = "1" THEN %>

<!-- DISPLAY KIA-LOD Names A-D and Icons -->

2.  When I use the below Groups to select member’s status and info, it does not select anything at all.  (Login with Username: Temp  PW: Temp  http://www.vspa.com/aspprotect/guardmount-vspa-ad-2-groups.a sp).

Codes for Groups Numbers:

<!-- SELECT: VSPA MEMBERS & CASUALTIES, A-D -->

<!-- Group *9999* is non existing and permits selection to fall through and test multiple Else If Statements -->

<!-- Group *91* is assigned to select Names A-D  -->

<% If InStr(Session("Groups"),"*9999*") Then %>

<% ElseIf InStr(Session("Groups"),"*91*") THEN %>

<!-- DISPLAY KIA-LOD Names A-D and Icons -->

Obviously I do not yet understand how to use Groups as I would an Access_Level (using “If Then Else”) throughout to select qualifying members.

Your advice will be greatly appreciated.

Don Poss

Added: April/15/2007 at 3:29am | IP Logged

Chris:

Sorry'bout that. I wanted to provide an adequate amount of info. Let me try a simpler way:

With ASPProtect v6 I used Access_Levels like a light switch to test whether or not a field's contents qualified for what I was looking for. I used If Then Else logic (If Access_Level "1" = 0 Then, do whatever).

I want to do the same thing (IF then else) with Groups, if possible. Your examples show how to see if a record has the Group number you are looking for. But I cannot find an example in the documentation on how to check if a Group is = > <> < than the Group(s) I am looking for.

This is very important to me, and if I missed an area in the documentation or on the Forum, please point me there. Your help is greatly appreciated.

Don Poss

Added: April/15/2007 at 3:35am | IP Logged

<% If InStr(Session("Groups"),"*9*") = 0 Then %>

That is an example which I think would do what you just asked.
Below is another way to do it which I think would also work.

<% If Not(InStr(Session("Groups"),"*9*")) Then %>

It just vbscript function logic sorta stuff really..

Added: April/20/2007 at 12:50am | IP Logged

Chris:  I am still trying to select records based on Groups number and, IF qualified, THEN post online in a report. It will be a great day when I discover, or find out, how to use Groups like Access_Levels to select records. If anyone out there uses the contents of Groups to select records for If Then Else type logic, please post an example of how you do it.

I have researched online and, tried the two posted above, and the following without success:

<% If CmdListUsers("Groups") = "*3*" Then %>

<% If Not(InStr(Session("Groups"),"*3*")) Then %>

<% If CmdListUsers("Groups") = "3" Then %>

<% If InStr(Session("Groups"),"*3*") Then %>

<% If InStr(Session("Groups"),"*3*") = 0 Then %>

<% If InStr(Session("Groups") = "*3*") Then %>

<% If InStr(Start, Groups, *3*) Then %>

<% If InStr(Groups,"*3*") = 0 Then %>

<% If InStr(Groups,"*11*") = 0 Then %>

<% If InStr(1,”Groups”, strLook,*3*) Then %>

<% If InStr(1, Groups, strName, 3) > 0 Then %>

<% If InStr(CmdEditGroup("Group_Name"),"*11*") Then %>

<% If Session("GROUPACCESS") = "*9*"  Then %>

<% If CmdListUsers("GROUPACCESS") = "*3*" Then %>

<% If CmdGetGroups("Group_ID") = "*3*" Then %>

<% If CmdGetGroups("Group_ID") = "9" Then %>

<% If CmdGetGroups("Group_Name") = "3 Bien Hoa - BH" Then %>

<% If CmdListUsers("Group_Name") = "3 Bien Hoa - BH" Then %>

<% If (Group_ID = " & 3 Bien Hoa - BH & ") Then %>

<% If (ID <% =CmdGetGroups("Group_ID") = *3* Then %>

Thanks for your help,

Don Poss