<%=ListName%> - Spd E-Letter Administration

<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "Admin" Dim Nav3 : Nav3 = "3" %> <% if (IsNumeric(ViewNumSub)) then NR = ViewNumSub else NR = 25 if (Request("Pg") <> "") then CurPage = Request("Pg") if (request("PG") <> "" and IsNumeric(request("PG"))) then PG = CInt(request("PG")) else PG = 1 if (request("SN") <> "") then SN = request("SN") else SN = "UserID" if (request("SO") <> "") then SO = request("SO") else SO = "ASC" set getRecords = Server.CreateObject("ADODB.Recordset") getRecords.ActiveConnection = mlConn getRecords.Source = "SELECT * FROM ML_Users WHERE Master = 'N' ORDER BY " & SN & " " & SO getRecords.CursorType = 1 getRecords.LockType = 3 getRecords.Open() set recCount = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Users WHERE Master = 'N'") if getRecords.EOF then totalRecords = 0 totalPages = 1 else totalRecords = recCount("cnt1") : set recCount = nothing totalPages = Int(totalRecords / NR) if totalRecords mod NR > 0 then totalPages = totalPages + 1 if PG > 2 then moveRecs = NR * (PG - 1) else moveRecs = 0 if (PG > 1) AND (moveRecs <= totalRecords) then moveRecs = (NR * (PG - 1)) else moveRecs = 0 end if getRecords.Move moveRecs end if %> <%=ListName%> - Spd E-Letter Administration

View Users

Create User

<% if getRecords.EOF then %> <% else while ((numSub < NR) AND (NOT getRecords.EOF)) NumSub = NumSub + 1 %> <% getRecords.movenext wend end if %>

<% if NOT getRecords.EOF then response.write("Page " & PG & " of " & TotalPages & " ") end if if PG > 1 then %> [Prev] <% end if for i = 1 to TotalPages %> <%=i%> <% Next If PG < TotalPages Then %> [Next] <% End If %> Showing <%=NR%> results per page of <%=totalRecords%> Admins
#	Username	Real Name	Last Login	Created	Action
There are no users other than the master account at this time.
<%=numSub%>	<%=getRecords("Username")%>	<%=getRecords("RealName")%>	<%=getDateFromNum(getRecords("LastLoginDate"))%>	<%=getDateFromNum(getRecords("CreatedDate"))%>

NOTE: The Master Admin is not viewable from here and cannot be deleted.

<% set getRecords = nothing %>