<%@ 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 GetFieldValue(vField)
GetFieldValue = " "
For x = 0 to Ubound(Fields)
If Fields(X) = vField then
GetFieldValue = FieldDefaultValues(x)
End If
next
End Function
' -------------------------------------------------------
' -- WYSIWYG stuff
' -------------------------------------------------------
If IsNumeric( Session("User_ID") ) And Session("User_ID") <> "" Then
vHeight = ""
vHeightType = ""
vWidth = ""
vWidthType = ""
strSQL = "SELECT EditorWidth, EditorWidthType, EditorHeight, EditorHeightType " & _
"FROM Users " & _
"WHERE UserID = " & Session("User_ID")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Conn2.Open GetConStr ("..\..\SiteResources\Data\")
Rs2.Open strSQL, Conn2
If Not Rs2.EOF And Not Rs2.BOF Then
vHeight = Rs2("EditorHeight").Value
vHeightType = Rs2("EditorHeightType").Value
vWidth = Rs2("EditorWidth").Value
vWidthType = Rs2("EditorWidthType").Value
End If
If Len(vHeight) < 1 Then vHeight = "600"
If Len(vWidth) < 1 Then vWidth = "98"
If CStr(vHeightType) = "1" Then' 0=px, 1=%
vHeight = vHeight & "%"
End If
If CStr(vWidthType) = "1" Then' 0=px, 1=%
vWidth = vWidth & "%"
End If
Rs2.Close
Conn2.Close
Set Rs2 = Nothing
Set Conn2 = Nothing
vUseBR = GetSettingValue("EditorUseBR", "..\..\SiteResources\Data\")
If CStr(vUseBR) = "1" Then
vUseBR = "true"
Else
vUseBR = "false"
End If
vEditorEditorButtons = Trim( GetSettingValue("EditorStyleButtons", "..\..\SiteResources\Data\") )
If CStr(vEditorEditorButtons) = "1" Then
vEditorEditorButtons = True
Else
vEditorEditorButtons = False
End If
vEditorStylesheet = Trim( GetSettingValue("EditorStylesheet", "..\..\SiteResources\Data\") )
If Trim(vEditorStylesheet) = "none" Or InStr(vEditorStylesheet, "css") < 1 Then
vEditorStylesheet = ""
End If
End If
vActiveLanguage = ""
vActiveLanguage = Session("lang")
' -------------------------------------------------------
Dim useWYSIWYG
useWYSIWYG = False
xTemplate= Request.Querystring("template").item
LoadCreateFields(xTemplate)
' ----------------------------------------------------------------
' ----------------------------------------------------------------
%>