<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %>

Message Title     Message Type General For Sale For Rent Wanted Angry Rant <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = "Please enter your Message Here....." oFCKeditor.Create "FCKeditor1" %>