<%@ 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 vMenu = Request.QueryString("Menu") vOPE = Request.QueryString("ope") If vOPE <> "" Then If lcase(vOPE) = "true" Then Session("ope") = True vOPE = langTabMenuitemOPEOff Else Session("ope") = False vOPE = langTabMenuitemOPEOn End If Else If Session("ope") = True Then vOPE = langTabMenuitemOPEOff Else vOPE = langTabMenuitemOPEOn End If End If If vMenu = "Site1" Then Session("ope") = False Session("contentPreviewLanguage") = Session("contentLanguage") End If If vMenu = "" Then vMenu = "Site1" End IF If vMenu = "Site2" Then Session("contentPreviewLanguage") = "" Function GetPreLangs() Dim conn, rs, strSQL, strSep Set conn = Server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open GetConStr ("..\..\SiteResources\Data\") strSQL = "SELECT ID, Code, Description, MasterLanguage, LCID, Charset, LanguageImage, IsMenuDirty FROM Languages" strResult="" strPrevLang = Session("contentPreviewLanguage") rs.Open strSQL, conn, 1, 3 While Not rs.EOF if strResult = "" Then strResult = "" & langTabMenuPreLang & "" strThis = "" & rs("Description").Value & "" If CStr(rs("ID").Value) = CStr(strPrevLang) Then strThis = Replace(strThis, """"&strPrevLang&"""", """"&strPrevLang&""" selected=""selected""") strResult = strResult & strThis rs.MoveNext Wend rs.Close conn.Close Set rs = Nothing Set conn = Nothing if strResult <> "" Then strResult = "" & strResult & " " End If GetPreLangs = strResult End Function strPreLang = GetPreLangs() %> "" Then %>LoadMenuTab('Site2');<% End If %>">

<%=langMenuWebSite%>

<% If InStr(strPreLang, "option") > 0 And vMenu<>"Site2" Then Response.Write strPreLang %>

<% If vMenu="Site1" Then %> <% Session("xView") = "Tree" %> <% Else %> <% End If %> <% If vMenu="Site2" Then %> <% Session("xView") = "Site" %> <% Else %> <% End If %>  <%=langTabMenuTreeView%>    <%=langTabMenuTreeView%>    <%=langTabMenuPreView%>    <%=langTabMenuPreView%>

<% If vMenu="Site2" Then %> <% End If %> <% If vMenu="Site1" Then %> <% End If %>

640*480   800*600   1024*768   1280*1024 |  " title="<%=vOPE%> "<%=langTabMenuitemOPE%>""><%=vOPE%> "<%=langTabMenuitemOPEShort%>"

<%=langTabMenuitemNew%>  <%=langTabMenuitemEdit%>  <%=langTabMenuitemCopy%>  <%=langTabMenuitemDelete%>  <%=langTabMenuitemMove%>  <%=langTabMenuitemInfo%>   <%=langTabMenuitemRefresh%> <% If Session("User_Type") = 5 Then %>  <%=langTabMenuitemChangeTemplate%><% end If%>   <%=langTabMenuitemAddTask%>