<%
'open data connection
Call OpenConn()
%>
<!-- #include virtual="/includes/dataconn.asp" -->
<%'Include ADO constants include file for VBScript%>
<!--#INCLUDE VIRTUAL="/includes/adovbs.inc"-->
<!-- #include virtual="/admin/includes/common_utils.asp" -->
<!-- #include virtual="/admin/includes/subscriber_utils.asp" -->

<%
'dim strDelimiter - The strDelimiter varible is defined in the common_utils.asp file.
dim strAction
dim strFirstName
dim strLastName
dim strOrganization
dim bolSubscriberExists
dim strFeedback
dim strSelectedPostingTypes

'if the form information has been submitted then...
If Request.Form <> "" Then
	dim intSubscriberId

	'get the submitted form elements
	strAction = Request.Form("txtAction")
	strEmail = Request.Form("txtEmail")
	
	'initialize the strSelectedPostingTypes variable to an empty string
	strSelectedPostingTypes = ""
	
	'set the intSubscriberIsLive to true
	intSubscriberIsLive = 1
	
	'depending on the strAction variable value
	Select Case LCase(strAction)
		'if strAction is equal to 'get' then...
		Case "get" 'the application verifies the subscriber's existence and gets his info
			dim intSubscriberIsLive
			dim rsSubscriber
			dim rsSubscribedToPostings
		
			'get the subscriber id into the intSubscriberId variable
			intSubscriberId = VerifySubscribersExistence(strEmail, intSubscriberIsLive)
			
			'if the intSubscriberId variable is different than an empty string then...
			If intSubscriberId <> "" Then

				'set the boolean value evaluating the existence of the subscriber in the database into the bolSubscriberExists variable
				bolSubscriberExists = True
				
				'get the subscribed postings into the rsSubscribedToPostings recordset object
				Set rsSubscribedToPostings = GetSubscriberSelectedPostingType(intSubscriberId)
				
				'loop through the posting types
				Do While Not rsSubscribedToPostings.Eof
					'concatenate the posting type id and delimiter to the strSelectedPostingTypes variable
					strSelectedPostingTypes = strSelectedPostingTypes & rsSubscribedToPostings("POSTING_TYPE_ID") & strDelimiter
					
					'move to the next record in the recordset
					rsSubscribedToPostings.MoveNext
				Loop
				
				'get the subscriber information into the rsSubscriber recordset object
				Set rsSubscriber = GetSubscriberInfo(intSubscriberId)
				
				'get the subscriber's information into the relevant variables
				strFirstName = rsSubscriber("SUBSCRIBER_FIRST_NAME")
				strLastName = rsSubscriber("SUBSCRIBER_LAST_NAME")
				strOrganization = rsSubscriber("SUBSCRIBER_ORGANIZATION")
				
				'release the rsSubscriber recordset from memory
				rsSubscriber.Close
				Set rsSubscriber = Nothing
				
				'set the feedback for the user
				strFeedback = "Please make any necessary changes, and click ""Update""."
				
			'if the intSubscriberId variable is not different than an empty string then...
			Else
				'set the boolean value of bolSubscriberExists to false
				bolSubscriberExists = False

				'reset the value of strAction to input
				strAction = "input"

				'set the feedback for the user
				strFeedBack = "Your profile could not be found. Please email the webmaster by clicking the link below if you have any questions."
			End If

		Case "modify" 'the application processes the subscriber's modified information
			dim intSusbscriberPostingTypeCounter
			dim arPostingTypes

			'get the submitted subscriber id and selected posting types
			intSubscriberId = Request.Form("txtSubscriberId")
			strSelectedPostingTypes = Request.Form("txtSelectedPostingTypes")
			strOrganization = Request.Form("txtOrganization")
			
			'if the user has selected posting types to subscribe to then...
			If strSelectedPostingTypes <> "" Then

				'modify the subscriber's information
				Call ModifySubscriberUnsubscribe(CInt(intSubscriberId), strEmail, strOrganization)
				
				'delete the user's posting type subscriptions
				Call Delete_Subscriber_PostingType(intSubscriberId)

				'add the user's new posting type subscriptions:
				'get the selected posting types into the arPostingTypes array variable
				arPostingTypes = Split(strSelectedPostingTypes, strDelimiter)
				
				'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
				
				'set the feedback for the user
				strFeedback = "Your subscriber information has been updated successfully.<p>To unsubscribe/modify your subscription information for the Vitesse.ca Subscription Service, Please enter your e-mail address below:</p>"
			'if the user has not selected posting types to subscribe to then...
			Else
				'remove the subscriber from the database
				'comment out the deletion of the subscriber because subscribers are also contacts (for Vitesse)
				'Call DeleteSubscriber(intSubscriberId)

				'modify the subscriber's information
				Call ModifySubscriberUnsubscribe(CInt(intSubscriberId), strEmail, strOrganization)
				
				'delete the user's posting type subscriptions
				Call Delete_Subscriber_PostingType(intSubscriberId)

				'set the feedback for the user
				strFeedback = "You have been successfully unsubscribed from Vitesse news."
			End If
		
		Case "delete" 'the application deletes the subscriber from the database
			'get the subscriber id into the intSubscriberId variable
			intSubscriberId = VerifySubscribersExistence(strEmail, intSubscriberIsLive)
			
			'if the intSubscriberId variable is different than an empty string then...
			If intSubscriberId <> "" Then
				'remove the subscriber from the database
				'comment out the deletion of the subscriber because subscribers are also contacts (for Vitesse)
				'Call DeleteSubscriber(intSubscriberId)

				'delete the user's posting type subscriptions
				Call Delete_Subscriber_PostingType(intSubscriberId)

				'set the feedback for the user
				strFeedback = "You have been successfully unsubscribed from Vitesse news."

			'if the intSubscriberId variable is not different than an empty string then...
			Else
				'set the boolean value of bolSubscriberExists to false
				bolSubscriberExists = False

				'reset the value of strAction to input
				strAction = "input"

				'set the feedback for the user
				strFeedBack = "Your profile could not be found. Please email the webmaster by clicking the link below if you have any questions."
			End If

	End Select
