<%@ 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
' ---------------------------------------------------------
vDocID = Session("DocID")
vLangID = Request.QueryString("lang")
If vLangID <> "" And IsNumeric(vLangID) Then
vLangID = CInt(vLangID)
ElseIf Session("contentLanguage") <> "" Then
vLangID = Session("contentLanguage")
Else
vLangID = -1
End If
Session("contentLanguage") = vLangID
Dim Conn, Conn2, Rs, Rs2, SQL, SQL2, vText1, vText2, isExternal
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
' /// Get Document Head Data ///
Conn.Open GetConStr ("..\..\SiteResources\Data\")
strActiveStatus = GetDocumentStatus( vDocID, vLangID, Conn )
strActiveName = GetDocumentName( vDocID, vLangID, Conn )
strModuleURL = GetModuleURL( vDocID, vLangID, Conn )
strContents = GetLanguages()
' -----------------------------------------------------
If Session("DocID") <> 0 Then
SQL = "SELECT * FROM Documents WHERE DocumentID=" + Session("DocID")
Rs.Open SQL, Conn
End IF
Function GetModuleURL(vDocID, vLangID, conn)
'"LangModuleURL"
Dim sql, rs, intResult
sql = "SELECT LangModuleURL FROM DocumentLanguages WHERE (DocId = " & vDocId & ") AND (LangId = " & vLangID & ")"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
If Not rs.EOF And Not rs.BOF Then
intResult = rs("LangModuleURL").Value
Else
intResult = ""
End If
rs.Close
Set rs = Nothing
GetModuleURL = intResult
End Function
' -------------------------------------------------------
' -- Get languages
' -------------------------------------------------------
Function GetLanguages()
Dim Conn, Rs3, strSQL, strSep, strContents, strThisLang
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs3 = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
strSQL = "SELECT ID, Code, Description, MasterLanguage, LCID, Charset, LanguageImage, IsMenuDirty FROM Languages"
strSep = ""
strContents= ""
strThisLang=""
Rs3.Open strSQL, Conn, 1, 3
While Not Rs3.EOF
If Rs3("LanguageImage") <> "" Then
strThisLang = " "
strThisLang = strThisLang & " " & Rs3("Code").Value
Else
strThisLang = "" & Rs3("Code").Value & ""
End If
If (vLangID <> -1 And vLangID <> Rs3("ID")) Or (vLangID = -1 And strSep <> "") Then
strThisLang = "" & strThisLang & ""
strThisLang = "