<%@ 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
' -----------------------------------------------------
Function GetDocOwnerID(vDoc)
Dim Conn, Rs1, StrSql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
If isNumeric(vDoc) And vDoc <> "" Then
StrSql = "SELECT CreatedBy FROM Documents WHERE DocumentID = " & vDoc
Else
StrSql = "SELECT CreatedBy FROM Documents WHERE DocumentID = -1"
End If
Rs1.Open StrSql , Conn
If not Rs1.EOF Then
GetDocOwnerID = Rs1("CreatedBy").value
Else
GetDocOwnerID = 0
End IF
rs1.Close
Set Rs1 = Nothing
Set Conn = Nothing
End Function
' -----------------------------------------------------
Function GetDocOwnerName(vDoc)
Dim Conn, Rs1, StrSql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
StrSql = "SELECT FirstName, LastName FROM Users WHERE UserID = " & vDoc
Rs1.Open StrSql , Conn
If not Rs1.EOF Then
GetDocOwnerName = Rs1("FirstName").value & " " & Rs1("LastName").value
Else
GetDocOwnerName = " "
End IF
rs1.Close
Set Rs1 = Nothing
Set Conn = Nothing
End Function
' -----------------------------------------------------
SiteRootID = GetSettingValue("SiteRootID", "..\..\SiteResources\Data\")
vDI = Session("DocID")
If vDI = "0" Then vDI = SiteRootID
vTL = Request.QueryString("TL").item
if vTL = "YES" then
strToTest = "0"
vP = " SiteRoot"
Session("DocID") = 0'SiteRootID
else
strToTest = "1"
If Session("DocID") = SiteRootID Then
vP = " SiteRoot"
Else
Dim Conn, Conn2, Rs, Rs2, SQL, SQL2, vText1, vText2, isExternal
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
SQL = "SELECT DocName FROM Documents WHERE DocumentID=" & Session("DocID")
Rs.Open SQL, Conn
If Not Rs.EOF Then
vP = Rs("DocName").value
Else
vP = "/"
End If
End IF
End If
vDocOwnerID = GetDocOwnerID(vDI)
IF CheckSecurity( Session("DocID"), Session("User_Group") , "CREATE" , "..\..\" , vDocOwnerID) THEN
ELSE
Response.Write("")
Response.write(" ")
Response.Write(langErrorSecurityAccess)
Response.write("
<% If Session("DocID") >= 0 Then %>
<%=langLabelSelPageTemplate4doc%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
xPath = Server.MapPath("..\..\SiteResources\Data\templates\")
Set f = fso.GetFolder(xPath )
Dim Template
Template = Request.Form("template").Item
Dim NotFound
NotFound = True
For Each File In f.Files
If Left(File.Name,1) = strToTest THEN
If LCase(Right(File.Name,4)) = ".asp" And LCase(File.Name) <> "start.asp" Then
If Request.Form("template").Item = "" And NotFound Then
Template = File.Name
NotFound = False
End If
xPath2 = Server.MapPath("..\..\SiteResources\Data\templates\") & "\" & File.Name
Set f = fso.OpenTextFile( xPath2 , 1 )
Dim Name
Name = ""
While Not f.AtEndOfStream
Line = f.ReadLine()
If InStr(Line,"") > 0 Then
Line = f.ReadLine()
While InStr(Line, "") = 0
Name = Name & TrimAll(Line)
Line = f.ReadLine()
Wend
End If
Wend
f.Close
%>