Call ModifySubscriber(CInt(intSubscriberId), strFirstName, strLastName, strEmail, strOrganization, intSubscriberIsLive, strRelevantEducation, intFirstDegreeObtainedCountryId, intContactTypeId, strEmploymentStatus, strStatementOfInterest, intYearsOfProfessionalExperience)

		'delete posting type records related to the selected subscriber id
		Call Delete_Subscriber_PostingType(intSubscriberId)

	'if the application is in 'add' mode
	Else
		'verify the subscriber's existence
		intSubscriberId = VerifySubscribersExistence(strEmail, intSubscriberIsLive)

		'if the susbscriber does not exist then...
		If intSubscriberId = "" Then
			'add Subscriber
			intSubscriberId = AddSubscriber(strFirstName, strLastName, strEmail, strOrganization, intSubscriberIsLive, strRelevantEducation, intFirstDegreeObtainedCountryId, intContactTypeId, strEmploymentStatus, strStatementOfInterest, intYearsOfProfessionalExperience)

		'if the susbscriber does exist then...
		Else
			'modify Posting Type Name
			Call ModifySubscriber(CInt(intSubscriberId), strFirstName, strLastName, strEmail, strOrganization, intSubscriberIsLive, strRelevantEducation, intFirstDegreeObtainedCountryId, intContactTypeId, strEmploymentStatus, strStatementOfInterest, intYearsOfProfessionalExperience)
	
			'delete posting type records related to the selected subscriber id
			Call Delete_Subscriber_PostingType(intSubscriberId)
		End If
	End If

	'for each posting type...
	For intSusbscriberPostingTypeCounter = LBound(arPostingTypes) To UBound(arPostingTypes)

		'if the array item is not an empty string then...
		If Trim(arPostingTypes(intSusbscriberPostingTypeCounter)) <> "" Then
	
			'add a posting type record related to the subscriber
			Call Add_Subscriber_PostingType(arPostingTypes(intSusbscriberPostingTypeCounter), intSubscriberId)
		End If
	Next 

	'if the this transaction is initiated from the client (user) side of the site then...
	If strRefererURL <> "" Then
		'if any error occurred then...
		If err.number <> 0 Then
			'set the querystring with the error code
			strRefererURL = strRefererURL & "?subscribed=" & err.number

		'if no errors occurred then...
		Else
			'set the querystring with ok
			strRefererURL = strRefererURL & "?subscribed=ok"
		End If
		'redirect the user to the refering page and inform the user of the occurence of any errors
		Response.Redirect(strRefererURL)
	End If
	
	'give the user feedback with regards to the success of the add/edit database transaction
	Session("FeedbackMode") = LCase(strMode)
	Session("FeedbackError") = err.number
	Session("FeedbackModule") = "subscriber"
	
	'Response.Write("<script language=""JavaScript"">openDialog('/admin/feedback.asp', '600', '360', 'no');</script>")
	Server.Execute("/admin/feedback.asp")

	'END: ADD/EDIT (DB TRANSACTION)

