<%=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 = "User" Dim Nav3 : Nav3 = "2" %> <% onNum = 0 if (request("msg") <> "") then msg = request("msg") if (request("sn") <> "") then sn = request("sn") else sn = "blkID" if (request("so") <> "") then so = request("so") else so = "asc" if (IsNumeric(viewNumSub)) then NR = ViewNumSub else NR = 20 if (request("pg") <> "") then pg = CInt(request("pg")) else pg = 1 set getRecords = mlConn.Execute("SELECT * FROM ML_Blocked WHERE blkType = 0 ORDER BY " & sn & " " & so) set recCount = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Blocked") 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

Banned Domains

Ban A Domain

<% if msg = 1 then %>

The domain has been added to your banned list.

<% elseif msg = 2 then %>

The domain your chose could not be found.

<% elseif msg = 3 then %>

The domain has been removed from your banned list.

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

<% if pg > 1 then %> [Prev] <% end if %> <% for i = 1 to totalPages %> <%=i%> <% next %> <% if pg < totalPages then %> [Next] <% end if %> Viewing Page <%=pg%> of <%=totalPages%>
#	Domain	Added	Action
No banned domains at this time.
<%=onNum%>	<%=getRecords("blkText")%>	<%=getDateFromNum(getRecords("blkAddedDate"))%>

<% set getRecords = nothing %>