<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%PageID=900%>
<%
Header
Menu PageID
maildelete
Footer
%>
<%
Sub maildelete
MailID = Request.QueryString("MID")
Set mcMail=Server.CreateObject("WadesBindery.cMail")
mcMail.GetMail cint(MailID)
txtSubject=mcMail.Subject
%>
<%= FormatDateTime(Date,1) %>
| |
Delete this Newsletter?
<%=txtSubject%> |
| |
| YES |
NO |
<%End Sub%>