<% Server.ScriptTimeout = 1000000 Set RS = Server.CreateObject("ADODB.Recordset") Set RSBODY = Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT * from Settings" RSBODY.Open SQL2, Conn, 1, 3 SQL = "SELECT Email FROM List" RS.open SQL, conn Select Case RSBODY("Component") Case "CDONTS" Do While Not RS.eof set mailObj = Server.CreateObject("CDONTS.NewMail") If (Request("Format") = "Text") Then mailObj.BodyFormat = 1 mailObj.MailFormat = 1 Else mailObj.BodyFormat = 0 mailObj.MailFormat = 0 End If mailObj.From = RSBODY("From_Email") mailObj.To = RS("Email") mailObj.Subject = Request("Subject") mailObj.Body = Request("Body") mailObj.Send RS.movenext Loop Case "ASPMail" Do While Not RS.eof Set mailObj = Server.CreateObject("SMTPsvg.Mailer") If (Request("Format") = "Text") Then mailObj.CharSet = 2 Else mailObj.ContentType = "text/html" End If mailObj.FromName = RSBODY("From_Email") mailObj.FromAddress= RSBODY("From_Email") mailObj.RemoteHost = RSBODY("SMTP") mailObj.Subject = Request("Subject") mailObj.BodyText = Request("Body") mailObj.AddRecipient RS("Email"),RS("Email") mailObj.SendMail RS.movenext Loop Case "ASPEmail" Do While Not RS.eof Set mailObj = Server.CreateObject("Persits.MailSender") mailObj.Host = RSBODY("SMTP") mailObj.From = RSBODY("From_Email") mailObj.AddAddress RS("Email") mailObj.Subject = Request("Subject") mailObj.Body = Request("Body") If (Request("Format") = "Text") Then mailObj.IsHTML = False Else mailObj.IsHTML = True End If mailObj.Send RS.movenext Loop End Select IF (Request("Archive") = "on") Then Set RSARCHIVE = Server.CreateObject("ADODB.Recordset") RSARCHIVE.Open "Archive", Conn, 2, 2 RSARCHIVE.addnew RSARCHIVE("Subject") = Request("Subject") RSARCHIVE("Body") = Request("Body") RSARCHIVE("Format") = request("Format") RSARCHIVE("Date") = Date RSARCHIVE.update End If %> <%=RSBODY("List_Name")%>
 <%=RSBODY("List_Name")%>
 Home
 Send Mailing
 View/Edit Subscribers
 Generate HTML
 Mail Archive
 Settings
 Support
 Log Out
 Send Mailing
The Mailing has been sent.

<< Return
Maintained with the SiteBuilder Mailing List Manager v1.07