<%@ 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 Conn, SQL, Rs
xMid = Request.Querystring("MID").item
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
SQL = "SELECT * FROM Modules WHERE ModuleID=" & xMid
Rs.Open SQL, Conn
xMname = RS("ModuleName").value
xMURL = RS("StartURL").value
xMframe = RS("StartFrame").value
set Rs = Nothing
set Conn3 = Nothing
' ----------------------------------------------------------------
' ----------------------------------------------------------------
%>
<%=langHeaderTitle%>