<%@ Language=VBScript %> <% Option Explicit %> <% dim message,strSQL,objRS,sBasePath,oFCKeditor response.write request.querystring("message") Session("MessageNUmber") = request.querystring("message") message = request.querystring("message") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "Select * from EMessageboard WHERE MessageUID = "&message&" ;" response.write strSQL 'response.end objRS.Open strSQL, objConn1 sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) %>

Message Title ">     Message Type General For Sale For Rent Wanted Angry Rant <% Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = ObjRS("MessageContent") oFCKeditor.Create "FCKeditor1" %>