<%@ Language=VBScript %>
<%
' ///////////////////////////////////////////////////////
' // Dimac CMS
' // Copyright 2004-2008 Dimac Development AB, Sweden
' // www.Dimac.net
' //
' // NOTE:
' // You are not allowed to remove this
' // Copyright information without written
' // permission from Dimac Development.
' ///////////////////////////////////////////////////////
If NOT CBool(Session("ValidAdminUser")) Then
Response.Redirect("LIO/loggin.asp")
End IF
Dim vWebSiteRoot , vDbType
If Session("WebSiteRoot") <> "" And Session("DatabaseType") <> "" Then
vWebSiteRoot = Session("WebSiteRoot")
vDbType = Session("DatabaseType")
Else
vWebSiteRoot = GetSettingValue("WebSiteRoot", "..\SiteResources\Data\")
vDbType = GetSettingValue("DatabaseType", "..\SiteResources\Data\")
Session("WebSiteRoot") = vWebSiteRoot
Session("DatabaseType") = vDbType
End If
%>