<%'Include Data Connection%>
<!--#INCLUDE VIRTUAL="/includes/dataconn.asp"-->

<%'Include ADO constants include file for VBScript%>
<!--#INCLUDE VIRTUAL="/includes/adovbs.inc"-->

<%
'open data connection
Call OpenConn()
%>

<%'Include Utility Scripts%>
<!--#INCLUDE VIRTUAL="/admin/includes/common_utils.asp"-->
<!--#INCLUDE VIRTUAL="/admin/includes/subscriber_utils.asp"-->
<!--#INCLUDE VIRTUAL="/admin/includes/dynamic_form_utils.asp"-->
<%
'dim strMode - The strMode variable is defined in the header_inc.asp file.
Dim intDynamicFormId

'form variables
Dim strName_en
Dim strName_fr
Dim strSubmitButtonCaption_en
Dim strSubmitButtonCaption_fr
Dim strFeedback_en
Dim strFeedback_fr
Dim strAlreadyFilledOutFeedback_en
Dim strAlreadyFilledOutFeedback_fr
Dim bolSubmitsToExternalURL
Dim strExternalURL
Dim strExternalURL_fr
Dim bolEmailForm
Dim strPrimaryEmail
Dim strCCEmail
Dim bolSaveToDB
Dim bolAllowAdminToAdd
Dim bolAllowAdminToEdit
Dim bolUserCanOnlySubmitOnce
Dim bolUserCanSubscribe
Dim intMaxPossibleAnswers

Dim intGroupId

'set french vars to null
strName_fr = Null
strSubmitButtonCaption_fr = Null
strFeedback_fr = Null
strAlreadyFilledOutFeedback_fr = Null
strExternalURL_fr = Null


'initialize the boolean variables
bolSubmitsToExternalURL = 0
bolEmailForm = 0
bolSaveToDB = 0
bolAllowAdminToAdd = 0
bolAllowAdminToEdit = 0
bolUserCanOnlySubmitOnce = 0
bolUserCanSubscribe = 0

'initialize the default for intMaxPossibleAnswers
intMaxPossibleAnswers = 5

If Request.Form <> "" Then
	'get the mode
	strMode = Request.Form("txtMode")

	'get the form field values
	strName_en = Request.Form("txtName_en")
	strFeedback_en = Request.Form("txtFeedback_en")
	
	strAlreadyFilledOutFeedback_en = Request.Form("txtAlreadyFilledOutFeedback_en")
	
	strSubmitButtonCaption_en = Request.Form("txtSubmitButtonCaption_en")

	strExternalURL = Request.Form("txtExternalURL")
	strPrimaryEmail = Request.Form("txtPrimaryEmail")
	strCCEmail = Request.Form("txtCCEmail")
	intMaxPossibleAnswers = Request.Form("selMaxPossibleAnswers")

	'get the boolean values
	If Request.Form("chkSubmitToExternal") <> "" Then 
		bolSubmitsToExternalURL = 1
	End If
	If Request.Form("chkEmailTheForm") <> "" Then 
		bolEmailForm = 1
	End If
	If Request.Form("chkSaveToDB") <> "" Then 
		bolSaveToDB = 1
	End If
	If Request.Form("chkAllowAdminToAdd") <> "" Then 
		bolAllowAdminToAdd = 1
	End If
	If Request.Form("chkAllowAdminToEdit") <> "" Then 
		bolAllowAdminToEdit = 1
	End If
	If Request.Form("chkUserCanOnlySubmitOnce") <> "" Then 
		bolUserCanOnlySubmitOnce = 1
	End If
	If Request.Form("chkUserCanSubscribe") <> "" Then 
		bolUserCanSubscribe = 1
	End If
	
	'get the group value
	intGroupId = CInt(Request.Form("txtSelectedGroupId"))
	
	Select Case LCase(strMode)
		Case "add"
			intDynamicFormId = AddDynamicForm(intGroupId, strName_en, strName_fr, strSubmitButtonCaption_en, strSubmitButtonCaption_fr, strFeedback_en, strFeedback_fr, strAlreadyFilledOutFeedback_en, strAlreadyFilledOutFeedback_fr, bolSubmitsToExternalURL, strExternalURL, strExternalURL_fr, bolEmailForm, strPrimaryEmail, strCCEmail, bolSaveToDB, bolAllowAdminToAdd, bolAllowAdminToEdit, bolUserCanOnlySubmitOnce, bolUserCanSubscribe, intMaxPossibleAnswers)
			'if users can subscribe...
			If bolUserCanSubscribe Then
				'add the necessary elements
				Call AddSubscriberFormElements(intDynamicFormId)
			End If

		Case "edit"
		'get the id
		intDynamicFormId = Request.Form("txtDynamicFormId")
		
		Call UpdateDynamicForm(intGroupId, intDynamicFormId, strName_en, strName_fr, strSubmitButtonCaption_en, strSubmitButtonCaption_fr, strFeedback_en, strFeedback_fr, strAlreadyFilledOutFeedback_en, strAlreadyFilledOutFeedback_fr, bolSubmitsToExternalURL, strExternalURL, strExternalURL_fr, bolEmailForm, strPrimaryEmail, strCCEmail, bolSaveToDB, bolAllowAdminToAdd, bolAllowAdminToEdit, bolUserCanOnlySubmitOnce, bolUserCanSubscribe, intMaxPossibleAnswers)
	End Select
	
	'update the html field in the form element table
	Call CreateAndUpdateDynamicFormPageContent(intDynamicFormId)

	'give the user feedback with regards to the success of the database transaction
	Session("FeedbackMode") = LCase(strMode)
	Session("FeedbackError") = err.number
	Session("FeedbackModule") = "dynamic_form"
	Session("Referer") = "/admin/form_element_edit.asp?id=" & intDynamicFormId
	Response.Write("<script language=""JavaScript"" src=""/admin/includes/modalWindow.js""></script>")
	Response.Write("<script language=""JavaScript"">openDialog('/admin/feedback.asp', '600', '360', 'no');</script>")
	'end add/edit (db transactions)

