windows-server-2003/enduser/sakit/sak/plugins/diskvol/quotascripts/quota_quota.asp

<%@ Language=VBScript %>
<%  Option Explicit	  %>
<%
	'-------------------------------------------------------------------------
	' quota_quota.asp: manage default quotas on the volume
	'
	' Copyright (c) Microsoft Corporation.  All rights reserved.
	'
	' Date			Description
	' 17-Jan-01		Creation date
	' 15-Mar-01     Ported to 2.0
	'-------------------------------------------------------------------------
%>
	<!-- #include virtual = "/admin/inc_framework.asp" -->
	<!-- #include file="loc_quotas.asp" -->
	<!-- #include file="inc_quotas.asp" -->
<%
	'-------------------------------------------------------------------------
	' Global Variables
	'-------------------------------------------------------------------------
	Dim G_nRadioChecked	 ' to set radioButton values - contains 1 or 2 only

	Dim SOURCE_FILE      ' the source file name used while Tracing
	SOURCE_FILE = SA_GetScriptFileName()

	'-------------------------------------------------------------------------
	' Global Constants
	'-------------------------------------------------------------------------
	Const CONST_ENABLE_QUOTA_MGMT   = 1 ' Enable quota management
	Const CONST_DISABLE_QUOTA_MGMT  = 0 ' Disable quota management
	Const CONST_ENFORCE_QUOTA_LIMIT = 2 ' Deny DiskSpace if user exceeds limit

	'-------------------------------------------------------------------------
	' Global Form Variables
	'-------------------------------------------------------------------------
	Dim F_strVolName           ' Volume Name
	Dim F_nChkEnableQuotaMgmt  ' set disk management state checkBox
	Dim F_blnChkDenyDiskSpace  ' Enable deny disk space checkBox
	Dim F_blnChkEnableLogEventExceedQuotaLimit ' Log if user exceeds quota limit checkBox
	Dim F_blnChkEnableLogEventExceedWarningLimit ' Log if user exceeds warning limit checkBox
	Dim F_LimitSize			' Disk limit size - textBox value
	Dim F_LimitUnits		' Disk limit size units  - comboBox value
	Dim F_ThresholdSize		' Warning level set for the user - textBox value
	Dim F_ThresholdUnits	' WarningLimit Uunits for the warning level set - comboBox Value

	'======================================================
	' Entry point
	'======================================================
	Dim page
	DIM L_PAGETITLE_QUOTA_QUOTA_TEXT

	' get the volumename to append to title
	Call getVolumeName()

	' append the volume name to the title
	Dim arrVarReplacementStrings(2)
	arrVarReplacementStrings(0) = getVolumeLabelForDrive(F_strVolName)
	arrVarReplacementStrings(1) = F_strVolName

	' append the volume name to the title
	L_PAGETITLE_QUOTA_QUOTA_TEXT = SA_GetLocString("diskmsg.dll", "403E0047", arrVarReplacementStrings)

	Dim aPageTitle(2)

	aPageTitle(0) = L_BROWSERCAPTION_DEFAULTQUOTA_TEXT
	aPageTitle(1) = L_PAGETITLE_QUOTA_QUOTA_TEXT

	'
	' Create a Property Page
	Call SA_CreatePage( aPageTitle, "", PT_PROPERTY, page )
	
	'
	' Serve the page
	Call SA_ShowPage( page )

	'======================================================
	' Web Framework Event Handlers
	'======================================================
	
	'---------------------------------------------------------------------
	' Function name:    OnInitPage
	' Description:      Called to signal first time processing for this page
	' Input Variables:  Out: PageIn 
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:    TRUE to indicate initialization was successful.
	'                   FALSE to indicate errors. Returning FALSE will 
	'                   cause the page to be abandoned.
	' Global Variables: None
	' Functions Called: getValuesForDefault
	'
	' Get ALL the initial form field settings
	'---------------------------------------------------------------------
	Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnInitPage")
		
		' Call the function to get the default values
		OnInitPage = getValuesForDefault      ' True /False
	End Function
	
	'---------------------------------------------------------------------
	' Function name:    OnServePropertyPage
	' Description:      Called when the page needs to be served 
	' Input Variables:	Out: PageIn 
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:    TRUE to indicate no problems occured. FALSE to 
	'                   indicate errors. Returning FALSE will cause the 
	'                   page to be abandoned.
	' Global Variables: In: F_(*) - Form field values
	'                   In: L_(*) - Text display strings
	'                   In: G_nRadioChecked - radio to be selected
	' Functions Called: (i)ServeCommonJavaScript, (ii)setUnits
	'
	' The UI is served here.
	'---------------------------------------------------------------------
	Public Function OnServePropertyPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnServePropertyPage")
		
		'
		' Emit Javascript functions required by Web Framework
		Call ServeCommonJavaScript()