Else

	'BEGIN: INPUT (ADD/EDIT)
	
	'get the application's transaction mode
	strMode = Trim(Request.QueryString("mode"))
	
	'get the subscriber's type
	strSubscriberType = Trim(Request.QueryString("type"))

	'if application is in edit mode then...	
	If LCase(strMode) = "edit" Then

		'begin: get current Posting Type info to be edited
		dim rsSubscriber
		
		intSubscriberId = Trim(Request.QueryString("id"))
		
		'if intSubscriberId is not a valid value then...
		If Not IsNumeric(intSubscriberId) or Not (intSubscriberId <> "") Then
			'close the window
			Response.write("<script language=""javascript"">window.close;</script>")
	
		'if intSubscriberId is a valid value then...
		Else
			'get the related Subscriber information
			Set rsSubscriber = GetSelectedSubscriber(CInt(intSubscriberId))
		End If

		'if intSubscriberId does not relate to an existing Subscriber id then...
		If rsSubscriber.EOF Then
			'release the recordset from memory
			rsSubscriber.Close
			set rsSubscriber = Nothing
			
			'release the connection object from memory before closing the window
			conn.Close
			Set conn = Nothing
			
			'close the window
			Response.write("<script language=""javascript"">window.close;</script>")
	
		'if intSubscriberId does relate to an existing Subscriber id then...
		Else
			'get the subscriber information into the relevant variables
			strFirstName = rsSubscriber("SUBSCRIBER_FIRST_NAME")
			strLastName = rsSubscriber("SUBSCRIBER_LAST_NAME")
			strEmail = rsSubscriber("SUBSCRIBER_EMAIL")
			strOrganization = rsSubscriber("SUBSCRIBER_ORGANIZATION")
			intContactTypeId = rsSubscriber("CONTACT_TYPE_ID")
			intFirstDegreeObtainedCountryId = rsSubscriber("SUBSCRIBER_COUNTRY_OF_FIRST_DEGREE")
			strRelevantEducation = rsSubscriber("SUBSCRIBER_RELEVANT_EDUCATION")
			strEmploymentStatus = rsSubscriber("SUBSCRIBER_EMPLOYMENT_STATUS")
			strStatementOfInterest = rsSubscriber("SUBSCRIBER_STATEMENT_OF_INTEREST")
			intYearsOfProfessionalExperience = rsSubscriber("SUBSCRIBER_YEARS_OF_PROFESSIONAL_EXPERIENCE")

			'release the recordset from memory
			rsSubscriber.Close
			set rsSubscriber = Nothing
		End If
		
		'end: get current subscriber info to be edited

	'if application is in add mode then...	
	Else
		strFirstName = ""
		strLastName = ""
		strOrganization = ""
	End If
	%>
	<script language="javascript">

		function checkEmail(str){
			if(isRecentBrowser()==true){
				var testresults=false;
				var filter=/^[a-zA-Z0-9._-]+@([a-zA-Z0-9.-]+\.)+[a-zA-Z0-9.-]{2,4}$/;
				
				if (filter.test(str)){
					testresults=true
				}
				return testresults;
			}else{
				return true;
			}
		}
		
		function isRecentBrowser(){
			if (document.layers||document.getElementById||document.all){
				return true;
			}else{
				return false;
			}
		}
	
		function move(fbox, tbox) {
			var arrFbox = new Array();
			var arrTbox = new Array();
			var arrLookup = new Array();
			var i;
			
			for (i = 0; i < tbox.options.length; i++) {
				arrLookup[tbox.options[i].text] = tbox.options[i].value;
				arrTbox[i] = tbox.options[i].text;
			}
			
			var fLength = 0;
			var tLength = arrTbox.length;
			
			for(i = 0; i < fbox.options.length; i++) {
				arrLookup[fbox.options[i].text] = fbox.options[i].value;
				if (fbox.options[i].selected && fbox.options[i].value != "") {
					arrTbox[tLength] = fbox.options[i].text;
					tLength++;
				}
				else {
					arrFbox[fLength] = fbox.options[i].text;
					fLength++;
			   	}
			}
			
			arrFbox.sort();
			arrTbox.sort();
			fbox.length = 0;
			tbox.length = 0;
			var c;
			
			for(c = 0; c < arrFbox.length; c++) {
				var no = new Option();
				no.value = arrLookup[arrFbox[c]];
				no.text = arrFbox[c];
				fbox[c] = no;
			}
			for(c = 0; c < arrTbox.length; c++) {
				var no = new Option();
				no.value = arrLookup[arrTbox[c]];
				no.text = arrTbox[c];
				tbox[c] = no;
		   	}
		}

		function getSelectedItems(subscriber){
			if(subscriber.selSelected.length > 0){
				var selectedItems = '';
				var delimiter = subscriber.txtDelimiter.value;
				
				for(var x=0; x<subscriber.selSelected.length; x++){
					if(x>0){selectedItems = selectedItems + delimiter}
					selectedItems = selectedItems + subscriber.selSelected.options[x].value;
				}
				subscriber.txtSelected.value = selectedItems;
				return true;
			}else{
				return false;
			}
		}

		function validateForm(subscriber){
			var firstName = subscriber.txtFirstName.value;
			var lastName = subscriber.txtLastName.value;
			var email = subscriber.txtEmail.value;
			var contactType = subscriber.selContactType.options[subscriber.selContactType.selectedIndex].value;

			var errMess = "You must correct the following before the application can proceed:\n\n";
			var isFalse = 0;	//set default value of isFalse to 0
			
			// first name validation
			if (firstName.length < 2) {	//if the string value in the 'first name' field contains less than 2 characters
								// then alert the user and set isFalse to 1
				errMess = errMess + "The subscriber's first name must be least 2 characters.\n";
				isFalse = 1;
			}
	
			// last name validation
			if (lastName.length < 2) {	//if the string value in the 'last name' field contains less than 2 characters
								// then alert the user and set isFalse to 1
				errMess = errMess + "The subscriber's last name must be least 2 characters.\n";
				isFalse = 1;
			}

			// email validation
			if (checkEmail(email)==false) {	//if the string value in the 'email' is not a valid email address
								// then alert the user and set isFalse to 1
				errMess = errMess + "The Email address must be of a valid format.\n";
				isFalse = 1;
			}

			// contact type validation
			if (contactType==0) {	//if the 'contactType' has not been specified
								// then alert the user and set isFalse to 1
				errMess = errMess + "The Contact Type must be specified.\n";
				isFalse = 1;
			}

			//if isFalse equivalates to 1 then return false
			if (isFalse == 1){
				alert(errMess);
				return false;
			}
			else{//if isFalse does not equivalates to 1 then return true
				getSelectedItems(subscriber);
				return true;
			}
		}
		
		function cancelEdit(){
			var message = "To Cancel out of adding/editing, click on 'OK' (all information inputted/modifidied will not be committed to the database).\n";
			message = message + "To continue adding/editing, click on 'Cancel'.";
			if(confirm(message)){
				if (opener){opener.unblockEvents();}
				window.close();
			}
		}
	</script>
	
	==============================
	
	
	
	
	
	
	<input type="hidden" name="txtMode" id="txtMode" value="<%=LCase(strMode)%>">
								<input type="hidden" name="txtSelected" id="txtSelected" value="">
								<input type="hidden" name="txtDelimiter" id="txtDelimiter" value="<%=strDelimiter%>">
								<%
								If LCase(strMode) = "edit" Then
								%>
									<input type="hidden" name="txtId" id="txtId" value="<%=intSubscriberId%>">
								<%
								Else
								%>
									<input type="hidden" name="txtSubscriberType" id="txtSubscriberType" value="<%=strSubscriberType%>">
								<%
								End If
								%>