<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Spd E-Letter v3.0
' © 2001 James Harris
' For help with this program, please visit http://www.pensaworks.com
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="inc_functions.asp" -->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Send Email with ASPMail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If MailerProgram = "ASPMail" Then
		If Format = "text" Then
			Format = "text"
		Else
			Format = "text/html"
		End if
Results = ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, ReplyTo)
	If NOT Results Then
		Response.Redirect "message.asp?msg=26&mp=" & Server.URLEncode(MailerProgram)
	End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Send Email with ASPQMail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf MailerProgram = "ASPQMail" Then
		If Format = "text" Then
			Format = "text"
		Else
			Format = "text/html"
		End if
Results = ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, ReplyTo)
	If NOT Results Then
		Response.Redirect "message.asp?msg=26&mp=" & Server.URLEncode(MailerProgram)
	End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Send Email with SA-SmtpMail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf MailerProgram = "SA-SmtpMail" Then
		If Format = "text" Then
			Format = "text"
		Else
			Format = "text/html"
		End if
Results = SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, ReplyTo)
	If NOT Results Then
		Response.Redirect "message.asp?msg=26&mp=" & Server.URLEncode(MailerProgram)
	End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Send Email with JMail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf MailerProgram = "JMail" Then
		If Format = "text" Then
			Format = "text"
		Else
			Format = "text/html"
		End if
Results = JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, ReplyTo)
	If NOT Results Then
		Response.Redirect "message.asp?msg=26&mp=" & Server.URLEncode(MailerProgram)
	End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Send Email with ASPEmail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf MailerProgram = "ASPEMail" Then
		If Format = "text" Then
			Format = false
		Else
			Format = true
		End if

Results = ASPEmail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, ReplyTo)
	If NOT Results Then
		Response.Redirect "message.asp?msg=26&mp=" & Server.URLEncode(MailerProgram)
	End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Send Email with CDOMail or Chili!Mail (same syntax)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
	If Format = "text" Then
			Format = "1"
		Else
			Format = "0"
		End if
Results = CDOMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, ReplyTo)
	If Not Results Then
		Response.Redirect "message.asp?msg=26&mp=" & Server.URLEncode(MailerProgram)
	End If
End If
%>