%>
	<table border="0" cellspacing="0" cellpadding="0">
		<tr>
			<td nowrap colspan="2" class="TasksBody">
				<input type="checkbox" class="FormCheckBox" name="chkEnableQuotaMgmt" onClick="JavaScript:CheckToDisableAll(); "  <% If F_nChkEnableQuotaMgmt <> CONST_DISABLE_QUOTA_MGMT Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
				&nbsp;<%=L_ENABLE_QUOTA_MGMT_TEXT %>
			</td>
		</tr>
	
		<tr>
			<td nowrap colspan="2" class="TasksBody">
				<input type="checkbox" class="FormCheckBox" name="chkDenyDiskSpace" <% If F_blnChkDenyDiskSpace Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %>  >
				&nbsp;<%=L_DENY_DISK_SPACE_TEXT	%>
			</td>
		</tr>
		<tr>
			<td colspan="2" class="TasksBody">&nbsp;</td>
		</tr>

		<tr>
			<td colspan="2" nowrap class="TasksBody">
				<%=L_SELECT_DEFAULT_QUOTA_TEXT	%>
			</td>
		</tr>
		<tr>
			<td colspan="2" class="TasksBody">&nbsp;</td>
		</tr>

		<tr>
			<td colspan="2" nowrap class="TasksBody">
				<p><input type="radio" class="FormRadioButton" name="donotlimit" value="1" <%  If G_nRadioChecked = 1 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:DisableWarnLevel(warndisksize, warndisksizeunits); DisableLimitLevel(limitdisksize, limitdisksizeunits)">&nbsp;<% =L_DONOTLIMITDISKUSAGE_TEXT %></p>
			</td>
		</tr>
		<tr>		
			<td width="30%" nowrap class="TasksBody">
				<input type="radio" class="FormRadioButton" name="donotlimit" value="2" <% If G_nRadioChecked = 2 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:EnableWarnDiskSpace(warndisksize,warndisksizeunits); EnableLimitDiskSpace(limitdisksize, limitdisksizeunits) ">&nbsp;<% =L_SETLIMITDISKSPACE_TEXT %>
			</td>
			<td nowrap class="TasksBody">
				<input type="text" name="limitdisksize" value="<% =server.HTMLEncode(SA_EscapeQuotes(F_LimitSize)) %>" size="14" maxlength = "11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.limitdisksizeunits.value)" >
				<select name="limitdisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit( document.frmTask.limitdisksize, this.value )">
						<%	setUnits(F_LimitUnits)	%>		
				</select>
			</td>
		</tr>
		<tr>
			<td width="30%" nowrap class="TasksBody">
				&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<% =L_SETWARNINGLEVEL_TEXT %>
			</td>
			<td nowrap class="TasksBody">	
				<input type="text" name="warndisksize" value="<%=server.HTMLEncode(SA_EscapeQuotes(F_ThresholdSize)) %>" size="14" maxlength="11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.warndisksizeunits.value )" >
				
				<select name="warndisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit(document.frmTask.warndisksize, this.value)">
						<%	setUnits(F_ThresholdUnits)	%>
				</select>
			</td>
		</tr>
		<tr>
			<td colspan="2" class="TasksBody">&nbsp;</td>
		</tr>

		<tr>
			<td colspan="2" nowrap class="TasksBody">
				<%=L_SELECT_QUOTA_LOGGING_TEXT	%>
			</td>
		</tr>
		<tr>
			<td nowrap colspan="2" class="TasksBody">
				<input type="checkbox" class="FormCheckBox" name="chkEnableLogEventExceedQuotaLimit" <% If F_blnChkEnableLogEventExceedQuotaLimit Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
				&nbsp;<%=L_ENABLE_QUOTA_LOGGING_TEXT	%>
			</td>
		</tr>
		<tr>
			<td nowrap colspan="2" class="TasksBody">
				<input type="checkbox" class="FormCheckBox" name="chkEnableLogEventExceedWarningLimit" <% If F_blnChkEnableLogEventExceedWarningLimit Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
				&nbsp;<%=L_ENABLE_WARNING_LOGGING_TEXT	%>
			</td>
		</tr>
	</table>

	<input name="volume" type="hidden"  value="<% =F_strVolName %>">

