<% Option Explicit %> <% If strUserAccess = "2" Then If NOT strLevel2Admin = "True" Then Response.Redirect strUnAuthorisedPage End If End If %> Configure Members

Click here to go to ADMIN Section Click Here to add a Lodge member

Total Members In Database: <% Dim strCount Dim rsConnection Dim rsRecordset Dim strAltTableColour Set rsConnection = Server.CreateObject("ADODB.Connection") Set rsRecordset = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblUsers.* FROM tblUsers " rsConnection.Open strCon, strSQL rsRecordset.Open strSQL, rsConnection, 3, 3, 1 strCount = rsRecordset.recordcount %> <% = strCount %>
<% 'Reset Sever Objects Set rsConnection = Nothing Set rsRecordset = Nothing %> <% If strUserAccess = 3 Then %> <% End If %> <% If strUserAccess = 3 or strLevel2Delete = "True" Then %> <% End If %> <% 'Dimension variables Dim rsMembers 'Holds the recordset for the new record to be added 'Create recorset object Set rsMembers = Server.CreateObject("ADODB.Recordset") 'Initalise the SQL string with a query to read in all the comments from the database strSQL = "SELECT tblUsers.* FROM tblUsers;" 'Open the recordset rsMembers.Open strSQL, strCon strAltTableColour = 0 'Check if username doesn't already exist do until rsMembers.EOF %> <% If strUserAccess = 3 Then %> <% End If %> <% If strUserAccess = 3 or strLevel2Delete = "True" Then %> <% End If %> <% strAltTableColour = strAltTableColour + 1 rsMembers.MoveNext loop 'Reset Sever Objects Set rsMembers = Nothing %>

Username	Password	Access	Total Logins	Last Vist	Suspended	Delete
"><%=rsMembers("Username")%>	<%=rsMembers("Password")%>	<%=rsMembers("Access")%>	<%=rsMembers("Total")%>	<%= FormatDateTime(rsMembers("LastVist"), vbShortDate) %>	<% If rsMembers("Lock") = True Then%>Yes<% Else %>No<% End If %>	<%if rsMembers("ID") = "1" or rsMembers("Username") = strUsername Then%>Cant Delete<%else%>" onClick="return confirm('Are you sure you want to Delete this Member?\n\nWARNING: Deleting this member will be permanently!')">Delete Member<%end if%>

<% 'Reset Sever Objects Set adoCon = Nothing Set strCon = Nothing %>