<% 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_FRIENDLY = False C_SHOWCASE_LEVEL = 2 C_COMPANY_NAME = "Sager and Associates" C_COMPANY_EMAIL = "info@sager-associates.com" C_COMPANY_URL = "www.sager-associates.com" C_SITE_TITLE = "Sager and Associates" C_CURRENCY = "R" C_BESPOKE_ENQUIRIES = "quotation" C_ENQUIRY_TEXT = "Please complete the form below to contact us (areas marked with * are mandatory)." C_NEWS_1 = "Latest News" C_NEWS_2 = "Events" C_NEWS_ALIAS_1 = "news" C_NEWS_ALIAS_2 = "events" ' Set to TRUE if the latest news side-bar still has to show when you're on the archive page. C_NEWS_SHOW_LATEST = true C_SMTP = "196.44.34.162" 'Sets of settings If C_DEV = true Then 'Localhost Settings Here C_SERVER_ROOT = "http://localhost" C_SITE_FOLDER = "sager" C_SITE_ROOT = C_SERVER_ROOT & "/" & C_SITE_FOLDER C_DOC_ROOT = Server.MapPath(".") C_SKIN = C_SITE_ROOT & "/skin" C_UPLOADS = C_SITE_ROOT & "/uploads" C_ROOT_UPLOADS = C_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_SITE_FOLDER = "www.sager-associates.com" C_SITE_ROOT = C_SERVER_ROOT & "/" & C_SITE_FOLDER C_DOC_ROOT = Server.MapPath(".") C_SKIN = C_SITE_ROOT & "/skin" C_UPLOADS = C_SITE_ROOT & "/uploads" C_ROOT_UPLOADS = C_DOC_ROOT & "/uploads" C_ENQUIRY_EMAILS(0,0) = "Sager and Associates" C_ENQUIRY_EMAILS(1,0) = "info@sager-associates.com" End If C_NO_IMAGE = C_SKIN & "/images/noimg.png" %>