'if the form information has not been submitted then...
Else
	'reset the value of strAction to input
	strAction = "input"

	'set the feedback for the user
	strFeedback = "<b>To unsubscribe/modify your subscription information for the Vitesse.ca Subscription Service, <br>Please enter your e-mail address below:<br>"
End If
%>

<html>
<head>
	<title>Vitesse Re-Skilling Canada Inc. :: Unsubscribe ::</title>
	<link rel="stylesheet" href="/styles/styles_admin.css"" type="text/css">
	<script language="JavaScript">
		function validate_subscriber(current_subscriber){
			var errMess = "You must correct the following before the subscription can proceed:\n\n";
			var delimiter = current_subscriber.txtDelimiter.value;
			var email = current_subscriber.txtEmail.value;
			var selected_posting_types = current_subscriber.txtSelectedPostingTypes;
			var action = current_subscriber.txtAction.value;
			var isFalse = 0;	//set default value of isFalse to 0
			// email validation
			var email_err_message = emailCheck(email)	// validate email and set 'email_err_message' with return value
														// (take a look at emailCheck function for details)
			if (email_err_message != ""){// if the email field is invalid
				errMess = errMess + email_err_message
				isFalse = 1;	//	then set isFalse to 1
			}	
	
			//if isFalse equivalates to 1 then return false
			if (isFalse == 1){
				alert(errMess);
				return false;
			}
			//if isFalse does not equivalates to 1 then...
			else{
				//if txtAction is equal to modify then...
				if(action == 'modify'){
					//get delimited list of selected posting types
					selected_posting_types.value = getSelectedPostingTypes(current_subscriber, delimiter);
				}

				// submit the form
				current_subscriber.submit();
			}
		}
		
		function getSelectedPostingTypes(subscriber, delimiter){
			
			var selected_posting_types = '';
			for (var element_count = 0; element_count <= (subscriber.length - 1); element_count++) { 
				if (subscriber.elements[element_count].name == 'chkPostingType'){// if the current form element is a 'chkPostingType' checkbox then...
					if (subscriber.elements[element_count].checked == true){
						selected_posting_types = selected_posting_types + subscriber.elements[element_count].value + delimiter;
					}
				}
			}
			return selected_posting_types;
		}

		function setSelectedPostingTypes(subscriber, delimiter, postingTypeList){

			var startPos;
			var postingTypeId;
			var delimiterPos;
			var selected_posting_types = '';

			for (var element_count = 0; element_count <= (subscriber.length - 1); element_count++) { 
				if (subscriber.elements[element_count].name == 'chkPostingType'){// if the current form element is a 'chkPostingType' checkbox then...
					//(re)set variables
					startPos = 0;
					postingTypeId = 0;
					delimiterPos = postingTypeList.indexOf(delimiter);

					while (delimiterPos != -1) {
						//get posting type id
						postingTypeId = postingTypeList.substr(startPos, delimiterPos-startPos);

					   	//if the checkbox relates to a posting type id in the list then...
						if(subscriber.elements[element_count].value == postingTypeId){
							//check the the checkbox
							subscriber.elements[element_count].checked = true;
							break;
						}

						//move to the next posting type id
						startPos = delimiterPos + delimiter.length;
						delimiterPos = postingTypeList.indexOf(delimiter,delimiterPos+1);
					}
					
				}
			}
			return true;
		}
	
		function Trim(str){
		
		/***    PURPOSE: Remove trailing and leading blanks from our string.
		        IN: str - the string we want to Trim
		        RETVAL: A Trimmed string!
		***/
		        return RTrim(LTrim(str));
		}
	
		function LTrim(str)
		/***
		        PURPOSE: Remove leading blanks from our string.
		        IN: str - the string we want to LTrim
		
		        RETVAL: An LTrimmed string!
		***/
		{
		        var whitespace = new String(" \t\n\r");
		
		        var s = new String(str);
		
		        if (whitespace.indexOf(s.charAt(0)) != -1) {
		            // We have a string with leading blank(s)...
		
		            var j=0, i = s.length;
		
		            // Iterate from the far left of string until we
		            // don't have any more whitespace...
		            while (j < i && whitespace.indexOf(s.charAt(j)) != -1)
		                j++;
		            // Get the substring from the first non-whitespace
		            // character to the end of the string...
		            s = s.substring(j, i);
		        }
		
		        return s;
		}
		
		function RTrim(str)
	        /***
	                PURPOSE: Remove trailing blanks from our string.
	                IN: str - the string we want to RTrim
	
	                RETVAL: An RTrimmed string!
	        ***/
	        {
	                // We don't want to trip JUST spaces, but also tabs,
	                // line feeds, etc.  Add anything else you want to
	                // "trim" here in Whitespace
	                var whitespace = new String(" \t\n\r");
	                var s = new String(str);
	
	                if (whitespace.indexOf(s.charAt(s.length-1)) != -1) {
	                    // We have a string with trailing blank(s)...
	
	                    var i = s.length - 1;       // Get length of string
	
	                    // Iterate from the far right of string until we
	                    // don't have any more whitespace...
	                    while (i >= 0 && whitespace.indexOf(s.charAt(i)) != -1)
	                        i--;
	                    // Get the substring from the front of the string to
	                    // where the last non-whitespace character is...
	                    s = s.substring(0, i+1);
	                }
	                return s;
	        }
			
		function emailCheck (emailStr) {
		/* The following pattern is used to check if the entered e-mail address
		   fits the user@domain format.  It also is used to separate the username
		   from the domain. */
		var emailPat=/^(.+)@(.+)$/
		/* The following string represents the pattern for matching all special
		   characters.  We don't want to allow special characters in the address. 
		   These characters include ( ) < > @ , ; : \ " . [ ]    */
		var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
		/* The following string represents the range of characters allowed in a 
		   username or domainname.  It really states which chars aren't allowed. */
		var validChars="\[^\\s" + specialChars + "\]"
		/* The following pattern applies if the "user" is a quoted string (in
		   which case, there are no rules about which characters are allowed
		   and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
		   is a legal e-mail address. */
		var quotedUser="(\"[^\"]*\")"
		/* The following pattern applies for domains that are IP addresses,
		   rather than symbolic names.  E.g. joe@[123.124.233.4] is a legal
		   e-mail address. NOTE: The square brackets are required. */
		var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
		/* The following string represents an atom (basically a series of
		   non-special characters.) */
		var atom=validChars + '+'
		/* The following string represents one word in the typical username.
		   For example, in john.doe@somewhere.com, john and doe are words.
		   Basically, a word is either an atom or quoted string. */
		var word="(" + atom + "|" + quotedUser + ")"
		// The following pattern describes the structure of the user
		var userPat=new RegExp("^" + word + "(\\." + word + ")*$")
		/* The following pattern describes the structure of a normal symbolic
		   domain, as opposed to ipDomainPat, shown above. */
		var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")
	
		/* Finally, let's start trying to figure out if the supplied address is
		   valid. */
	
		/* Begin with the coarse pattern to simply break up user@domain into
		   different pieces that are easy to analyze. */
		   
		if (emailStr.length == 0){
			// verify that email is present
			return "Please enter your email address.\n";
		}
		
		var matchArray=emailStr.match(emailPat)
		if (matchArray==null) {
		  /* Too many/few @'s or something; basically, this address doesn't
		     even fit the general mould of a valid e-mail address. */
			return "Email address seems incorrect (check @ and .'s)\n";
		}
		var user=matchArray[1]
		var domain=matchArray[2]
	
		// See if "user" is valid 
		if (user.match(userPat)==null) {
		    // user is not valid
		    return "The username in the email doesn't seem to be valid.\n";
		}
	
		/* if the e-mail address is at an IP address (as opposed to a symbolic
		   host name) make sure the IP address is valid. */
		var IPArray=domain.match(ipDomainPat)
		if (IPArray!=null) {
		    // this is an IP address
			  for (var i=1;i<=4;i++) {
			    if (IPArray[i]>255) {
				return "Destination IP address in the email is invalid!\n";
			    }
		    }
		    return ""
		}
	
		// Domain is symbolic name
		var domainArray=domain.match(domainPat)
		if (domainArray==null) {
			
		    return "The domain name in the email doesn't seem to be valid.\n";
		}
	
		/* domain name seems valid, but now make sure that it ends in a
		   three-letter word (like com, edu, gov) or a two-letter word,
		   representing country (uk, nl), and that there's a hostname preceding 
		   the domain or country. */
	
		/* Now we need to break up the domain to get a count of how many atoms
		   it consists of. */
		var atomPat=new RegExp(atom,"g")
		var domArr=domain.match(atomPat)
		var len=domArr.length
		if (domArr[domArr.length-1].length<2 || 
		    domArr[domArr.length-1].length>3) {
		   // the address must end in a two letter or three letter word.
		   return "The email address must end in a three-letter domain, or two letter country.\n";
		}
	
		// Make sure there's a host name preceding the domain.
		if (len<2) {
		   return "The email address is missing a hostname!\n";
		}
	
		// If we've gotten this far, everything's valid!
		return "";
		}
	</script>

