Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Newsletter MOD not Sending		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

leatherlips
Senior Member

USA
1767 Posts
Posted - 01 February 2010 :  18:29:44  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I have had the newsletter mod for awhile. It worked great. Today, I tried to send a newsletter and no one received it. After I clicked send it said it was sent successfully. Any ideas?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Etymon
Advanced Member

USA
2192 Posts
Posted - 01 February 2010 :  20:06:53  Show Profile  Visit Etymon's Homepage  Reply with Quote
Check with your host to see how many e-mails they let go out in a batch at one time. Perhaps, they stopped the batch as a spam attempt.
My Snitz MODs | PM Search | Search Terms | Update Category Counts
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 06 February 2010 :  20:17:49  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I just contacted my host and they said they ran some tests and their system is not blocking the emails. They said it could be a setting in the Snitz Forum code.

When I send the newsletter, all of them come back to me with this error attached:

Reporting-MTA: dns;WH182.hosting.corp.gd
Received-From-MTA: dns;WH182.hosting.corp.gd
Arrival-Date: Mon, 1 Feb 2010 16:41:25 -0700

Final-Recipient: rfc822;Email of Recipient Here
Action: delayed
Status: 4.4.7
Will-Retry-Until: Wed, 3 Feb 2010 16:41:50 -0700


This used to work fine but now it won't. Any ideas?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 13 March 2010 :  14:56:08  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I'm still having trouble with the newsletter. All emails work within Snitz: registration, member to member, pm notifications, subscription notifications, etc... However, the newsletter will not send any emails.

What is different with the newsletter that is causing it not to work when all other email functions do? I'd really like to get this working again.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 17 March 2010 :  20:04:41  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Since it seems very likely that my problem with the newsletter mod will not be fixed any time soon, can anyone recommend a good free asp newsletter script that they use? I don't want links to hotscripts or similar sites, I'd like first hand advice from ones that you use and like.

Thanks.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

AnonJr
Moderator

USA
5424 Posts
Posted - 18 March 2010 :  06:16:05  Show Profile  Reply with Quote
I gave up a long time ago and have been using a Google Group. I've been more than happy since. YMMV
Web Guy for:
- Jesus Joshua 24:15 - a Soul Joy Recording Artist
- Eastover Fire Department - saving lives, and protecting property since 1956
- Hope Fellowship - a small church with a big heart for the Lord.
------------------------------------------------------------------------------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
- Rick Cook
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
1872 Posts
Posted - 18 March 2010 :  15:45:25  Show Profile  Visit Classicmotorcycling's Homepage  Reply with Quote
Do you want to post a text version of the nlEmail_List.asp (if text based) or the nlEmail_List_html.asp (if html based) files? The other thing to consider is did the hosting company apply patch upgrades to the server or change the Operating System all together.
Cheers,

David Greening

Snitz Forum - Delevopment Team Leader
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 18 March 2010 :  16:05:31  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Here is a text version of my nlEmail_List_html file:

http://www.mangionemagic.com/hostedpics/nlEmail_List_html.txt

Regarding what the hosting company did, I'm not sure. All I know is that moved me to a different server.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
1872 Posts
Posted - 18 March 2010 :  19:28:03  Show Profile  Visit Classicmotorcycling's Homepage  Reply with Quote
If you are using cdonts then it should work, but if you are using cdosys then you will need to add the following to the inc_mail_html.asp file and that should work:

	case "cdosys"
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
        	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
		'Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		'Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
		'Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
        	Flds.Update

	        Set objNewMail = Server.CreateObject("CDO.Message")
        	Set objNewMail.Configuration = iConf

	        'Format and send message
        	Err.Clear 

		objNewMail.To = strRecipients
		objNewMail.From = strSender
		objNewMail.Subject = strSubject
		objNewMail.HTMLBody = "<HTML><BODY> " & strMessage & " </BODY></HTML>"
        	On Error Resume Next
		objNewMail.Send
		If Err <> 0 Then
			Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
		End if


