<%
' SETS UP GLOBAL VARIABLES ON SERVER
' -------------------------------------------------------------
' Version Information
Const g_SoftwareVersion = "1.0"

' Database symbols
Const g_WildcardSymbol = "%"
Dim g_TrueSymbol, g_FalseSymbol
Dim g_DateSymbol

' Server Name Global Variable
Public g_ServerDomain	
g_ServerDomain = trim(Request.ServerVariables("SERVER_NAME"))

' Global value for current url and query string
Public g_CurrentURL
g_CurrentURL = "http://" & g_ServerDomain & TRIM(request.ServerVariables("URL")) & "?" & TRIM(request.ServerVariables("QUERY_STRING"))

' Date formats
Dim g_DateFormat, g_TimeFormat
g_DateFormat = vblongdate
g_TimeFormat = vblongtime

' Upload object
Const g_UploadComponent = "pureasp"		' aspupload/persists, pureasp

' Upload File Space, File Types allowed
Const g_UploadFileSpaceMaximum = 1048576	' 1mb default
Const g_UploadFileTypes = "csv,xml,txt,zip,rar,jpg,jpeg,gif,png,pdf,htm,html"

' Language
Const g_DefaultMMLanguage = 14	' 0 = English European
Dim g_CurrentMMLanguage
g_CurrentMMLanguage = Session("Language")
if g_CurrentMMLanguage = "" then 
	g_CurrentMMLanguage = g_DefaultMMLanguage
	Session("Language") = g_CurrentMMLanguage
end if

' Customer
Public g_CustomerName, g_CustomerCompany, g_CustomerEmail
g_CustomerName = Session("CustomerName")
g_CustomerCompany = Session("CustomerCompany")
g_CustomerEmail = Session("CustomerEmail")

%>