<% '************************** ' WYSIWYG HTML Editor ' http://www.DwZone.it ' Version: '************************** Set oFCKeditor = New FCKeditor sBasePath = "/FckEditor/" oFCKeditor.ToolbarSet = "NewToolbarClose" oFCKeditor.TestWritePermission = "false" oFCKeditor.UploadFolder = decodeUrl( request.querystring( "UploadFolder" ) ) oFCKeditor.BasePath = sBasePath oFCKeditor.SkinPath = decodeUrl( request.querystring( "SkinPath" ) ) oFCKeditor.FontList = decodeUrl( request.querystring( "FontNames" ) ) oFCKeditor.FontSizes = decodeUrl( request.querystring( "FontSizes" ) ) oFCKeditor.UploadWinWidth = decodeUrl( request.querystring( "ImageBrowserWindowWidth" ) ) oFCKeditor.UploadWinHeight = decodeUrl( request.querystring( "ImageBrowserWindowHeight" ) ) oFCKeditor.UseBROnCarriageReturn = decodeUrl( request.querystring( "UseBROnCarriageReturn" ) ) oFCKeditor.AutoDetectLanguage = decodeUrl( request.querystring( "AutoDetectLanguage" ) ) oFCKeditor.DefaultLanguage = decodeUrl( request.querystring( "DefaultLanguage" ) ) oFCKeditor.ResizeOptions = decodeUrl( request.querystring( "ResizeOptions" ) ) oFCKeditor.OthersOptions = decodeUrl( request.querystring( "OthersOptions" ) ) oFCKeditor.AllowedFileType = decodeUrl( request.querystring( "AllowedFileType" ) ) oFCKeditor.MaxUploadFileSize = decodeUrl( request.querystring( "MaxUploadFileSize" ) ) oFCKeditor.ToolbarList = decodeUrl( request.querystring( "ToolbarList" ) ) oFCKeditor.Width = "100%" oFCKeditor.Height = "100%" oFCKeditor.Create "FCKeditor1" %> <% function decodeUrl( str ) str = replace(str, "@_MM_@", "?", 1, -1, vbtextcompare) str = replace(str, "@_EE_@", "&", 1, -1, vbtextcompare) str = replace(str, "@_UU_@", "=", 1, -1, vbtextcompare) decodeUrl = str end function %>