Let me know how you go as it had been a while since getting the Newsletter mod done.
Cheers,

David Greening

Snitz Forum - Delevopment Team Leader
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 19 March 2010 :  09:00:06  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Thank you!! It is working again! There was one error in the code you posted but after I removed the extra If Err <> 0 Then it worked beautifully!

Thank you, thank you, thank you!!
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
1872 Posts
Posted - 19 March 2010 :  14:01:26  Show Profile  Visit Classicmotorcycling's Homepage  Reply with Quote
Glad that worked for you. Not sure why it was not included in the code when it was released, but fixed now.

Thanks for letting me know about the extra "If Err <> 0 Then", has been removed from the above code.

Enjoy...
Cheers,

David Greening

Snitz Forum - Delevopment Team Leader
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 20 March 2010 :  19:22:57  Show Profile  Visit leatherlips's Homepage  Reply with Quote
On another topic regarding the Newsletter... Is it possible to create a Test button that only sends it to me? Sometimes I make a mistake in the letter layout but only after I've sent it to everyone on the list. If I had a "test" button then I could avoid some of those mistakes.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 20 March 2010 :  21:49:02  Show Profile  Reply with Quote
Sure, not hard to do. Something like this should handle it. Replace your "sendNewsletter.asp" with the below:
<%@ Language = VBScript %>
<!-- #include file = "variables.asp" -->
<%
if session("Newsletter") = false then
    response.redirect("index.asp")
end if
if Len(request.queryString("Subject")) = 0 then
    output = "Send newsletter"
end if
Subject = request.Form("Subject")
Message = request.Form("Message")
if Len(Message) <> 0 and Len(Subject) <> 0 then
    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
    set con = server.CreateObject("AdoDB.Connection")
    con.Open = strServerConnection
    if not Request.QueryString("Admin") then
        sqlString = "Select Email from Newsletter Where Status = 1"
        set rs = con.Execute(sqlString)
        while not rs.EOF
            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 from our mailing list, please visit " & vbCrLf & "http://"&domainName&"/newsletter/remove.asp?email="&rs("Email")
            newMailObj.send
            set newMailObj = nothing
            rs.moveNext
        wend
    else
        set newMailObj = server.CreateObject("CdoNTS.NewMail")
        newMailObj.BodyFormat = 1
        newMailObj.MailFormat = 0
        newMailObj.from = postmasterEmail
        newMailObj.To = postmasterEmail
        newMailObj.subject = Subject
        newMailObj.body = Message & vbCrLf & "To remove yourself from our mailing list, please visit " & vbCrLf & "http://"&domainName&"/newsletter/remove.asp?email="&rs("Email")
        newMailObj.send
        set newMailObj = nothing
    end if
    output = "Newsletter sent successfully."