Else
	'get the mode
	strMode = Request.QueryString("mode")

	Select Case LCase(strMode)
		Case "add"

		Case "edit"
		'get the id
		intDynamicFormId = Request.QueryString("id")

		'if the id is numeric and not an empty string...
		If IsNumeric(intDynamicFormId) And intDynamicFormId <> "" Then
			Dim rsDynamicForm
			Set rsDynamicForm = GetDynamicForm(intDynamicFormId)
			If rsDynamicForm.EOF = False Then
				Do Until rsDynamicForm.EOF
					'populate the variable with the database fields
					strName_en = rsDynamicForm("DYNAMIC_FORM_NAME_EN")
					strFeedback_en = rsDynamicForm("DYNAMIC_FORM_FEEDBACK_EN")

					strAlreadyFilledOutFeedback_en = rsDynamicForm("DYNAMIC_FORM_ALREADY_FILLED_OUT_FEEDBACK_EN")

					strSubmitButtonCaption_en = rsDynamicForm("DYNAMIC_FORM_SUBMIT_BUTTON_EN")

					bolSubmitsToExternalURL = rsDynamicForm("DYNAMIC_FORM_SUBMITS_TO_EXTERNAL_FORM")
					strExternalURL = rsDynamicForm("DYNAMIC_FORM_EXTERNAL_FORM_URL_EN")
					bolEmailForm = rsDynamicForm("DYNAMIC_FORM_ENTRIES_ARE_EMAILED")
					strPrimaryEmail = rsDynamicForm("DYNAMIC_FORM_EMAIL_ADDRESS_PRIMARY")
					strCCEmail = rsDynamicForm("DYNAMIC_FORM_EMAIL_ADDRESS_CC")
					bolSaveToDB = rsDynamicForm("DYNAMIC_FORM_SAVES_TO_DATABASE")
					bolAllowAdminToAdd = rsDynamicForm("DYNAMIC_FORM_ALLOWS_ADMIN_USERS_TO_ADD_ENTRY")
					bolAllowAdminToEdit = rsDynamicForm("DYNAMIC_FORM_ALLOWS_ADMIN_USERS_TO_EDIT_ENTRY")
					bolUserCanOnlySubmitOnce = rsDynamicForm("DYNAMIC_FORM_ONLY_ANSWERED_ONCE_PER_USER")
					bolUserCanSubscribe = rsDynamicForm("DYNAMIC_FORM_ALLOWS_SUBSCRIPTION")
					intMaxPossibleAnswers = rsDynamicForm("DYNAMIC_FORM_MAX_POSSIBLE_ANSWERS")
					
					intGroupId = rsDynamicForm("GROUP_ID")
					
					rsDynamicForm.MoveNext
				Loop
				rsDynamicForm.Close
				Set rsDynamicForm = Nothing
			Else
				Set rsDynamicForm = Nothing
				'redirect the user
				Response.Redirect "/admin/default.asp"
			End If
		Else
			'redirect the user
			Response.Redirect "/admin/default.asp"
		End If

		Case Else
		'redirect the user
		Response.Redirect "/admin/default.asp"

	End Select
