<%@ Language=VBScript %> <%Response.Buffer=true PageTitle = "SiteManager - New Mailout" PageID=902 Header Menu PageID mailoutadd Footer %> <% Sub mailoutadd If Request.Form("hidSave")="true" then txtSubject=Trim(Request.Form("txtSubject")) txtLetter=Trim(Request.Form("txtLetter")) Set mcMail=Server.CreateObject("WadesBindery.cMail") mcMail.Message=txtLetter mcMail.Subject=txtSubject If mcMail.ErrHolder<>"" then error=mcMail.ErrHolder Set mcMail=Nothing Else mcMail.Save(0) Set mcMail=Nothing Response.Redirect("mail_list.asp") End If End If%> <%If error<>"" then%> <%End If%>

<%= FormatDateTime(Date,1) %>

<%=error%>

Subject Message <%=txtLetter%>

<% End Sub %>