end if
%>
<html>
	<head>
		<!-- #BeginEditable "doctitle" -->
		<title><%=CompanyName%> Newsletter Administrative Center
		</title>
		<!-- #endEditable -->
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
		<link rel="stylesheet" href="styles.css" type="text/css">
	</head>
	<body bgcolor="#EEEEEE" text="#111111" link="#663366" vlink="#006699">
		<table width="95%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#003366">
			<tr bgcolor="#FFCCCC">
				<td colspan="2">
	 				<div align="center"><b><%=CompanyName%> - Newsletter Administrative Center</b>
	 				</div>
				</td>
 			</tr>
 			<tr bgcolor="#EEEEEE">
				<td width="25%" valign="top">
	 				<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#003366">
						<tr>
				 			<td bgcolor="#99CCCC">
								<div align="center"><b>Newsletter Control</b>
								</div>
				 			</td>
						</tr>
						<tr>
				 			<td bgcolor="#EEEEEE"> » <a href="listSubscribers.asp">List all subscribers</a><br>
								» <a href="inactive.asp">List inactive subscribers</a><br>
								» <a href="sendNewsletter.asp">Send newsletter</a><br>
								» <a href="sendNewsletter.asp?Admin=1">Send Test</a><br>
								» <a href="editSignature.asp?function=edit">Edit signature file</a><br>
								» <a href="logout.asp">Logout</a>
							</td>
						</tr>
	 				</table>
				</td>
				<td width="75%" valign="top">
					<div align="left"><br>
						<!-- #BeginEditable "contents" -->
						<script language = "javascript">
							function validateForm() {
								if (document.sendNewsletterForm.Subject.value == "") {
									alert("Please enter a subject.")
									document.sendNewsletterForm.Subject.focus()
								return false
								}
								if (document.sendNewsletterForm.Message.value == "") {
									alert("Please enter a message body.")
									document.sendNewsletterForm.Message.focus()
								return false
								}
							}
						</script>
					 	<div align="center">
							<p><b><%=output%></b></p>
							<form name="sendNewsletterForm" method="post" action="sendNewsletter.asp" onSubmit="return validateForm()">
					 			<table width="95%" border="0" cellspacing="1" cellpadding="1" bgcolor="#003366">
									<tr bgcolor="#EEEEEE">
				 						<td bgcolor="#EEEEEE" width="30%">Subject:
						 				</td>
						 				<td width="70%">
											<input type="text" name="Subject" size="40">
			 							</td>
									</tr>
									<tr bgcolor="#EEEEEE">
				 						<td bgcolor="#EEEEEE" width="30%">Message:
				 						</td>
						 				<td width="70%">
											<textarea name="Message" cols="40" rows="8" wrap="VIRTUAL">
											</textarea>
			 							</td>
									</tr>
									<tr bgcolor="#EEEEEE">
			 							<td bgcolor="#EEEEEE" width="30%"> 
				 						</td>
						 				<td width="70%">
											<input type="submit" name="submit" value="Send Newsletter">
				 						</td>
									</tr>
				 				</table>
							</form>
							<p> </p>
					 	</div>
					 	<!-- #endEditable -->
					</div>
					<p align="left"><br>
				</td>
			</tr>
		</table>
	</body>
	<!-- #endTemplate -->
</html>
Edited by - Carefree on 20 March 2010 22:23:32
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 21 March 2010 :  09:19:00  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Carefree, the script you posted is radically different from my newsletter. What I want to do is add a new button to my existing newsletter page that when clicked only sends the newsletter to me.

For example:



The existing code I have for the newsletter is here: http://www.mangionemagic.com/hostedpics/nlEmail_List_html.txt

I would like the button to be placed as it is in the picture. I know how to make the button itself, but I don't know how to make it only send it to me.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 24 March 2010 :  18:14:52  Show Profile  Reply with Quote
See below.
Edited by - Carefree on 26 March 2010 14:36:37
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 24 March 2010 :  18:29:56  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I've tried using it but I get this error:
Active Server Pages error 'ASP 0116' 

Missing close of script delimiter 

/forum/testnewsletter.asp, line 175 

The Script block lacks the close of script tag (%>).


Line 175 is in red below:

%>
      <!--#INCLUDE file="inc_post_buttons_html.asp" -->
<%
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 24 March 2010 :  18:47:48  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I tried your newer version but I get this now:

Syntax error 

/forum/testnewsletter.asp, line 90 

if Err.Number =  then

Thanks for your help!
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 24 March 2010 :  18:55:34  Show Profile  Visit leatherlips's Homepage  Reply with Quote
The error is fixed now, but when I tried to send the test newsletter it went out to all of my subscribers.

