'---Globals

Global gConfig As Long

 

'-------------------------------------------------------------------------

' .

'-------------------------------------------------------------------------

Function Config_Start() As Long

'---Database variable

gConfig = LL_Add(gConfig, _

"DB_ConnString", _

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

APP_SourcePath & "DB\Site.mdb")

 

'---Theme config

gConfig = LL_Add(gConfig, "Theme_Dir"    , "Templates")

gConfig = LL_Add(gConfig, "Theme_Name"   , "Default")

gConfig = LL_Add(gConfig, "Theme_Header" , "Header.html")

gConfig = LL_Add(gConfig, "Theme_Body"   , "Theme.html")

gConfig = LL_Add(gConfig, "Theme_Footer" , "Footer.html")

 

End Function

 

'-------------------------------------------------------------------------

' .

'-------------------------------------------------------------------------

Function Config_LoadWebSiteInfo() As Long

 

gConfig = LL_Add(gConfig, "WebSite_Name", "Title")

 

End Function

 

'-------------------------------------------------------------------------

' .

'-------------------------------------------------------------------------

Function Config_End() As Long

 

LL_Free(gConfig)

 

End Function