<!--#include file="../../owFunctions/I_GeneralFunctions.asp"-->
<%
	'************************************************************************************
	'*																					*
	'*	MODIFICATION TO THIS SCRIPT OR ANY FILES INCLUDED WITH 							*
	'*		ONEWORLDSTORE IS DONE AT YOUR OWN RISK!										*
	'*	Product  : OneWorldStore														*
	'*	Version  : 9.0000																*
	'*	Modified : June 2004															*
	'*	Copyright:	Copyright (C) 2004 OneWorldStore.Com								*
	'*				Registration Number: 1024507										*
	'*				http://strategis.ic.gc.ca/											*
	'*																					*
	'************************************************************************************
	
	if NOT bOWBackOfficeDemoMode then
		for each field in request.form 
			if field<>"Submit1" then
				pSettingValue=request.form(field)
				pSettingValue=replace(pSettingValue,"'","''") 
				If ( pSettingValue = "" ) Then
					pSettingValue = " "
				End if
				
				Call owCONFIG_WriteConfigValue( field, Trim(pSettingValue) )
				sMessage = LANG_DT( "SETTINGS_SAVED", "** Settings Saved **" )
			end if
		next 
	End If
	%>
	<script language = "javascript">
		parent.owBodyTopNav.location="owBodyTopNav.asp?sMessage=<%=Server.URLEncode(sMessage)%>";
		location="owModifyPaymentForm.asp?sSort=<%=sSort%>&sSearch=<%=sSearch%>&sSearchText=<%=sSearchText%>&iConfGroup=<%=Request("iConfGroup")%>";
	</script>