<% Response.Buffer=true %>
<!--#include file="../global_includes/global.asp"-->

<%
'---------------------------------------------------
' MAILING LIST QS VARIABLES
'---------------------------------------------------
%>

<!--#include file="mailingList_settings.asp"--->

<%
'-- Validate form
if ml_userName = "Your name here" or len(ml_userName) < 1 then
	response.redirect(ml_referer_page & "?page_id=" & ml_referer_page_id & "&ml_userName=" & ml_userName & "&ml_emailAddress=" & ml_emailAddress & "&errorMsg=noUserNameSupplied&#mlFormAnchor")

end if
		
if ml_emailAddress = "Your email here" or len(ml_emailAddress) < 1 then
	response.redirect(ml_referer_page & "?page_id=" & ml_referer_page_id & "&ml_userName=" & ml_userName & "&ml_emailAddress=" & ml_emailAddress & "&errorMsg=noEmailSupplied&#mlFormAnchor")
else
	if not isValidEmail(ml_emailAddress) then
		response.redirect(ml_referer_page & "?page_id=" & ml_referer_page_id & "&ml_userName=" & ml_userName & "&ml_emailAddress=" & ml_emailAddress & "&errorMsg=emailInvalid&#mlFormAnchor")
	else
		eSQL = "SELECT * FROM plugin_listSubscribers where subscriber_email = '" & ml_emailAddress & "'"
		Set eRS = LoadRSFromDB(eSQL)
		if not eRS.EOF then
			response.redirect(ml_referer_page & "?page_id=" & ml_referer_page_id & "&ml_userName=" & ml_userName & "&ml_emailAddress=" & ml_emailAddress & "&errorMsg=emailInUse&#mlFormAnchor")
		end if
		eRS.close
	end if
end if




		
strSQL = ""&_
"INSERT INTO plugin_listSubscribers ("&_
"subscriber_name,"&_
"subscriber_email,"&_
"subscriber_mail_format,"&_
"subscriber_active"&_
") VALUES ("&_
"'" & ml_userName & "',"&_
"'" & ml_emailAddress & "',"&_
"'html',"&_
"'false')"
	
RunSQL strSQL




	
'-- Now extract the ID of the record we have just entered
strSQL = "SELECT subscriber_id from plugin_listSubscribers ORDER by subscriber_id DESC LIMIT 1"
Set eRS = LoadRSFromDB(eSQL)
if not eRS.EOF then

	call send_ml_Email(ml_userName,ml_emailAddress,eRS("subscriber_id"))
	response.redirect("../" & ml_join_page_name & ".asp?page_id=" & ml_join_page_id & "&ml_joinStatus=true")
		
else
	response.redirect("../" & ml_join_page_name & ".asp?page_id=" & ml_join_page_id & "&ml_joinStatus=false")	
end if





function send_ml_Email(e_userName,e_emailAddress,e_user_id)
	e_from = "admin@" & websiteDomainName
	e_to = e_emailAddress
	e_subject = "Subscription confirmation"
	e_message = ""&_
	"Dear " & e_userName & "," & VbCrLf & VbCrLf &_
	"Thank you for signing up to receive our newsletter and bulletin." & VbCrLf & VbCrLf &_
	"To confirm your subscription please click on this link: " & websiteURL & ml_join_page_name & ".asp?page_id=" & ml_join_page_id & "&ml_confirmUserID=" & e_user_id & VbCrLf & VbCrLf &_
	"If you didn't sign up to receive news from us please ignore this email, you won't here from us again." & VbCrLf & VbCrLf &_
	"Regards," & VbCrLf & VbCrLf &_
	"Alliances for Africa"
	
	'response.write e_message
	'response.end
	
	call sendEmail(e_from,e_to,e_subject,e_message)

end function


%>