%>
	<script language="javascript">
		function ltrim (s){
			return s.replace(/^\s*/, "")
		}
		
		function rtrim (s){
			return s.replace(/\s*$/, "");
		}
		
		function trim (s){
			return rtrim(ltrim(s));
		}
		function areValidUrls(urls, listName){
			var carrageReturnPos;
			var secondCarrageReturnPos;
			var url;
			var x;
			var originalurlsVal = urls;
			var invalidEntries = "";

			//remove all whitespace in the string
			urls = urls.replace(/\s*/g, '');

			//remove all occurences of multiple commas with a single comma
			urls = urls.replace(/,+/g, ',');

			//if the last character is a comma then remove it
			if(urls.charAt(urls.length-1)==','){
				urls = urls.substring(0, urls.length-1);
			}
			
			//if the first character is not a comma then add it
			if(urls.charAt(0)!=','){
				urls = ',' + urls;
			}

			//get the position for the last comma:
			while(x!=-1){
				x = urls.indexOf(',', x+1);
				
				if(x!=-1){
					carrageReturnPos = x;
					endOfUrlPos = urls.indexOf(',', carrageReturnPos+1);
					
					if(endOfUrlPos < 0){
						endOfUrlPos = urls.length;
					}
					url = urls.substring(carrageReturnPos+1, endOfUrlPos);
					if(!isValidUrl(url)){
						urls = originalurlsVal;
						invalidEntries = invalidEntries +  "The '" + url + "' url (in the '" + listName + "' List) is invalid, please correct it or remove it.\n";
					}
				}else{
					break;
				}
			}
			return invalidEntries;
		}
		
		function validateCClist(ccList, listName){
			var commaPos;
			var secondCommaPos;
			var email;
			var x;
			var originalCcListVal = ccList;
			var invalidEntries = "";

			//remove all whitespace in the string
			ccList = ccList.replace(/\s*/g, '');

			//remove all occurences of multiple commas with a single comma
			ccList = ccList.replace(/,+/g, ',');

			//if the last character is a comma then remove it
			if(ccList.charAt(ccList.length-1)==','){
				ccList = ccList.substring(0, ccList.length-1);
			}
			
			//if the first character is not a comma then add it
			if(ccList.charAt(0)!=','){
				ccList = ',' + ccList;
			}

			//get the position for the last comma:
			while(x!=-1){
				x = ccList.indexOf(',', x+1);
				
				if(x!=-1){
					commaPos = x;
					endOfEmailPos = ccList.indexOf(',', commaPos+1);
					
					if(endOfEmailPos < 0){
						endOfEmailPos = ccList.length;
					}
					email = ccList.substring(commaPos+1, endOfEmailPos);
					if(!checkEmail(email)){
						ccList = originalCcListVal;
						invalidEntries = invalidEntries +  "The '" + email + "' email (in the '" + listName + "' List) is invalid, please correct it or remove it.\n";
					}
				}else{
					break;
				}
			}
			return invalidEntries;
		}
		
		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 Len(str){
			return String(str).length;
		}
		
		function Mid(str, start, len){
			// Make sure start and len are within proper bounds
			if (start < 0 || len < 0) return "";
			
			var iEnd, iLen = String(str).length;
			if (start + len > iLen)
			        iEnd = iLen;
			else
			        iEnd = start + len;
			
			return String(str).substring(start,iEnd);
		}

		function HTMLDecode(text){
		 var i,t,c;
		 t='';
		 c='';
		 for (i=0;i<=text.length;i++){
		    c=text.charAt(i);
			switch (true){
				case (Mid(text, i, Len('&lt;'))=='&lt;'): 
					c='<'; 
					i = i + Len('&lt;') - 1
					break;
				case (Mid(text, i, Len('&gt;'))=='&gt;'): 
					c='>';
					i = i + Len('&gt;') - 1
					break;
				case (Mid(text, i, Len('&#146;'))=='&#146;'): 
					c="'";
					i = i + Len('&#146;') - 1
					break;
				case (Mid(text, i, Len('&auml;'))=='&auml;'): 
					c='ä';
					i = i + Len('&auml;') - 1
					break;
				case (Mid(text, i, Len('&ouml;'))=='&ouml;'): 
					c='ö';
					i = i + Len('&ouml;') - 1
					break;
				case (Mid(text, i, Len('&uuml;'))=='&uuml;'): 
					c='ü';
					i = i + Len('&uuml;') - 1
					break;
				case (Mid(text, i, Len('&Auml;'))=='&Auml;'): 
					c='Ä';
					i = i + Len('&Auml;') - 1
					break;
				case (Mid(text, i, Len('&Ouml;'))=='&Ouml;'): 
					c='Ö';
					i = i + Len('&Ouml;') - 1
					break;
				case (Mid(text, i, Len('&Uuml;'))=='&Uuml;'): 
					c='Ü';
					i = i + Len('&Uuml;') - 1
					break;
				case (Mid(text, i, Len('&amp;'))=='&amp;'): 
					c='&';
					i = i + Len('&amp;') - 1
					break;
				case (Mid(text, i, Len('&emsp;'))=='&emsp;'): 
					c='_';
					i = i + Len('&emsp;') - 1
					break;
				case (Mid(text, i, Len('&quot;'))=='&quot;'): 
					c='"';
					i = i + Len('&quot;') - 1
					break;
			}
		    t=t+c;
		 	}
			return t;
		}
		
		function isRecentBrowser(){
			if (document.layers||document.getElementById||document.all){
				return true;
			}else{
				return false;
			}
		}
		
		function isValidName(file){
			var regExpMatch = /[^a-zA-Z 0-9_]/;
			return !regExpMatch.test(file);
		}
		
		function filterDigits(digit){
			var validChar = true;
			if (window.event.keyCode<48 || window.event.keyCode >57) {
				validChar = false;
			} 
	   		return validChar;
		}
		
		function validateForm(dynamicForm){
			dynamicForm.txtName_en.value = trim(dynamicForm.txtName_en.value);
			var name_en = dynamicForm.txtName_en.value;
			
			dynamicForm.txtSubmitButtonCaption_en.value = trim(dynamicForm.txtSubmitButtonCaption_en.value);
			var submitButton_en = dynamicForm.txtSubmitButtonCaption_en.value;
			
			dynamicForm.txtFeedback_en.value = trim(dynamicForm.txtFeedback_en.value);
			var feedback_en = dynamicForm.txtFeedback_en.value;

			var canOnlyBeAnsweredOnce = dynamicForm.chkUserCanOnlySubmitOnce.checked;
			dynamicForm.txtAlreadyFilledOutFeedback_en.value = trim(dynamicForm.txtAlreadyFilledOutFeedback_en.value);
			var canOnlyBeAnsweredOnceFeedback_en = dynamicForm.txtAlreadyFilledOutFeedback_en.value;

			var sumbitsToExternalURL = dynamicForm.chkSubmitToExternal.checked;
			dynamicForm.txtExternalURL.value = trim(dynamicForm.txtExternalURL.value);
			var externalURL = dynamicForm.txtExternalURL.value;

			var emailTheForm = dynamicForm.chkEmailTheForm.checked;
			var saveToDB = dynamicForm.chkSaveToDB.checked;

			dynamicForm.txtPrimaryEmail.value = trim(dynamicForm.txtPrimaryEmail.value);
			dynamicForm.txtCCEmail.value = trim(dynamicForm.txtCCEmail.value);
			var primaryEmail = dynamicForm.txtPrimaryEmail.value;
			var ccEmailList = dynamicForm.txtCCEmail.value;

			var selectedGroup = getSelectedGroup();

			<%=GetJavascriptFormNameArray%>
			var errMess = "You must correct the following before the application can proceed:\n\n";
			var isFalse = 0;	//set default value of isFalse to 0
			
			// name validation
			if (name_en.length < 1) {	//if the string value in the 'name' field contains less than 1 characters
								// then alert the user and set isFalse to 1
				errMess = errMess + "Please enter a name.\n";
				isFalse = 1;
			}

			var orignalName = "<%=Trim(EncodeNonNull(strName_en))%>";
			// validate for unique name
			if(formNames){
				for(i=0; i<formNames.length; i++){
	
					if ((trim(name_en).toLowerCase() == HTMLDecode(formNames[i].toLowerCase())) && (trim(name_en).toLowerCase() != orignalName.toLowerCase())) {	//if the string value in the 'name' already exists in the database
						// then alert the user and set isFalse to 1
						errMess = errMess + "The seleceted name already exists.  Please chose a unique name.\n";
						isFalse = 1;
						break;
					}
				}
			}

			// feedback validation
			if (feedback_en.length < 1) {	//if the string value in the 'feedback' field contains less than 1 characters
								// then alert the user and set isFalse to 1
				errMess = errMess + "Please enter a feedback message.\n";
				isFalse = 1;
			}
			
			// feedback validation
			if (feedback_en.length > 999) {	//if the string value in the 'feedback' field contains less than 1 characters
								// then alert the user and set isFalse to 1
				errMess = errMess + "Please reduce the feedback message's length to a value less than 1000 characters.\n";
				isFalse = 1;
			}
			
			//if a form can only be answered once then...
			if(canOnlyBeAnsweredOnce){
			
				// feedback validation
				if (canOnlyBeAnsweredOnceFeedback_en.length < 1) {	//if the string value in the 'feedback' field contains less than 1 characters
									// then alert the user and set isFalse to 1
					errMess = errMess + "Please enter the 'You have already filled out this form' Feedback Message.\n";
					isFalse = 1;
				}
				
				// feedback validation
				if (canOnlyBeAnsweredOnceFeedback_en.length > 999) {	//if the string value in the 'feedback' field contains less than 1 characters
									// then alert the user and set isFalse to 1
					errMess = errMess + "Please reduce the 'You have already filled out this form' Feedback Message's length to a value less than 1000 characters.\n";
					isFalse = 1;
				}
			}
			
			// url validation
			if (externalURL.length > 999) {	//if the string value in the 'feedback' field contains less than 1 characters
								// then alert the user and set isFalse to 1
				errMess = errMess + "Please reduce the External Url's field length to a value less than 1000 characters.\n";
				isFalse = 1;
			}else{
				if (sumbitsToExternalURL) {	//If the 'This form submits to an external form' field is set to true then the 'External Form URL' must contain a valid URL.
					if(externalURL != ''){
						var urlErrMess = areValidUrls(externalURL, "External Url(s)");
						if (urlErrMess !="") {	//if the string value in the 'ExternalURL' is not a valid url
							errMess = errMess + urlErrMess;
							isFalse = 1;
						}
					}else{	//if the string value contains less than 1 character...
							errMess = errMess + "Please enter a URL.\n";
							isFalse = 1;
					}
				}
			}

			// email validation
			if (emailTheForm) {	//If the 'Email the Form Entries' field is set to true, the 'Primary Recipient Email Address' field is mandatory.

				if(primaryEmail != ''){
					if (checkEmail(primaryEmail)==false) {	//if the string value in the 'ExternalURL' is not a valid url
						errMess = errMess + "The email must be of a valid format.\n";
						isFalse = 1;
					}
				}else{	//if the string value contains less than 1 character...
						errMess = errMess + "Please enter an email.\n";
						isFalse = 1;
				}
				// cc email validation
				if(ccEmailList != ''){
					if (ccEmailList.length > 999) {	//if the string value in the 'feedback' field contains less than 1 characters
										// then alert the user and set isFalse to 1
						errMess = errMess + "Please reduce the Secondary Recipient Email Address List length to a value less than 1000 characters.\n";
						isFalse = 1;
					}else{
						// cc validation (length and format)
						var ccValMess = validateCClist(ccEmailList,'Cc');
						if(ccValMess != ''){
								errMess = errMess + ccValMess;
								isFalse = 1;
						}
					}
				}
			}
			
			//group validation
			if(selectedGroup==0){
				errMess = errMess + "Please select a Group.\n";
				isFalse = 1;
			}
			
			//validate submit button caption
			if(submitButton_en.length==0){
				errMess = errMess + "Please enter a Submit Button Caption.\n";
				isFalse = 1;
			}else{
				if (!isValidName(submitButton_en)){
					// then alert the user and set isFalse to 1
					errMess = errMess + "The Submit Button Caption can only be made up of the letters 'a' through 'z' (in upper or lower case) without accents, whole numbers, spaces and the underscore symbol (_).\n";
					isFalse = 1;
				}
			}

			// validate that the form will have a purpose.  ie either submits to an outside form, a database or gets emailed
			if (!sumbitsToExternalURL && !emailTheForm && !saveToDB){// if none of selections have been made
								// then alert the user and set isFalse to 1
				errMess = errMess + "Please select at least one of the following checkboxes:\n";
				errMess = errMess + "- This form submits to an external form \n";
				errMess = errMess + "- Email the Form Entries \n";
				errMess = errMess + "- Save Form Entries to Database \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
				enableFormFields();
				dynamicForm.txtSelectedGroupId.value = selectedGroup;
				return true;
			}
		}
		
		function cancelAddUpdate(){
			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)){
				document.location.href = "/admin/dynamic_forms.asp";
			}
		} 
		
		function isValidUrl(externalURL){
	       var j = new RegExp(); 
	       j.compile("^[A-Za-z]+://[A-Za-z0-9-]+\.[A-Za-z0-9]+"); 
	       return j.test(externalURL);
		}
		
		function disableEnable(enable, field){
			var formObject = document.forms.frmDynamicForm;
			switch(field){
				case('url'):
					formObject.txtExternalURL.disabled = !enable;
					break;

				case('email'):
					formObject.txtPrimaryEmail.disabled = !enable;
					formObject.txtCCEmail.disabled = !enable;
					break;

				case('alreadyFilledOutFeedback'):
					formObject.txtAlreadyFilledOutFeedback_en.disabled = !enable;
					break;
			}
		}
		
		function enableFormFields(){
			var formObject = document.forms.frmDynamicForm;
			formObject.txtExternalURL.disabled = false;
			formObject.txtPrimaryEmail.disabled = false;
			formObject.txtCCEmail.disabled = false;
		}
		
	function CheckAllGroups(check, TheStatus){
		var myform;
		var chkStatus;
		var checkTemp;
		myform = document.forms.frmDynamicForm;
		chkStatus = TheStatus;
		checkTemp = 'chkDFGroup';
		for (var i = 0; i < myform.elements.length; i++){
			if ((myform.elements[i].name.indexOf(checkTemp) >= 0) && (chkStatus == true)) {
			check.name.checked = true;
			myform.elements[i].checked = true;
		 	myform.elements[i].disabled = true;
			}
			if ((myform.elements[i].name.indexOf(checkTemp) >= 0) && (chkStatus == false)) {
				check.name.checked = false;
				myform.elements[i].checked = false;
				myform.elements[i].disabled = false;
			}
		}
	}
	
	function LoadCheck(){
		//Checks the appropriate checkboxes when the page loads
		var myform;	
		myform = document.forms.frmDynamicForm;
		var chkStatus;
		var checkTemp;
		
		
	   for (var i = 0; i < myform.elements.length; i++){
		   checkTemp = myform.elements[i];
		   if ((checkTemp.name.indexOf("All") >= 0) && (checkTemp.checked == true)){
			   CheckTheBoxes(myform.elements[i], myform.elements[i].checked);
		   }else{
			   	if ((checkTemp.name.indexOf("chkDFGroup") >= 0) && (isNaN(checkTemp.name.substr(10,checkTemp.name.length)) == false) && (myform.elements[i].checked == true)){
				   	CheckTheBoxes(myform.elements[i], myform.elements[i].checked);
			   }
			}
		}
	}	
	
	//Check or uncheck complete groups
	function CheckTheBoxes(check, TheStatus){ 
		var myform;	
		myform = document.forms.frmDynamicForm;
		var chkStatus;
		var checkTemp;
		chkStatus = TheStatus;
		if (check.name == 'AllGroups') {
			for (var i = 0; i < myform.elements.length; i++){
				checkTemp = 'chkDFGroup'
				if ((myform.elements[i].name.indexOf(checkTemp) >= 0) && (chkStatus == true)){
					check.name.checked = true;
					myform.elements[i].checked = true;
					myform.elements[i].disabled = true;
				}
				if ((myform.elements[i].name.indexOf(checkTemp) >= 0) && (chkStatus == false)){
					check.name.checked = false;
					myform.elements[i].checked = false;
					myform.elements[i].disabled = false;
				}
			}
		}else{
			for (var i = 0; i < myform.elements.length; i++){
				checkTemp = check.name + '_';
				if ((myform.elements[i].name.indexOf(checkTemp) >= 0) && (chkStatus == true)){
					check.name.checked = true;
					myform.elements[i].checked = true;
					myform.elements[i].disabled = true;
				}
				if ((myform.elements[i].name.indexOf(checkTemp) >= 0) && (chkStatus == false)){
					check.name.checked = false;
					myform.elements[i].checked = false;
					myform.elements[i].disabled = false;
				}
			}
		}
	}
	
	
	//get the group checkbox selection
	function getSelectedGroup(){ 
		var myform;
		var groupId = 0;	
		myform = document.forms.frmDynamicForm;
		var checkTemp = 'chkDFGroup';
		for (var i = 0; i < myform.elements.length; i++){

			if (myform.elements[i].name == 'AllGroups' && myform.elements[i].checked){
				groupId = 1;
				break;
			}

			if (myform.elements[i].name.indexOf(checkTemp) >= 0){
				if (myform.elements[i].checked==true && myform.elements[i].disabled==false && myform.elements[i].checked){
					groupId = myform.elements[i].value;
					break;
				}
			}
		}
		return groupId;
	}
	
	function isUnique(check, TheStatus){ 
		//ensure that only one group can be checked per level
		if(TheStatus==true){
		
			var myform;	
			myform = document.forms.frmDynamicForm;
		
			var checkTemp = 'chkDFGroup';
			for (var t = 0; t < myform.elements.length; t++){
			
				if ((myform.elements[t].name.indexOf(checkTemp) >= 0)){			
					//if the group checkbox in the loop is checked, not disabled and is different from the submitted checkbox then...
					if (myform.elements[t].checked==true && myform.elements[t].disabled==false && myform.elements[t].name!=check.name){
					
						//let the user know that only one top level group can be checked
						alert('Only one main group can be selected. Your Group selection will now be undone.');
						check.checked=false;
						return false;
					}
				}
			}
		}
		return true;
	}
	</script>
	<form name="frmDynamicForm" method="post" action="/admin/dynamic_form_edit.asp" onsubmit="javascript:return validateForm(this);">
		<table align="left" width="470" border="0" cellspacing="0" cellpadding="0">
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>Name:</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="text" maxlength="250" name="txtName_en" id="txtName_en" value="<%=EncodeNonNull(strName_en)%>" style="width:100%">
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>'Success' Feedback Message:</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<textarea name="txtFeedback_en" id="txtFeedback_en" style="width:100%" rows="3"><%=strFeedback_en%></textarea>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkUserCanOnlySubmitOnce" id="chkUserCanOnlySubmitOnce" <%If bolUserCanOnlySubmitOnce Then%>checked="checked"<%End If%> onclick="javascript:disableEnable(this.checked, 'alreadyFilledOutFeedback');">
					<strong>Do not allow a user to answer the same form twice (using cookies)</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>'You have already filled out this form' Feedback Message:</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<textarea name="txtAlreadyFilledOutFeedback_en" id="txtAlreadyFilledOutFeedback_en" style="width:100%" rows="3"><%=strAlreadyFilledOutFeedback_en%></textarea>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkSubmitToExternal" id="chkSubmitToExternal" <%If bolSubmitsToExternalURL Then%>checked="checked"<%End If%> onclick="javascript:disableEnable(this.checked, 'url')">
					<strong>This form submits to an external form</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>External URL(s)</strong> <br>
					(Please include 'http://' and use a colon to separate)<strong>:</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<textarea name="txtExternalURL" id="txtExternalURL" style="width:100%" rows="3"><%=strExternalURL%></textarea>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkEmailTheForm" id="chkEmailTheForm" <%If bolEmailForm Then%>checked="checked"<%End If%> onclick="javascript:disableEnable(this.checked, 'email')">
					<strong>Email the Form Entries</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>Primary Recipient Email Address:</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="text" maxlength="250" name="txtPrimaryEmail" id="txtPrimaryEmail" value="<%=strPrimaryEmail%>" style="width:100%">
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>Secondary Recipient Email Address List:</strong>
					<br>
					(use a colon to separate email addresses)
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<textarea name="txtCCEmail" id="txtCCEmail" style="width:100%"><%=strCCEmail%></textarea>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>Submit Button Caption:</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="text" maxlength="250" name="txtSubmitButtonCaption_en" id="txtSubmitButtonCaption_en" value="<%=EncodeNonNull(strSubmitButtonCaption_en)%>" style="width:100%" maxlength="90">
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>

			<tr>
				<td width="100%" align="left" valign="top">
					<strong>This Dynamic Form associates users to the following group(s):</strong>
					<br>
					<% 
					'Get the Groups and checkboxes
					Response.write GetDynamicFormGroupCheckboxes(intDynamicFormId, intGroupId)
					%>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>


			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkSaveToDB" id="chkSaveToDB" <%If bolSaveToDB Then%>checked="checked"<%End If%>>
					<strong>Save Form Entries to Database (for reporting purposes)</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkAllowAdminToAdd" id="chkAllowAdminToAdd" <%If bolAllowAdminToAdd Then%>checked="checked"<%End If%>>
					<strong>Allow Admin Users to Add Entries</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkAllowAdminToEdit" id="chkAllowAdminToEdit" <%If bolAllowAdminToEdit Then%>checked="checked"<%End If%>>
					<strong>Allow Admin Users to Edit Entry Values</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<input type="checkbox" name="chkUserCanSubscribe" id="chkUserCanSubscribe" <%If bolUserCanSubscribe Then%>checked="checked"<%End If%>>
					<strong>Allow users to subscribe</strong>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<strong>Limit the form element possible answers to:</strong>
					<select name="selMaxPossibleAnswers" id="selMaxPossibleAnswers">
