<%=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 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "User" : Nav3 = "5" %> <% response.buffer = true server.scripttimeout = 1000 dim numSub, timeNow, listID, SN, SO if (IsNumeric(ViewNumSub)) then NR = ViewNumSub else NR = 25 if (request("PG") <> "" and IsNumeric(request("PG"))) then PG = CInt(request("PG")) else PG = 1 if (request("SN") <> "") then SN = request("SN") else SN = "snipID" if (request("SO") <> "") then SO = request("SO") else SO = "ASC" strSQL = "SELECT * FROM ML_Snippets ORDER BY " & SN & " " & SO strSQL2 = "SELECT Count(*) as cnt1 FROM ML_Snippets" set getRecords = mlConn.Execute(strSQL) set cntRecords = mlConn.Execute(strSQL2) totalRecords = cntRecords("cnt1") : set cntRecords = 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 if NOT getRecords.EOF then getRecords.Move moveRecs end if numRecs = 0 : timeNow = Now %> <%=ListName%> - Spd E-Letter Administration

View Content Snippets

What are "Content Snippets"?

<% if request("msg") = "1" then %>

The snippet was successfully added.

<% elseif request("msg") = "2" then %>

The snippet was successfully edited.

<% end if %>

<%If getRecords.EOF Then%> <% else while (NOT getRecords.EOF AND numRecs < NR) numRecs = numRecs + 1 %> <% response.flush() 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%> Content Snippets

Snippet Code

Name

Created

Action

There are no Content Snippets at this time.

<%=numRecs%>

<%=getRecords("snipID")%>

<%=getRecords("snipCode")%>

<%=getRecords("snipName")%>

<%=getDateFromNum(getRecords("snipCreated"))%>

<% set rsGetSubscribers = nothing %>