<%@ Language=VBScript %>
<%
option explicit
'on error resume next

'Site specific
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
const COMAPNY_NAME = "BadMimi.com"
const COMAPNY_PHONE = "707 332 5117"
const COMAPNY_EMAIL = "badmimi@badmimicom.com"
const COMAPNY_ADDRESS = "Petaluma, CA"
const EMAIL_SMTP_SERVER = "mail.badmimicom.com"
const ECOMETRY_ENABLED=false
const ORDERS_COOKIE = "BADMIMICOMORDERS"
const SOURCECODE_COOKIE = "BADMIMICOMSOURCECODE"
const ORDERS_DURATION = 7	'7days
const GIFT_BOX_ITEM_NUM = "GIFTBOX"
const GIFT_BOX_ITEM_PRICE = "4.95"

const webcom="webcom."
Dim MACS_ERROR_MESSAGES(5)

MACS_ERROR_MESSAGES(1)="CONNECTION_ERROR"
MACS_ERROR_MESSAGES(2)="TRANSACTION_ERROR"
MACS_ERROR_MESSAGES(3)="SUCCESS"

const MACS_CONNECTION_ERROR_STRING = "Connection Error"
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'HTML
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
const SITE_WIDTH = "768"
const PAGE_WIDTH = "766"
const CONTENT_WIDTH = "724"
const SITEKEYLINE_COLOR = "#D12325"
const CONTENT_COLOR = "#FFAFB7"
const NUMOFROWS = 2 'MAX NUMBER OF ROWS IN DIRECTORY PAGE
const PRODUCTSPERROW = 4 'NUMBER OF PRODUCTS PER ROW IN DIRECTORY PAGE


Dim SHOW_DHTML_MENU
SHOW_DHTML_MENU = false

Dim UserAgent
Dim UserOS

UserAgent = Request.ServerVariables("HTTP_USER_AGENT")
if  Instr(1, UserAgent, " Mozilla") > 0 then 'ne
	SHOW_DHTML_MENU = false
	if Instr(1, UserAgent, " Netscape/") >= 0 then 'ne
		SHOW_DHTML_MENU = true
	end if
end if

if Request.QueryString("nomenu")="y" then
	SHOW_DHTML_MENU = false
end if

const SHOW_TEXT_CATEGORY_LINKS=true
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


Dim PAGE_URL
Dim HTTP_HOST
Dim HTTPSECURE_HOST
Dim NAVID
Dim DB_STRING
Dim connection
Dim REMOTE_HOST
Dim PRELOAD_IMAGES
Dim GENERIC_VARIABLE

Dim GENERIC_TEXT
Dim ERROR_MESSAGE
Dim VIRTUAL_FOLDER
Dim IMAGE_PATH
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
VIRTUAL_FOLDER = "/wp"	'enter if exists

IMAGE_PATH = VIRTUAL_FOLDER & "/images/"
PAGE_URL = Request.ServerVariables("URL")
HTTP_HOST = "http://" & Request.ServerVariables("HTTP_HOST") &  VIRTUAL_FOLDER & "/"
HTTPSECURE_HOST = "https://" & Request.ServerVariables("HTTP_HOST") & VIRTUAL_FOLDER & "/"
PRELOAD_IMAGES = "'" & IMAGE_PATH & "global/spacer.gif" & "'"

REMOTE_HOST = Request.ServerVariables("REMOTE_HOST")
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'DATABASE
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'DSN
'DB_STRING = "dsn=badmimicom;uid=sa;pwd=pl@t1num;database=badmimi"
DB_STRING = "dsn=badmimicom;uid=badmimicom;pwd=156qsc;database=badmimicom"
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%>
<!--#INCLUDE FILE="../functions/data_access.asp"-->
<%

'connection = OpenConnection()
set connection = Server.CreateObject("ADODB.Connection")
OpenConnection(connection)
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'refresh app variables every 12hrs or if not set at all
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

If Request.QueryString("rav")="y" then
	refreshAppVariables()
end if
If Application("appVarRefreshPrevious") = 25 Then
	refreshAppVariables()
	Application("appVarRefreshPrevious") = Hour(Time())
elseif (Application("appVarRefreshPrevious") <> Hour(Time())) and (Hour(Time()) = 12 or Hour(Time()) = 0) Then
	refreshAppVariables()
	Application("appVarRefreshPrevious") = Hour(Time())
End If

NAVID = getRequestValue("navID")


const iBillIndex=5 'for billing  5 - 18 are the values, so iIndex will be passed as 5
const iShipIndex=1 'for shipping iShipIndex=1-14 will have address info
Dim billshiparraysize
billshiparraysize=50

%>



<%
Dim badmin
badmin=false
if Request.QueryString("trot@dmin")="@dm1n" then
	badmin=true
end if
%>