<%
dim C_SERVER_ROOT
dim C_SITE_ROOT
dim C_DOC_ROOT
dim C_SKIN
dim C_UPLOADS
dim C_CURRENCY
dim C_COMPANY_NAME
dim C_COMPANY_EMAIL
dim C_COMPANY_URL
dim C_SITE_TITLE
dim C_ENQUIRY_EMAILS(2,2)
dim C_DEV
dim C_NEWS_SHOW_LATEST
dim C_NO_IMAGE
dim C_SHOWCASE_LEVEL
dim C_NEWS_1
dim C_NEWS_2
dim C_NEWS_ALIAS_1
dim C_NEWS_ALIAS_2

'===========================MODE FLAG===============================
' If it's set to True, then the first set of settings below are applied  
C_DEV = False
'===================================================================

'Session variable to debug sql queries, set with showq=1 or showq=0 in querystring
If Request.QueryString("showq") = 1 Then
	Session("showq") = 1
End If

If Request.QueryString("showq") = 0 Then
	Session("showq") = 0
End If

'Common settings irrelevant of mode
C_SHOWCASE_LEVEL = 1
C_REWRITE = 0
C_COMPANY_NAME = "Sager and Associates"
C_COMPANY_EMAIL = "sandisa@new.co.za"
C_COMPANY_URL = ""
C_SITE_TITLE = "Sager and Associates"
C_CURRENCY = "R"
C_CLIENT_DOMAIN = "funaku.co.za"

C_THUMBNAIL_SIZE = 200
C_IMAGE_SIZE = 640

If Request.QueryString("temp") <> "" Then
	C_TEMP_FOLDER = Request.QueryString("temp")
ElseIf Request.QueryString("controller") = "showcase" And Request.QueryString("view") = "edit" Then
	C_TEMP_FOLDER = Request.QueryString("id")
Else
	Randomize
	C_TEMP_FOLDER = cStr((Rnd(50) * 100000))
	C_TEMP_FOLDER = Replace(C_TEMP_FOLDER,".","")
	C_TEMP_FOLDER = Replace(C_TEMP_FOLDER,",","")
End If


'Sets of settings
If C_DEV = true Then
	'Localhost Settings Here
	C_SERVER_ROOT = "http://localhost"
	C_CLIENT_SITE_ROOT = "/sager"
	C_SITE_FOLDER = C_CLIENT_SITE_ROOT & "/admin"
	C_SITE_ROOT = C_SERVER_ROOT & "/" & C_SITE_FOLDER
	C_CLIENT_DOC_ROOT = Server.MapPath("../")
	C_DOC_ROOT = Server.MapPath(".")
	C_SKIN = C_SITE_ROOT & "/skin"
	C_UPLOADS = C_SERVER_ROOT & "/" & C_CLIENT_SITE_ROOT & "/uploads"
	C_ROOT_UPLOADS = C_CLIENT_DOC_ROOT & "\" & "uploads\"
	C_ENQUIRY_EMAILS(0,0) = "Reimert Smit"
	C_ENQUIRY_EMAILS(1,0) = "reimert@iisgroup.co.za"
Else
	'Live Site Settings Here
	C_SERVER_ROOT = "http:/"
	C_CLIENT_SITE_ROOT = "www.sager-associates.com"
	C_SITE_FOLDER = C_CLIENT_SITE_ROOT & "/admin"
	C_SITE_ROOT = C_SERVER_ROOT & "/" & C_SITE_FOLDER
	C_CLIENT_DOC_ROOT = Server.MapPath("../")
	C_DOC_ROOT = Server.MapPath(".")
	C_SKIN = C_SITE_ROOT & "/skin"
	C_UPLOADS = C_SERVER_ROOT & "/" & C_CLIENT_SITE_ROOT & "/uploads"
	C_ROOT_UPLOADS = C_CLIENT_DOC_ROOT & "\" & "uploads\"
	C_ENQUIRY_EMAILS(0,0) = "Reimert Smit"
	C_ENQUIRY_EMAILS(1,0) = "reimert@iisgroup.co.za"
End If
C_NO_IMAGE = C_SKIN & "/images/noimg.png"
%>