<%@ Language=VBScript %> <% PageTitle = "SiteManager - Subscriptions" %> <% PageID=903 %> <% Header Menu PageID maillist Footer%> <%Sub maillist message="" OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") If Request.QueryString("DS")<>"" then Sql="SELECT * FROM Subscribers WHERE SubID=" & Request.QueryString("DS") rs.Open Sql,DB,1,3 If Not rs.EOF then rs.Delete rs.Close End If Sql="SELECT SubID,txtEmail FROM Subscribers ORDER BY txtEmail" rs.Open Sql,DB,1,3 If Not rs.EOF then arrSubs=rs.GetRows If Not Isempty(arrSubs) then counter=0 For x=0 to Ubound(arrSubs,2) counter=counter+1 Next Else counter=0 End If Set rs=Nothing %>

<%= FormatDateTime(Date,1) %>

There are currently <%=counter%> subscriptions to the Newsletter.

<%If Not IsEmpty(arrSubs) then%> <%For x=0 to Ubound(arrSubs,2)%> <%Next%> Current Subscriptions   <%=arrSubs(1,x)%> <%End If%>

<%End Sub %>