Great job~!
I tried change a bit on the code, thought you maybe interested:
<CFIF Form.EmailType EQ "1">
<CFSET mailType = "HTML">
<CFELSE>
<CFSET mailType = "Text">
</CFIF>
<CFQUERY NAME="GetMembers" DATASOURCE="Your DSN">
Select *
From Newsletter
WHERE EmailType = #form.EmailType#
Order By MemberID
</CFQUERY>
<!--- Determine if email going out will be in HTML format or not --->
<CFMAIL To="#GetMembers.Email#"
From="newsletter@menofvisionent.com"
Subject="This Week's Newsletter!"
Type="#mailType#">
#GetMembers.Message#
Sent: #DateFormat(Now(), 'ddd. mmmm dd, yyyy')#
to Unsubcribe visit:
http://www.menofvisionent.com/unsubscribe.cfm
</CFMAIL>