Maybe this is more trouble than it is worth?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 24 March 2010 :  19:05:36  Show Profile  Reply with Quote
Should work now.
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 24 March 2010 :  20:26:20  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Nope, it still sent it to the entire list. Oh well. It's not a big deal. I just need to check all my typos before I send it out.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 25 March 2010 :  14:10:42  Show Profile  Reply with Quote
I'll test it here, found the version you're using.
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 26 March 2010 :  14:36:08  Show Profile  Reply with Quote
This works:
<%
'###############################################################################
'##
'##			Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##			Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'##			Free Software Foundation, Inc.
'##			59 Temple Place, Suite 330
'##			Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##			http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##			manderson@snitz.com
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<%
If Session(strCookieURL & "Approval") = "15916941253" Then
%>
<!--#include file="inc_func_common.asp"-->
<!--#INCLUDE file="inc_header.asp" -->
<%
	Response.Write	"<center>" & vbNewLine & _
		"<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
		"  <tr>" & vbNewLine & _
		"    <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"    "&getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""")&" <a href=""default.asp"">All Forums</a><br>" & vbNewLine & _
		"    "&getCurrentIcon(strIconBar,"","align=""absmiddle""")&getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""")&" <a href=""admin_home.asp"">Admin Section</a><br>" & vbNewLine & _
		"    "&getCurrentIcon(strIconBlank,"","align=""absmiddle""")&getCurrentIcon(strIconBar,"","align=""absmiddle""")&getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""")&" <a href=""nladmin.asp"">NewsLetter Administration</a><br><br></font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"  </tr>" & vbNewLine & _
		"</table><br>" & vbNewLine
%>
<SCRIPT LANGUAGE=javascript>
<!--
function confirmAction() {
	return confirm("THIS ACTION WILL SEND YOUR MESSAGE TO\nALL SUBSCRIBERS IN THE LIST!\n\nClick OK to Send!\nClick Cancel to Abort!")
}
function OpenPreview()
{
	var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
	document.cookie = curCookie;
	popupWin = window.open('pop_preview_html.asp', 'preview_page', 'scrollbars=yes,width=750,height=450')
}
//-->
</script>

<%
strEmailFrom							= "forum@mangionemagic.com"
strTo											= "All Users In Mailing List"
strHead										= "Mangione Magic NewsLetter"
strCell										= "This is not SPAM, you requested to join the Newsletter list"
strDate										= "Mangione Magic Newsletter - " & Date()
strBody1									= "Copy And Paste The Newsletter Here.	Leave the two breaks in. ---> <br><br>"
strBody2									= "<b>Your Suggestions</b><br><br>Do you have a suggestion or idea for the Mangione Magic Newsletter?	If so, you can send an email to <a href='mailto:newsletter@mangionemagic.com?subject=Mangione Magic Newsletter'>newsletter@mangionemagic.com</a>."
strBody3									= "Do you have a friend who may be interested in reading this newsletter?	If so, you can <a href='http://www.mangionemagic.com/newsletterarchives/ADD DATE HERE.htm'>click here</a> to send them a web version of the newsletter where they will also have a chance to subscribe.<br><br>Don't forget to visit the official <a href=http://www.chuckmangione.com>Chuck Mangione website</a>.<br><br><br><br><center>" & strCopyright & "<br><a href=http://www.mangionemagic.com>www.mangionemagic.com</a><br><br><a href=http://www.mangionemagic.com><img border=0 src=http://www.mangionemagic.com/images/footerlogo.gif width=100 height=100 alt=MangioneMagic.com></a></center>"

if (Request.Form("NLTopic")="Complete") and (Request.Form("Submit") = "Test Newsletter!") then
	strSubject							= Request.Form("txtSubject")
	strHead									= Request.Form("txtHead")
	strCell									= Request.Form("txtCell")
	strDate									= Request.Form("txtDate")
	strBody									= Request.Form("Message")
	strBody2								= Request.Form("txtBody2")
	strBody3								= Request.Form("txtBody3")
	strFromName							= strForumTitle
	strRecipientsName				= MemberName
	strRecipients						= strEmailFrom
	strUserID								= MemberID
	strSender								= strEmailFrom
	strMessage							= "<table border=0 align=center width=760px cellspacing=0 cellpadding=0 bgcolor=#9999FF><tr><td><img border=0 src=http://mangionemagic.com/images/nlbanner.gif width=760 height=101><table border=0 width=100% cellspacing=1 cellpadding=4><TR><TD></td></tr><tr><td background=http://mangionemagic.com/forum/images/gradient.gif align=center>" & vbNewline & vbNewline
	strMessage 							= strMessage & "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strHeadFontColor & "><b>" & strDate & "</b></font></td></tr>" & vbNewline & vbNewline
	strMessage 							= strMessage & "<tr><td bgcolor=#FFFFFF><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strDefaultFontColor & ">" & strBody1 & "" & vbNewline & vbNewline
	strMessage 							= strMessage & "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strDefaultFontColor & ">" & strBody2 & "</font><br><br>" & vbNewline & vbNewline
	strMessage 							= strMessage & "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & " color=" & strDefaultFontColor & "><hr width=70% color=#6666CC><ul><li>Your email address " & strRecipients & " is subscribed to the Mangione Magic Newsletter.</li><li>If you wish to unsubscribe from this newsletter you may <a href=" & strForumURL & "nldeactivate.asp?email=" & strRecipients & "&userid=" & strUserID & ">click here</a>.</li><li>By clicking on the above link you will automatically be removed from the Mangione Magic Newsletter.</li></ul>" & strBody3 & "" & vbCrLf & vbCrLf & "</font></font></td></tr></table></td></tr></table>" & vbNewline & vbNewline
	%>
	<!--#INCLUDE FILE="inc_mail_html.asp" -->
	<% 	
Elseif (Request.Form("NLTopic")="Complete") and (Request.Form("Submit") = "Send Newsletter!") then
		strSubject 						= Request.Form("txtSubject")
		strHead 							= Request.Form("txtHead")
		strCell 							= Request.Form("txtCell")
		strDate 							= Request.Form("txtDate")
		strBody1 							= Request.Form("Message")
		strBody2 							= Request.Form("txtBody2")
		strBody3 							= Request.Form("txtBody3")

		'Select Records
		strSQL_SelectEmail = "SELECT ID, Email FROM " & strTablePrefix & "MailList WHERE Active=1"
		Set rsMail = my_Conn.Execute(strSQL_SelectEmail)
		if rsMail.BOF and rsMail.EOF then
			Response.Write "<br>The Database is Empty.<br>"
		else
			rsMail.MoveFirst
			Do While Not rsMail.EOF
				strFromName 			= strForumTitle
				strRecipientsName = rsMail.Fields("Email").Value
				strRecipients 		= rsMail.Fields("Email").Value
				strUserID		 			= rsMail.Fields("ID").Value
				strSender 				= strEmailFrom
				strSubject		 		= strSubject
				strMessage				= "<table border=0 align=center width=760px cellspacing=0 cellpadding=0 bgcolor=#9999FF><tr><td><img border=0 src=http://mangionemagic.com/images/nlbanner.gif width=760 height=101><table border=0 width=100% cellspacing=1 cellpadding=4><TR><TD></td></tr><tr><td background=http://mangionemagic.com/forum/images/gradient.gif align=center>" & vbNewline & vbNewline
				strMessage 				= strMessage & "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strHeadFontColor & "><b>" & strDate & "</b></font></td></tr>" & vbNewline & vbNewline
				strMessage 				= strMessage & "<tr><td bgcolor=#FFFFFF><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strDefaultFontColor & ">" & strBody1 & "" & vbNewline & vbNewline
				strMessage 				= strMessage & "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strDefaultFontColor & ">" & strBody2 & "</font><br><br>" & vbNewline & vbNewline
				strMessage 				= strMessage & "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & " color=" & strDefaultFontColor & "><hr width=70% color=#6666CC><ul><li>Your email address " & strRecipients & " is subscribed to the Mangione Magic Newsletter.</li><li>If you wish to unsubscribe from this newsletter you may <a href=" & strForumURL & "nldeactivate.asp?email=" & strRecipients & "&userid=" & strUserID & ">click here</a>.</li><li>By clicking on the above link you will automatically be removed from the Mangione Magic Newsletter.</li></ul>" & strBody3 & "" & vbCrLf & vbCrLf & "</font></font></td></tr></table></td></tr></table>" & vbNewline & vbNewline
				%>
				<!--#INCLUDE FILE="inc_mail_html.asp" -->
				<%
				if strRecipients <> "" then
					if Err.Number = 0 then
						Response.Write  "  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Message sent to: " & strRecipients & "" & vbNewLine & _
							"  <hr width=""50%"" color=""" & strHeadCellColor & """>" & vbNewLine
						iSuccess = iSuccess + 1
					else
						Response.Write	"<table width=""95%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
							"	<tr>" & vbNewLine & _
							"		<td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
							"			<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
							"				<tr>" & vbNewLine & _
							"					<td height=""27"" align=""center"" colspan=""2"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Send Failure...Error was " & Err.Number & " - " & Err.Description & " User: " & strRecipients & "<BR>" & vbNewLine & _
							"					</td>" & vbNewLine & _
							"				</tr>" & vbNewLine & _
							"			</table>" & vbNewLine & _
							"		</td>" & vbNewLine & _
							"	</tr>" & vbNewLine & _
							"</table>" & vbNewLine
						iFail = iFail + 1
					end if
				end if
			rsMail.MoveNext
			Loop
		end if
		rsMail.Close
		Set rsMail = Nothing
		Response.Write	"<FORM>" & vbNewLine &_
			"	<br><input TYPE=""BUTTON"" VALUE=""Go Back"" class=""button"" onClick=""history.back()"">" & vbNewLine &_
			"</FORM>" & vbNewLine
	Else
		%>
		<!--#include file="inc_code_html.asp" -->
		<%
		Response.Write	"<table align=""center"" border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine &_
			"	<tr>" & vbNewLine &_
			"		<td bgcolor="""& strTableBorderColor &""">" & vbNewLine &_
			"		<FORM action=""nlEmail_List_html.asp"" name=""PostTopic"" method=POST onSubmit=""return confirmAction()"">" & vbNewline & _
			" 	<input type = ""hidden"" name=""NLTopic"" value=""Complete"">" & vbNewLine & _
			"				<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""3"">" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD colspan=""2"" align=""center"" bgColor="""& strHeadCellColor &""" nowrap width=""100%"">" & vbNewLine &_
			"						<font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""><B>"& strForumTitle &" NEWSLETTER FORM MAILER</B></font>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD width=""30%"" bgColor="""& strForumCellColor &""" align=right><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>From:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top><input type=""text"" name=txtFrom size=58 value="""& strEmailFrom &"""></TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=right><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>To:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top><font face=""Arial"" size=2>"& strTo &"</font></TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=right><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>Subject:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top><input type=""text"" name=txtSubject size=58 value="""& strForumTitle&" Newsletter for "& Date()&"""></TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD colspan=""2"" bgColor="""& strForumCellColor &""" align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">" & vbNewLine &_
			"						<br>This is the start of the NewLetter and a basic layout of what it will look like once emailed.<br><br>" & vbNewLine &_
			"						The Header: and Cell: areas below are shown in the same colors as what will show up in an email.<br><br>" & vbNewLine &_
			"						The Main Body of Newsletter: is the only text area which is supported by the Post Buttons" & vbNewLine &_
			"						<br><br>" & vbNewLine &_
			"						</font></TD>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strHeadCellColor &""" align=right><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""><b>Header:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strHeadCellColor &""" valign=top>" & vbNewLine &_
			"							<input type=""text"" size=58 name=txtHead value="""& strHead &""">" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strCategoryCellColor &""" align=right valign=top><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strCategoryFontColor &"""><b>Cell:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strCategoryCellColor &""" valign=top>" & vbNewLine &_
			"							<textarea rows=2 cols=50 name=txtCell wrap=on>"& strCell &"</textarea>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=right valign=top><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>Newsletter Date:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top>" & vbNewLine &_
			"							<textarea rows=2 cols=50 name=txtDate wrap=on>"& strDate &"</textarea>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine
		%>
		<!--#INCLUDE file="inc_post_buttons_html.asp" -->
		<%
		Response.Write"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=right valign=top><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>Main Body of Newsletter:</b><br><br>" & vbNewLine &_
			"						<b>Mode:</b>" & vbNewLine &_
			"							<select name=""font"" onChange=""thelp(this.options[this.selectedIndex].value)"">" & vbNewLine &_
			"								<option value=""1"">Help </option>" & vbNewLine &_
			"								<option value=""2"">Prompt </option>" & vbNewLine &_
			"								<option selected value=""0"">Basic </option>" & vbNewLine &_
			"							</select><br><br>" & vbNewLine &_
			"							<input name=""Preview"" type=""button"" value="" Preview "" onclick=""OpenPreview()"">" & vbNewLine &_
			"							</font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top>" & vbNewLine &_
			"							<textarea cols=""50"" name=""Message"" rows=""15"" wrap=""VIRTUAL"" onfocus=""getActiveText(this)"" onclick=""getActiveText(this)"" onchange=""getActiveText(this)"">"& strBody1 &"</textarea>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=right valign=top><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>Closing Message:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top>" & vbNewLine &_
			"							<textarea rows=4 cols=50 name=txtBody2 wrap=on>"& strBody2 &"</textarea>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=right valign=top><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &"""><b>Copyright/Footer:</b></font></TD>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" valign=top>" & vbNewLine &_
			"							<textarea rows=5 cols=50 name=txtBody3 wrap=on>"& strBody3 &"</textarea>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"					<TR>" & vbNewLine &_
			"						<TD bgColor="""& strForumCellColor &""" align=center valign=top colspan=""2"">" & vbNewLine &_
			"							<INPUT type=""submit"" value=""Test Newsletter!"" name=""Submit""><br><br>" & vbNewLine &_
			"							<INPUT type=""submit"" value=""Send Newsletter!"" name=""Submit""><br><br>" & vbNewLine &_
			"							<font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &""" color="""& strDefaultFontColor &""">" & vbNewLine &_
			"							If you have a really long mailing list<BR>" & vbNewLine &_
			"							it may take a few minutes for the system <BR>" & vbNewLine &_
			"							to send a message to everyone.<BR>" & vbNewLine &_
			"							<font color="""& strHoverFontColor &""">CLICK ""Send Newsletter!"" <b><U>ONLY ONCE</U></b> AND PLEASE BE PATIENT!</font>" & vbNewLine &_
			"							</font></P>" & vbNewLine &_
			"						</TD>" & vbNewLine &_
			"					</TR>" & vbNewLine &_
			"				</TABLE>" & vbNewLine &_
			"			</TD>" & vbNewLine &_
			"		</TR>" & vbNewLine &_
			"	</TABLE>" & vbNewLine &_
			"</FORM>" & vbNewLine
	end if
	WriteFooter
Else
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
End IF
%>
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 26 March 2010 :  15:44:19  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Sorry Carefree, I just tried it and it still sent it to all of my members instead of only to me.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 26 March 2010 :  17:29:52  Show Profile  Reply with Quote
It works fine here ... you're using the Test button and it's sending to everyone? You didn't change anything?
Go to Top of Page

leatherlips
Senior Member

USA
1767 Posts
Posted - 26 March 2010 :  21:02:33  Show Profile  Visit leatherlips's Homepage  Reply with Quote
quote:
Originally posted by Carefree

It works fine here ... you're using the Test button and it's sending to everyone? You didn't change anything?
Correct. I named my file testnewsletter.asp and used the Test Button. It then takes a while and then shows that it sent to everyone on the list.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

USA
2147 Posts
Posted - 28 March 2010 :  17:47:00  Show Profile  Reply with Quote
That's not going to work. You would have to change where the form action is going. All you do with that is send it back to the original file. Rename your original file and then name this one nlemail_list_html.asp and it will work.
Edited by - Carefree on 28 March 2010 17:47:51
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2009 Snitz™ Communications Go To Top Of Page
This page was generated in 0.25 seconds. Powered By: Snitz Forums 2000 Version 3.4.07