<link rel="stylesheet" type="text/css" href="../../../Style/Member.css" />

<link rel="stylesheet" href="../../CuteEditor/asp.css"  type="text/css" />

<%

                        EditorWysiwygModeCss = "../../CuteEditor/asp.css"

                        EditorStyleSheetPath = "../../../Style/Member.css"

                        EditorWysiwygModeCss = "../../../Style/Member.css"

                        EditorStyleDropDownMenuNames = "BODY,Normal,IntroText,DWT,MemberMenu,Title,Select,textarea,Form,FormData,Form-RT,Form-RTsm,Title-Rev,Title-Rev-L,Title-Rev-Indent,Rpt-Table,Rpt-Head,Rpt-Body,Rpt-BodySM,Rpt-Body-R,Rpt-Body2,Title,Rpt-Body2Data,Rpt-BodyDataRed,HR-Bar,HR-Grey,MbrName,MbrAddr,MbrPhone,MbrInfo,PhoneTitle,Txt-Red,Txt-Blue,Txt-Black,Txt-Green,Txt-White,Txt-Yellow,Welcome-strip,Date-Bar,,Photo-Bar,Event-Display,Event-Desc,Event-Desc2"

                        EditorStyleDropDownMenuList = "BODY,Normal,IntroText,DWT,MemberMenu,Title,Select,textarea,Form,FormData,Form-RT,Form-RTsm,Title-Rev,Title-Rev-L,Title-Rev-Indent,Rpt-Table,Rpt-Head,Rpt-Body,Rpt-BodySM,Rpt-Body-R,Rpt-Body2,Title,Rpt-Body2Data,Rpt-BodyDataRed,HR-Bar,HR-Grey,MbrName,MbrAddr,MbrPhone,MbrInfo,PhoneTitle,Txt-Red,Txt-Blue,Txt-Black,Txt-Green,Txt-White,Txt-Yellow,Welcome-strip,Date-Bar,,Photo-Bar,Event-Display,Event-Desc,Event-Desc2"

                        EditorFilesPath = "../../CuteEditor/CuteEditor_Files"       

                        EditorImageGalleryPath = "../../../" & SaveFilePath

                        EditorFlashPath= "../../../" & SaveFilePath                                

                        EditorDocumentPath = "../../../" & SaveFilePath

intDesc =  InStr(Long_Description,  "<br/>")

If intDesc=0 then Long_Description=Replace(Long_Description, Chr(13), "<br>") end if                           

                                    Set editor = New CuteEditor  'Create a new editor class object

                                    editor.UseNetSpell = false                                                        

                                    editor.ID = "Long_Description"

                                    editor.Text = Long_Description

                                    editor.EditorWysiwygModeCss = EditorEditorWysiwygModeCss

'                                   editor.StyleSheetPath = EditorStyleSheetPath

                                    editor.StyleDropDownMenuNames = EditorStyleDropDownMenuNames

                                    editor.StyleDropDownMenuList = EditorStyleDropDownMenuList

                                    editor.FilesPath = EditorFilesPath         

                                    editor.ImageGalleryPath = EditorImageGalleryPath

                                    editor.FlashPath= EditorFlashPath                    

                                    editor.DocumentPath = EditorDocumentPath     

                                    editor.EditorBodyStyle = "table { font:normal 10px arial; }"         

                                    editor.Draw()

%>

Stephen P. Blythe,
[email protected] • www.blytheco.com