</head>

<body leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#3B5E66" <%If strAction = "get" Then%>onload="setSelectedPostingTypes(document.forms.frmUnsubscribe, document.forms.frmUnsubscribe.txtDelimiter.value, document.forms.frmUnsubscribe.txtSelectedPostingTypes.value);"<%End If%>><center>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td align="left" valign="top">
				<table width="100%" border="0" cellspacing="0" cellpadding="0">
				<!--main top nav table-->
					<!-- #include virtual="/includes/top_nav_pop_admin.htm" -->
				<!--end main top nav table-->
					<tr>
						<td width="100%" colspan="3" align="left" valign="top">
							<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#3B5E66">
								<tr>
									<td height="33" colspan="3" align="left" valign="top"><img src="/images/spacer.gif" width="1" border="0" alt=""></td>
								</tr>
								<tr>
									<td align="left" valign="top"><img src="/images/spacer.gif" height="1" width="30" border="0" alt=""></td>
									<td align="left" valign="top">
									<!-- Insert Body Content -->
									
									<table width="75%" border="0" cellspacing="0" cellpadding="7" align="center">
										<form name="frmUnsubscribe" method="post" action="/unsubscribe.asp">
										<tr>
											<td align="center" valign="top">
											<%=strFeedback%>
											</td>
										</tr>
										<tr>
											<td align="left" valign="top">
												Email Address:<br>
												<input type="text" value="" name="txtEmail" size="25" value="">
											</td>
										</tr>
										
											<%
											'if the application is in modify mode then...
											If strAction = "get" Then
											%>
										<tr>
											<td align="left" valign="top">
												Name:<br>
												<input type="text" value="" name="txtName" size="25" value="" disabled><br>
											</td>
										</tr>
										<tr>
											<td align="left" valign="top">
												Organization:<br>
												<input type="text" value="" name="txtOrganization" size="25" value=""><br>
											</td>
										</tr>
										<tr>
											<td align="left" valign="top">
											<%
												'Output the subscribeable posting type checkboxes
												Response.Write DisplayPostingTypeCheckboxes()
												End If
											%>
											</td>
										</tr>
										<tr>
											<td align="left" valign="top">
											<%
											'if the application is in get mode then...
											If strAction = "get" Then
											%>
										   <input name="FormSubmitted" class="btn" type="button" value="  Update  " onClick="javascript:this.form.txtAction.value='modify';validate_subscriber(this.form);">
										   <input name="FormSubmitted" class="btn" type="button" value="  Cancel  " onClick="javascript:window.history.back();">
											<%
											'if the application is not in get mode then...
											Else
											%>
											<input class="btn" type="button" value="Modify My subscriber information" onClick="javascript:this.form.txtAction.value='get';validate_subscriber(this.form);" name="Modify" size="20"><br>
											<input class="btn" type="button" value="Unsubscribe Me from All Vitesse.ca Postings" onClick="javascript:this.form.txtAction.value='delete';validate_subscriber(this.form);" name="Delete" size="20">
											<%
											End If
											%>
											<input type="hidden" name="txtSubscriberId" value="<%=intSubscriberId%>">
											<input type="hidden" name="txtAction" value="">
											<input type="hidden" name="txtDelimiter" value="">
											<input type="hidden" name="txtSelectedPostingTypes" value="">
											<input type="hidden" name="txtFirstName" value="<%=strFirstName%>">
											<input type="hidden" name="txtLastName" value="<%=strLastName%>">
											<input type="hidden" name="txtOrganization" value="<%=strOrganization%>">
											</td>
										</tr>
										</form>
											<script language="JavaScript">
												var subscriber = document.forms.frmUnsubscribe;
												subscriber.txtEmail.value = "<%=strEmail%>";
												subscriber.txtFirstName.value = "<%=strFirstName%>";
												subscriber.txtLastName.value = "<%=strLastName%>";
												subscriber.txtOrganization.value = "<%=strOrganization%>";
												subscriber.txtAction.value = "<%=strAction%>";
												subscriber.txtDelimiter.value = "<%=strDelimiter%>";
												subscriber.txtSelectedPostingTypes.value = "<%=strSelectedPostingTypes%>";
											</script>
											</td>
										</tr>
										<tr>
											<td align="center" valign="top">
												<center>
												If you experience any difficulties,<br> please contact <a href="mailto:info@vitesse.ca">info@vitesse.ca</a>
												<p><a href="http://www.vitesse.ca">www.vitesse.ca</a></p>
												</center>
											</td>
										</tr>
									</table>									
									<!-- End Insert Body Content -->
									</td>
									<td align="left" valign="top"><img src="/images/spacer.gif" height="1" width="15" border="0" alt=""></td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</body>
</html>
<%
'open data connection
Call CloseConn()
%>