<!--#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/											*
	'*																					*
	'************************************************************************************

	sAction = Trim(Request("sAction"))

	If ( sAction = "sChangeCountry" ) Then
		%>
		<script language = "javascript">

			location="owCompanyConfiguration.asp?sOWCompanyCountryCode2=<%=Trim(Request("sOWCompanyCountryCode"))%>";
			
		</script>
		<%
	Else
		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( "COMPANYCONF_SAVED", "** Settings Saved **" )
				end if
			next 
		End If

		%>
		<script language = "javascript">
			
			parent.owBodyTopNav.location="owBodyTopNav.asp?sMessage=<%=Server.URLEncode(sMessage)%>";
			location="owCompanyConfiguration.asp";
			
		</script>
		<%
	End If
%>