I checked out your example and made changes to my code.
I was using the same instance of your editor and chaging the properties and doing a .draw.
I have changed it to now look like the following
Dim oEditor1
Set oEditor1 = New CuteEditor
Dim oEditor2
Set oEditor2 = New CuteEditor
Dim oEditor3
Set oEditor3 = New CuteEditor
Dim oEditor4
Set oEditor4 = New CuteEditor
with oEditor1
.ID = "txtInfo"
.Text = oRegForm.InfoMsg
.FilesPath = "CuteEditor/CuteEditor_Files"
.EditorBodyStyle = "font:normal 12px arial;"
.EditorWysiwygModeCss = "asp.css"
.ImageGalleryPath = oPage.RegistrationGallery
.MaxHTMLLength = 7900
.ThemeType="Office2003"
.AutoConfigure = "DCReg1"
.Draw()
end with
with oEditor2
.ID = "txtClosedMsg"
.Text = oRegForm.ClosedMsg
.FilesPath = "CuteEditor/CuteEditor_Files"
.EditorBodyStyle = "font:normal 12px arial;"
.EditorWysiwygModeCss = "asp.css"
.ImageGalleryPath = oPage.RegistrationGallery
.MaxHTMLLength = 7900
.height = 180
.ThemeType="Office2003"
.AutoConfigure = "DCReg1"
.Draw()
end with
with oEditor3
.ID = "txtPaymentMsg"
.Text = oRegForm.PaymentMsg
.FilesPath = "CuteEditor/CuteEditor_Files"
.EditorBodyStyle = "font:normal 12px arial;"
.EditorWysiwygModeCss = "asp.css"
.ImageGalleryPath = oPage.RegistrationGallery
.MaxHTMLLength = 7900
.height = 180
.ThemeType="Office2003"
.AutoConfigure = "DCReg1"
.Draw()
end with
with oEditor4
.ID = "txtThankYou"
.Text = oRegForm.ThankYouMsg
.FilesPath = "CuteEditor/CuteEditor_Files"
.EditorBodyStyle = "font:normal 12px arial;"
.EditorWysiwygModeCss = "asp.css"
.ImageGalleryPath = oPage.RegistrationGallery
.MaxHTMLLength = 7900
.height = 180
.ThemeType="Office2003"
.AutoConfigure = "DCReg1"
.Draw()
end with
oPage.RegistrationGallery points to /calendar/maint/Org_Gallery/archbold.k12/RegistrationGallery
What I don't get is why I can refresh my page and sometimes it will work.