<%
		OnServePropertyPage = TRUE
	End Function

	'---------------------------------------------------------------------
	' Function name:	OnPostBackPage
	' Description:		Called to signal that the page has been posted-back
	' Input Variables:	Out: PageIn 
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:	TRUE to indicate success. FALSE to indicate errors.
	'                   Returning FALSE will cause the page to be abandoned.
	' Global Variables: Out: F_(*) - Form values
	'                   Out: G_nRadioChecked - the selected radio value
	'
	' Collect the form data vales.
	'---------------------------------------------------------------------
	Public Function OnPostBackPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnPostBackPage")

		' get the volume for which quota is set
		F_strVolName = Request.Form("volume")

		' initialize the quota state to "Disabled"
		F_nChkEnableQuotaMgmt = CONST_DISABLE_QUOTA_MGMT
		If UCASE(Request.Form("chkEnableQuotaMgmt")) = "ON" Then
			' If the checkBox is Checked, Enable the Quota State
			F_nChkEnableQuotaMgmt =  CONST_ENABLE_QUOTA_MGMT
		End If

		' initialize the "Enforce Quota Limit" to false
		F_blnChkDenyDiskSpace = False
		If  UCASE(Request.Form("chkDenyDiskSpace")) = "ON" Then
			' If the checkBox is checked, set to true
			F_blnChkDenyDiskSpace = True
		End if

		' initialize the "Log when user exceeds Quota limit" to false
		F_blnChkEnableLogEventExceedQuotaLimit = False
		If UCASE(Request.Form("chkEnableLogEventExceedQuotaLimit")) = "ON" Then
			' If checkBox is checked, Enable the logging
			F_blnChkEnableLogEventExceedQuotaLimit = True
		End if

		' initialize the "Log if user exceeds WarningLimit" to false
		F_blnChkEnableLogEventExceedWarningLimit = False
		If  UCASE(Request.Form("chkEnableLogEventExceedWarningLimit")) = "ON" Then
			' if the checkBox is checked, Enable the logging
			F_blnChkEnableLogEventExceedWarningLimit = True
		End if

		' get the selected radioButton value
		G_nRadioChecked = Request.Form("donotlimit")

		' get the Disk Limit Size and its Units
		F_LimitSize  = Request.Form("limitdisksize")
		F_LimitUnits = Request.Form("limitdisksizeunits")
		
		' get the Warning Limit Size and its Units
		F_ThresholdSize	 = Request.Form("warndisksize")
		F_ThresholdUnits = Request.Form("warndisksizeunits")
	
		If Len(Trim(F_strVolName)) = 0 Then
			' volume is not retrieved. cannot proceed.
			OnPostBackPage = False
		Else
			' return True
			OnPostBackPage = TRUE
		End If

	End Function

	'---------------------------------------------------------------------
	' Function name:	OnSubmitPage
	' Description:		To process the submit request
	' Input Variables:	Out: PageIn
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:	TRUE if the submit was successful, FALSE to indicate error(s).
	'                   Returning FALSE will cause the page to be served again using
	'                   a call to OnServePropertyPage.
	'					Returning FALSE will display error message.
	' Global Variables: None
	' Functions Called: UpdateQuotaValues
	'
	' Updates the Quota Values for the given volume
	'---------------------------------------------------------------------
	Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnSubmitPage")

		' Call UpdateQuotaValues to update the values.
		' If any error occurs,the error message is set in the function.
		OnSubmitPage = UpdateQuotaValues    ' returns: True/False

	End Function

	'---------------------------------------------------------------------
	' Function name:	OnClosePage
	' Description:		to perform clean-up processing
	' Input Variables:	Out: PageIn
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:	TRUE to allow close, FALSE to prevent close. Returning FALSE
	'                   will result in a call to OnServePropertyPage.
	' Global Variables: None
	'
	' Called when the page is about to be closed.
	'---------------------------------------------------------------------
	Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnClosePage")
		
		' no processing required here. Return True
		OnClosePage = TRUE
	End Function

	'======================================================
	' Private Functions
	'======================================================
	
	'---------------------------------------------------------------------
	' Function name:	ServeCommonJavaScript
	' Description:		Serve JavaScript that is required for this page type
	' Input Variables:	None
	' Output Variables:	None
	' Return Values:	None
	' Global Variables: L_(*) - Error messages displayed on the client side
	'
	' This contains the Client-Side script required for the page.
	'---------------------------------------------------------------------
	Function ServeCommonJavaScript()
	%>
		<script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js">
		</script>
		<script language="JavaScript" src="inc_quotas.js">
		</script>
		
		<script language="JavaScript">
		//
		// Microsoft Server Appliance Web Framework Support Functions
		// Copyright (c) Microsoft Corporation.  All rights reserved.
		//

		// to perform first time initialization. 
		function Init()
		{
			// enable cancel in case of any server side error  
			EnableCancel();
			if(document.frmTask.chkEnableQuotaMgmt.checked == false)
			{
				// to disable all other controls if Quota Management is disabled
				disableFields();
				return;
			}
			if ( document.frmTask.donotlimit[0].checked )
			{
				document.frmTask.warndisksize.disabled          = true;
				document.frmTask.limitdisksize.disabled         = true;
				document.frmTask.warndisksizeunits.disabled     = true;
				document.frmTask.limitdisksizeunits.disabled    = true;
			}
			else
			{
				if ( document.frmTask.donotlimit[1].checked )
				{
					document.frmTask.limitdisksize.select();
				}	
				else
				{
					// disable all except cancel button
					DisableOK() ;
					document.frmTask.donotlimit[0].disabled         = true;
					document.frmTask.donotlimit[1].disabled         = true;
					document.frmTask.warndisksize.disabled          = true;
					document.frmTask.limitdisksize.disabled         = true;
					document.frmTask.warndisksizeunits.disabled     = true;
					document.frmTask.limitdisksizeunits.disabled    = true;
					document.frmTask.donotlimit[0].checked			= false;
				}
			}
		}
		
	    // to validate user input. Returning false will cause the submit to abort. 
	    // Returns: True if the page is OK, false if error(s) exist. 
		function ValidatePage()
		{
			var objlimitSize  = document.frmTask.limitdisksize ;
			var objwarnSize	  = document.frmTask.warndisksize ;
			var objlimitUnits = document.frmTask.limitdisksizeunits ;
			var objwarnUnits  = document.frmTask.warndisksizeunits ;

			if ( document.frmTask.donotlimit[1].checked )
			{
				// validate the Limit Size value
				if(!isSizeValidDataType(objlimitSize.value) )
				{
					SA_DisplayErr('<% =Server.HTMLEncode(SA_EscapeQuotes(L_INVALIDDATATYPE_ERRORMESSAGE))%>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus( objlimitSize );
					return false;
				}

				// validate the LimitSize Units
				if (!checkSizeAndUnits(objlimitSize.value, objlimitUnits.value) )
				{
					SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_SIZEOUTOFBOUND_ERRORMESSAGE))%>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus( objlimitSize );
					return false;
				} 

				// validate the Warning Limit
				if(!isSizeValidDataType(objwarnSize.value) )
				{
					SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALIDDATATYPE_ERRORMESSAGE))%>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus(objwarnSize);
					return false;
				}

				// validate the Warning Limit Units
				if (!checkSizeAndUnits(objwarnSize.value, objwarnUnits.value) )
				{
					SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_SIZEOUTOFBOUND_ERRORMESSAGE)) %>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus( objwarnSize );
					return false;
				} 
				
				// verify the warning level. Must be less than limit.
				if(isWarningMoreThanLimit(objlimitSize,objlimitUnits,objwarnSize,objwarnUnits))
				{
					SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_WARNING_MORETHAN_LIMIT_ERRORMESSAGE))%>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus( objwarnSize );
					return false;
				}
			}
			
			// if the Limit values are Less than 1 KB, set them to 1 KB
			validatedisklimit( objlimitSize, objlimitUnits.value);
			validatedisklimit( objwarnSize, objwarnUnits.value);

			return true;
		}
		
		// to modify hidden form fields
		function SetData()
		{
			// no hidden values to update here
		}

		// to enable or disable the form controls onClick of the CheckBox
		function CheckToDisableAll()
		{
			// If Disk quota mgmt is disabled we need to disable all fields
			if ( document.frmTask.chkEnableQuotaMgmt.checked == false )
			{
				// disable the fields
				disableFields();
			}
			else
			{
				// Disk quota mgmt is enabled we need to enable all fields
				enableFields();
			}	
		}

		// to disable the fields
		function disableFields()
		{
			document.frmTask.chkDenyDiskSpace.checked = false;
			document.frmTask.chkDenyDiskSpace.disabled = true;

			document.frmTask.donotlimit[0].checked  = true;
			document.frmTask.donotlimit[0].disabled  = true;
			document.frmTask.donotlimit[1].disabled  = true;

			document.frmTask.chkEnableLogEventExceedQuotaLimit.checked = false;
			document.frmTask.chkEnableLogEventExceedQuotaLimit.disabled = true;

			document.frmTask.chkEnableLogEventExceedWarningLimit.checked = false;
			document.frmTask.chkEnableLogEventExceedWarningLimit.disabled = true;

			document.frmTask.warndisksize.disabled = true;
			document.frmTask.warndisksizeunits.disabled = true;
				
			document.frmTask.limitdisksize.disabled = true;
			document.frmTask.limitdisksizeunits.disabled = true;
		}	

		// to enable the fields
		function enableFields()
		{
			document.frmTask.chkDenyDiskSpace.checked = false;
			document.frmTask.chkDenyDiskSpace.disabled = false;

			document.frmTask.donotlimit[1].checked = true;
			document.frmTask.donotlimit[0].disabled = false;
			document.frmTask.donotlimit[1].disabled = false;

			if( isNaN(document.frmTask.limitdisksize.value) )
				document.frmTask.limitdisksize.value = "1" ;

			if( isNaN(document.frmTask.warndisksize.value) )
				document.frmTask.warndisksize.value = "1" ;

			document.frmTask.chkEnableLogEventExceedQuotaLimit.checked = false;
			document.frmTask.chkEnableLogEventExceedQuotaLimit.disabled = false;

			document.frmTask.chkEnableLogEventExceedWarningLimit.checked = false;
			document.frmTask.chkEnableLogEventExceedWarningLimit.disabled = false;

			document.frmTask.warndisksize.disabled = false;
			document.frmTask.warndisksizeunits.disabled = false;
				
			document.frmTask.limitdisksize.disabled = false;
			document.frmTask.limitdisksizeunits.disabled = false;
		}
		
	</script>

	<%
	End Function

	'---------------------------------------------------------------------
	' Function name:	getValuesForDefault
	' Description:		get the default values for the quota settings
	' Input Variables:	None
	' Output Variables:	None
	' Return Values:	True - if success. False if any error(s) occur
	' Global Variables: Out: F_(*) - Form field values
	'                   Out: G_nRadioChecked - radioButton to select
	'                   In:  L_(*) - Error messages
	' Functions Called: 
    '  (i)getQuotaLimitRadioForDefault  (iv)getThresholdSizeForDefault
    ' (ii)getLimitSizeForDefault         (v)getThresholdSizeUnitsForDefault
    '(iii)getLimitUnitsForDefault
    '
	' Calls the failure page if values could not be retrieved
	'---------------------------------------------------------------------
	Function getValuesForDefault
		On Error Resume Next
		Err.Clear

		Dim  objQuotas    ' the quota object

		' create the quota object and initialize for the required Volume
		Set objQuotas = CreateObject("Microsoft.DiskQuota.1")			
		objQuotas.Initialize F_strVolName &"\", 1
		If Err.number <> 0 Then
			' cannot proceed. Display failure page.
			Call SA_ServeFailurePage(L_OBJECTNOTCREATED_ERRORMESSAGE)		
		End If

		' get the Quota Management State. Possible values: 
		'     (i)CONST_ENABLE_QUOTA_MGMT   - Enable Quota Management
		'    (ii)CONST_ENFORCE_QUOTA_LIMIT - Disable Quota Mangement
		'   (iii)CONST_DISABLE_QUOTA_MGMT  - Enforce Quota Management
		F_nChkEnableQuotaMgmt = objQuotas.QuotaState
		
		' initialize the "Enforce Quota Management" to False
		F_blnChkDenyDiskSpace = False
		If objQuotas.QuotaState = CONST_ENFORCE_QUOTA_LIMIT Then
			' set to True if enforced
			F_blnChkDenyDiskSpace   = True
		End If

		' get the "Log if user exceeds quota limit" value. True or False
		F_blnChkEnableLogEventExceedQuotaLimit = objQuotas.LogQuotaLimit
		
		' get the "Log if user exceeds Warning limit" value. True or False
		F_blnChkEnableLogEventExceedWarningLimit = objQuotas.LogQuotaThreshold
		
		' get the radio button to be selected - 1 or 2
		G_nRadioChecked = getQuotaLimitRadioForDefault(objQuotas)

		' Compute Default Disk Limit and its units
		F_LimitSize  = getLimitSizeForDefault(objQuotas)
		F_LimitUnits = getLimitUnitsForDefault(objQuotas)

		' Compute Default Warning Limit and its units
		F_ThresholdSize  = getThresholdSizeForDefault(objQuotas)
		F_ThresholdUnits = getThresholdSizeUnitsForDefault(objQuotas)

		If Err.number <> 0 Then
			' in case of any error return False
			getValuesForDefault = False
			Err.Clear ' stop further error propagation
			Exit Function
		End If

		getValuesForDefault = True
		
		' clean up
		Set objQuotas = Nothing

	End Function

	'---------------------------------------------------------------------
	' Function name:	UpdateQuotaValues
	' Description:		Set the default values for the quota settings
	' Input Variables:	None
	' Output Variables:	None
	' Return Values:	True - if success. False if any error(s) occur
	' Global Variables: In: F_(*) - Form field values
	'                   In: L_(*) - Error messages
	'                   In: G_nRadioChecked - radioButton to select
	' Functions Called: (i)setDefaultQuotaLimit, (ii)setDefaultThreshold
	'
	' The error message is set incase error occurs
	'---------------------------------------------------------------------
	Function UpdateQuotaValues
		On Error Resume Next
		Err.Clear 

		Dim  objQuotas      ' the quota object

		' create the quota object and initialize for the required Volume
		Set objQuotas = CreateObject("Microsoft.DiskQuota.1")
		objQuotas.Initialize F_strVolName &"\", 1
		If Err.number <> 0 Then
			' cannot proceed. Display failure page.
			Call SA_ServeFailurePage(L_OBJECTNOTCREATED_ERRORMESSAGE)		
		End If

		' update the Quota State property
		objQuotas.QuotaState = 	F_nChkEnableQuotaMgmt

		' update the "Enforce Quota Limit" property
		If F_blnChkDenyDiskSpace Then
			objQuotas.QuotaState = 	CONST_ENFORCE_QUOTA_LIMIT
		End if

		' update "Enable Logging when user exceeds disk limit"
		objQuotas.LogQuotaLimit  = 	F_blnChkEnableLogEventExceedQuotaLimit

		' enable logging when user exceeds warning limit
		objQuotas.LogQuotaThreshold  = 	F_blnChkEnableLogEventExceedWarningLimit

		' check if any error occured
		If Err.number <> 0 Then	
			SA_SetErrMsg L_QUOTA_UPDATE_FAIL_ERRORMESSAGE & " (" & Hex(Err.Number) & ")"
			Err.Clear  ' stop further propagation
			UpdateQuotaValues = False
			Exit Function
		End If

		' If "Do not limit disk usage" is selected, Set the DiskLimit and
		' WarningLimit to "No Limit"
		If CInt(G_nRadioChecked) = CInt(CONST_RADIO_DONOT_LIMIT_DISKUSAGE) Then
			F_LimitSize = CONST_NO_LIMIT
			F_ThresholdSize = CONST_NO_LIMIT
		End If

		' set the DiskLimit size for the Quota
		If NOT setDefaultQuotaLimit(objQuotas, F_LimitSize, F_LimitUnits) Then
			SA_SetErrMsg L_MAXLIMITNOTSET_ERRORMESSAGE & " (" & Hex(Err.Number) & ")" 
			Err.Clear   ' stop further propagation
			UpdateQuotaValues = False
			Exit Function
		End If 
		
		' set the WarningLimit size for the Quota
		If NOT setDefaultThreshold(objQuotas, F_ThresholdSize, F_ThresholdUnits) Then
			SA_SetErrMsg L_WARNINGLIMITNOTSET_ERRORMESSAGE & " (" & Hex(Err.Number) & ")"
			Err.Clear   ' stop further propagation
			UpdateQuotaValues = False
			Exit Function
		End If 

		' all values updated. return True
		UpdateQuotaValues = True

		' clean up
		Set objQuotas = Nothing

	End Function

	'---------------------------------------------------------------------
	' Function name:	setDefaultQuotaLimit
	' Description:		set the Default Quota limit
	' Input Variables:	(out)objQuotas
	'                   (in) nDiskLimit
	'                   (in) strUnits
	' Output Variables:	(out) objQuotas
	' Return Values:	True/ False
	' Global Variables: None
	' Functions Called: ChangeToFloat
	'---------------------------------------------------------------------
	Function setDefaultQuotaLimit(ByRef objQuotas, nDiskLimit, strUnits)
		On Error Resume Next
		Err.Clear 

		Dim nDiskLimitToSet  ' the disk limit to set
			
		If nDiskLimit <> CONST_NO_LIMIT Then
			'Added 0.001 round the value of disk Limit
			nDiskLimitToSet = ChangeToFloat(nDiskLimit + 0.001, strUnits)
			If nDiskLimitToSet < 1024 Then
				nDiskLimitToSet = 1024    ' must be minimum 1 KB
			End if
		Else
			nDiskLimitToSet = nDiskLimit
		End If	

		' the disk values are converted to Bytes and then set to the object
		objQuotas.DefaultQuotaLimit = nDiskLimitToSet
			
		If Err.number <> 0 Then
			setDefaultQuotaLimit = FALSE
		Else
			setDefaultQuotaLimit = TRUE
		End If	

	End Function

	'---------------------------------------------------------------------
	' Function name:	setDefaultThreshold
	' Description:		set the Default Quota Threshold 
	' Input Variables:	(out)objQuotas
	'                   (in) nThresholdLimit
	'                   (in) strUnits
	' Output Variables:	(out) objQuotas
	' Return Values:	True/ False
	' Global Variables: None
	' Functions Called: ChangeToFloat
	'---------------------------------------------------------------------
	Function setDefaultThreshold(ByRef objQuotas, nThresholdLimit, strUnits)
		On Error Resume Next
		Err.Clear 

		Dim nThresholdLimitToSet     ' the warning limit to set

		If nThresholdLimit <> CONST_NO_LIMIT Then
			'Added 0.001 round the value of Warning Limit				
			nThresholdLimitToSet = ChangeToFloat( nThresholdLimit + 0.001, strUnits )
			If nThresholdLimitToSet < 1024 Then
				nThresholdLimitToSet = 1024     ' must be minimum 1 KB
			End if
		Else
			nThresholdLimitToSet = nThresholdLimit
		End If			

		' convert the value into Bytes abd set to object
		objQuotas.DefaultQuotaThreshold = nThresholdLimitToSet

		If Err.number <> 0 Then
			setDefaultThreshold = False
		Else
			setDefaultThreshold = True
		End If

	End Function
	
	'---------------------------------------------------------------------
	' Procedure name:	getVolumeName
	' Description:		get volume name as obtained from previous OTS page
	' Input Variables:	None
	' Output Variables:	None
	' Return Values:	None
	' Global Variables: Out: F_strVolName - the volume to set quota values on
	'---------------------------------------------------------------------
	Sub getVolumeName()

		Dim strItemKey   ' the selected value in the OTS page
		Dim i            ' to loop
		Dim iCount       ' the count of entries selected
		
		' first get from the form (in case form re-submitted)
		F_strVolName = Request.Form("volume")
		If Len(Trim(F_strVolName)) = 0 Then
			' get the selected value from the OTS
			iCount = OTS_GetTableSelectionCount("")
			For i = 1 to iCount
				Call OTS_GetTableSelection("", i, strItemKey)
			Next
			' get the last selected entry
			F_strVolName = strItemKey
		End If	

	End Sub

%>