<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% 'Option Explicit %>
<% 'Response.Buffer = False %>
<%
Dim oFS
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
%>

<%'===Include Settings + Common Functions====%>
<!--#Include File="code/config/config.main.asp"-->
<!--#Include File="code/config/config.db.asp"-->
<!--#Include File="code/functions/common.functions.asp"-->
<!--#Include File="code/functions/json2.asp"-->
<%'=====Define installed modules in the following include file:=====%>
<!--#Include File="code/installed_modules.asp"-->
<%'======Include Classes====== %>
<!--#Include File="code/classes/class.db.asp"-->
<!--#Include File="code/classes/class.base.asp"-->
<!--#Include File="code/classes/class.calendar.asp"-->

<%

Dim sController
Dim sFunction
Dim iID
Dim sView
'=====Set Default MVC Parameters====
sController = "pages"
sFunction = "load"
iID = "home"


If Request.QueryString("controller") <> "" Then
	sController = Request.QueryString("controller")
	If Request.QueryString("controller") = C_NEWS_ALIAS_1 Then
	sController = "news"
	End If
	
	If Request.QueryString("controller") = C_NEWS_ALIAS_2 Then
		sController = "news"
	End If
End If

If Request.QueryString("view") <> "" Then
	sFunction = Request.QueryString("view")
End If

If Request.QueryString("id") <> "" Then
	iID = Request.QueryString("id")
End If

Set oCalendar = New calendar
Set oDB = New F_DB
Set O_CONN = Server.CreateObject("ADODB.Connection")

'======DB Connection Opened
O_CONN.Open C_DSN_NAME
Set Base = new oBase
Base.Connect(O_CONN)
Set oFO = oFS.GetFolder(C_DOC_ROOT & "/code/modules/")
For Each x in oFO.SubFolders
	If instr(x.Name,"installed.") = 1 Then
		sModule = Replace(x.Name,"installed.","")
		str_call = "Set " & sModule & "= New O_" & sModule
		execute(str_call)
		str_class_vars = sModule & ".Connect O_CONN,iID"
		execute(str_class_vars)
	
	End If
Next

%>
<%If Request.QueryString("window") = 1 Then%>
<!--#Include File="skin/skin.blank.asp"-->
<%Else%>
<!--#Include File="skin/skin.index.asp"-->
<%End If%>
<%
Set oFS = Nothing
O_CONN.Close()
Set O_CONN = Nothing
'======DB Connection Closed
%>