<%@ LANGUAGE="VBSCRIPT" %>
<% strThisBackPage = "config" %>
<!--#include file="includes/config.asp"-->
<!--#include file="includes/functions.asp"-->
<!--#include file="includes/back_security.asp"-->
<%
'===============================================
' CactuShop ASP Shopping Cart					
' Š1999-2004 Cactusoft Ltd. www.cactusoft.com
'===============================================
' All rights reserved.							
' Use of this code is covered by the terms and	
' conditions in the license agreement. No		
' unauthorized duplication or distribution is	
' permitted. Cactusoft's copyright notices must	
' remain in the ASP sections of the code.		
'===============================================
strLockShopStatus = Request.QueryString("lockshopstatus")

'-----------------------------------------------
'LOCK THE SHOP TO STOP USERS WHEN WE'RE UPDATING
'Each front end page checks the application		
'variable below. If it is locked, they will be	
'redirected to the 'closed' page with their next
'click.
'If the shop is hard-locked, they'll be directed
'to a static page to avoid issues with skins if
'the skin is being updated.
'-----------------------------------------------
If strLockShopStatus = "lock" Then
	application(LICENSENUMBER & "shopstatus")="locked"
	strQuery = "UPDATE tblCactuShopConfig SET tblCactuShopConfig.CFG_Value = 'locked' WHERE tblCactuShopConfig.CFG_Name = 'shopstatus'"
ElseIf strLockShopStatus = "hardlock" Then
	application(LICENSENUMBER & "shopstatus")="hardlocked"
	strQuery = "UPDATE tblCactuShopConfig SET tblCactuShopConfig.CFG_Value = 'hardlocked' WHERE tblCactuShopConfig.CFG_Name = 'shopstatus'"
Else
	application(LICENSENUMBER & "shopstatus")="open"
	strQuery = "UPDATE tblCactuShopConfig SET tblCactuShopConfig.CFG_Value = 'open' WHERE tblCactuShopConfig.CFG_Name = 'shopstatus'"
End If
objDataConn.Execute strQuery
Response.Redirect("_default.asp")
%>