<% Response.Buffer=true %>
<!--#include file="../global_includes/global.asp"-->

<%
'---------------------------------------------------
' MAILING LIST QS VARIABLES
'---------------------------------------------------
%>

<!--#include file="mailingList_settings.asp"--->

<%
if process = "update" then
	returnString = "../admin/ia.asp?page_id=" & page_id & "&mode=managePlugins&editType=manage&pluginID=" & plugin_id & "&pluginFunc=mailingListAddEdit&subscriber_id=" & subscriber_id & "&errorMsg="
	confirmMessage = "Subscriber%20info%20updated"
else
	returnString = "../admin/ia.asp?page_id=" & page_id & "&mode=managePlugins&editType=manage&pluginID=" & plugin_id & "&pluginFunc=mailingListAddEdit&new_userName" & new_userName & "&new_emailAddress" & new_emailAddress & "&errorMsg="
	confirmMessage = "Subscriber%20added"
end if



'---------------------------------------------------
'-- Validate form values
if len(ml_userName) < 1 then
	response.redirect(returnString & "UserNameZeroLength")

end if
		
if len(ml_emailAddress) < 1 then
	response.redirect(returnString & "noEmailSupplied")
else
	if not isValidEmail(ml_emailAddress) then
		response.redirect(returnString & "emailInvalid")
	else
	
		'-- If we're adding check for the presence of the submitted email
		if process = "add" then	
			eSQL = "SELECT * FROM plugin_listSubscribers where subscriber_email = '" & ml_emailAddress & "'"			
		else
			eSQL = "SELECT * FROM plugin_listSubscribers where subscriber_email = '" & ml_emailAddress & "' AND subscriber_id <> " & subscriber_id			
		end if
					
		Set eRS = LoadRSFromDB(eSQL)
		if not eRS.EOF then
			response.redirect(returnString & "emailInUse")
		end if
		eRS.close
		
	end if
end if


'---------------------------------------------------
'-- Update database
if process = "update" then
	strSQL = ""&_
	"UPDATE plugin_listSubscribers SET "&_
	"subscriber_name = '" & ml_userName & "',"&_
	"subscriber_email = '" & ml_emailAddress & "',"&_
	"subscriber_mail_format = '" & ml_mail_format & "',"&_
	"subscriber_active = '" & ml_subscriber_active & "' "&_
	"WHERE subscriber_id = " & subscriber_id

	RunSQL strSQL
	response.redirect("../admin/ia.asp?page_id=" & page_id & "&mode=managePlugins&editType=manage&pluginID=" & plugin_id & "&confirmMsg=" & confirmMessage & "")

else
	strSQL = ""&_
	"INSERT INTO plugin_listSubscribers ("&_
	"subscriber_name,"&_
	"subscriber_email,"&_
	"subscriber_mail_format,"&_
	"subscriber_active"&_
	") VALUES ("&_
	"'" & ml_userName & "',"&_
	"'" & ml_emailAddress & "',"&_
	"'" & ml_mail_format & "',"&_
	"'" & ml_subscriber_active & "')"


	'---------------------------------------------------	
	'-- Not 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("../admin/ia.asp?page_id=" & page_id & "&mode=managePlugins&editType=manage&pluginID=" & plugin_id & "&confirmMsg=" & confirmMessage & "")

	else	
		response.redirect("../admin/ia.asp?page_id=" & page_id & "&mode=managePlugins&editType=manage&pluginID=" & plugin_id & "&errorMsg=unableToAddUser")			

	end if

end if
	

	






function send_ml_Email(e_userName,e_emailAddress,e_user_id)
	e_from = "admin@cardinalhumecentre.org.uk"
	e_to = e_emailAddress
	e_subject = "Subscription confirmation"
	e_message = ""&_
	"Dear " & e_userName & "," & VbCrLf & VbCrLf &_
	"Thank you for joining our mailing list. We will email you from time to time with news and information." & VbCrLf & VbCrLf &_
	"To confirm your subscription please click on this link: " & websiteURL & "joinUs.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 &_
	"The Cardinal Hume Centre"
	
	'--response.write e_message
	
	call sendEmail(e_from,e_to,e_subject,e_message)

end function


%>