<%					Dim intMaxAnswerCounter
					For intMaxAnswerCounter = 1 To 20%>
						<option value="<%=intMaxAnswerCounter%>" <%If intMaxPossibleAnswers = intMaxAnswerCounter Then%>selected="selected"<%End If%>><%=intMaxAnswerCounter%></option>
<%					Next%>
					</select>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="15" alt="" border="0"></td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top">
					<table align="left" width="100%" border="0" cellspacing="0" cellpadding="0">
						<tr>
							<td width="100%" align="left" valign="top">
								<input class="btn" class="btn" type="submit" value="<%If LCase(strMode) = "add" Then%>Add<%Else%>Update<%End If%>">&nbsp;&nbsp;
								<input class="btn" class="btn" type="button" name="btnCancel" id="btnCancel" value="Cancel" onclick="javascript:cancelAddUpdate();">
								<input type="hidden" name="txtDynamicFormId" id="txtDynamicFormId" value="<%=intDynamicFormId%>">
								<input type="hidden" name="txtMode" id="txtMode" value="<%=strMode%>">
								<input type="hidden" name="txtUserCanSubscribeOriginalValue" id="txtMode" value="<%=bolUserCanSubscribe%>">
								<input type="hidden" name="txtSelectedGroupId" id="txtSelectedGroupId" value="<%=intGroupId%>">
							</td>
						</tr>
					</table>
				</td>
			</tr>
			<tr>
				<td width="100%" align="left" valign="top"><img src="/images/spacer.gif" width="1" height="5" alt="" border="0"></td>
			</tr>
		</table>
<script language="javascript">
	disableEnable(<%=LCase(bolSubmitsToExternalURL)%>, 'url');
	disableEnable(<%=LCase(bolEmailForm)%>, 'email');
	disableEnable(<%=LCase(bolUserCanOnlySubmitOnce)%>, 'alreadyFilledOutFeedback');
	window.onload = LoadCheck;
</script>
	</form>
<%
End If

'close the data connection
Call CloseConn()
%>