<%@ Language=VBScript %> <% PageTitle = "SiteManager - Newsletters" %> <% PageID=901 %> <% Header Menu PageID maillist Footer%> <%Sub maillist message="" If Request.QueryString("TE")<>"" then If Request.QueryString("TE")=0 then message="A test message has been sent to info@wadesbindery.com" Else message="An error occured.
The test message could not be sent." End If End If Set mcMail=Server.CreateObject("WadesBindery.cMail") If Request.QueryString("DM")<>"" Then MailID=Request.QueryString("DM") mcMail.Delete cint(MailID) End If arrMail=mcMail.GetList Set mcMail=Nothing %> <%If message<>"" then%> <%End If%>

<%= FormatDateTime(Date,1) %>

<%=message%>

<%If Not IsEmpty(arrMail) then%> <% For x=0 to Ubound(arrMail,2) If arrMail(3,x)<>"" then txtSent="Last sent: " & formatdatetime(arrMail(3,x),1) Else txtSent="This Newsletter has never been sent." End If%> <%Next Else%> <%End If%> Existing Newsletters <%=arrMail(1,x)%> Last Modified: <%=formatdatetime(arrMail(2,x),1)%> <%=txtSent%> Send test message.   Currently no Newsletters on file.

<%End Sub %>