<%@ Language = VBScript %>
<%
'Redirect if the user is not supposed to be here
if session("Newsletter") = false then
response.redirect("index.asp")
end if
'Get title
if len(request.queryString("Subject")) = 0 then
output = "Send newsletter"
end if
Subject = request.form("Subject")
Message = request.form("Message")
'Time to send stuff to the subscribers
if len(Message) <> 0 and len(Subject) <> 0 then
'Attach signature file
set objFSO = server.createObject("Scripting.FileSystemObject")
set objTextStream = objFSO.openTextFile(server.mapPath("/newsletter/signature.txt"), 1)
SignatureMessage = SignatureMessage & vbCrLf
do while not objTextStream.atEndOfStream
SignatureMessage = SignatureMessage & objTextStream.readLine & vbCrLf
loop
Message = Message & SignatureMessage
'Time to open our database
set con = server.createObject("ADODB.Connection")
con.open = strServerConnection
'Get email address from database
sqlString = "Select Email from Newsletter Where Status = 1"
set rs = con.execute(sqlString)
'Send mail out
while not rs.eof
'Process mail sending using local SMTP server
set newMailObj = server.createObject("CDONTS.NewMail")
newMailObj.BodyFormat = 1
newMailObj.MailFormat = 0
newMailObj.from = postmasterEmail
newMailObj.to = rs("Email")
newMailObj.subject = Subject
newMailObj.body = Message & vbCrLf & "To remove yourself off our mailing list, please visit " & vbCrLf & "http://"&DomainName&"/newsletter/remove.asp?email="&rs("Email")
newMailObj.send
set newMailObj = nothing
rs.moveNext
wend
output = "Newsletter sent successfully."
end if
%>
<%=CompanyName%> Newsletter Administrative Center
<%=CompanyName%> - Newsletter Administrative Center