<%@ Language=VBScript %> <%Response.Buffer=true PageTitle = "SiteManager - Edit Newsletter" PageID=900 Header Menu PageID mailedit Footer %> <% Sub mailedit MailID=Request.QueryString("MID") Set mcMail = Server.CreateObject("WadesBindery.cMail") If Request.Form("hidSave")="true" then txtSubject=Trim(Request.Form("txtSubject")) txtLetter=Trim(Request.Form("txtLetter")) mcMail.Subject=txtSubject mcMail.Message=txtLetter If mcMail.ErrHolder<>"" then error=mcMail.ErrHolder Set mcMail=Nothing Else mcMail.Save cint(MailID) Set mcMail=Nothing Response.Redirect("mail_list.asp") End If Else mcMail.GetMail cint(MailID) txtSubject=DisPrepText(mcMail.Subject) txtLetter=mcMail.Message Set mcMail=Nothing End If%> <%If error<>"" then%> <%End If%>

<%= FormatDateTime(Date,1) %>

<%=error%>

Subject Message <%=txtLetter%>

<% End Sub %>