<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% ' You must set "Enable Parent Paths" on your web site in order this relative include to work. %> FCKeditor - Sample

FCKeditor - ASP - Sample 2

This sample shows the editor in all its available languages.

Select a language:

<% ' Automatically calculates the editor base path based on the _samples directory. ' This is usefull only for these samples. A real application should use something like this: ' oFCKeditor.BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value. Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) 'This RegExp is used to sanitize recived lang parameter Dim oRegex Set oRegex = New RegExp oRegex.Global = True oRegex.Pattern = "[^a-z\-]" Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath If Request.QueryString("Lang") = "" Then oFCKeditor.Config("AutoDetectLanguage") = True oFCKeditor.Config("DefaultLanguage") = "en" Else oFCKeditor.Config("AutoDetectLanguage") = False oFCKeditor.Config("DefaultLanguage") = oRegex.Replace( Request.QueryString("Lang"), "") End If oFCKeditor.Value = "

This is some sample text. You are using FCKeditor." oFCKeditor.Create "FCKeditor1" %>