<%@ 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
' -------------------------------------------------------
vTL = Request.QueryString("TL").item
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
vP = Rs("DocName").value
End IF
' ----------------------------------------------------------------
' ----------------------------------------------------------------
%>
<%=langLabelAddModule%>
<%=langLabelParentDocument%>: <%= vP %>
<% If Session("DocID") <> 0 Then %>
<%=langLabelSelectAModule%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
SQL = "SELECT * FROM Modules WHERE Active = 1 ORDER BY ModuleName"
Rs.Open SQL, Conn
While NOT Rs.EOF
%>