Web Wiz Rich Text Editor (RTE) - Error: Private Function RTEenabled()

Print Page | Close Window

Error: Private Function RTEenabled()

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Rich Text Editor (RTE)
Forum Description: Support forum for the Web Wiz Rich Text Editor (RTE).
URL: https://forums.webwiz.net/forum_posts.asp?TID=13928
Printed Date: 28 March 2026 at 2:20pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Error: Private Function RTEenabled()

Posted By: El Tato
Subject: Error: Private Function RTEenabled()
Date Posted: 21 February 2005 at 2:53pm

Hello.

I have a problem when I put RTE3.0 in one textarea.

IE6 gives me this error:

-----------------------------------------------

Microsoft VBScript compilation error '800a03ea'

Syntax error

/adm/functions/RTE_functions_common.asp, line 60

Private Function RTEenabled()
--------^

----------------------------------------

I don't know what's happening

Can anybody help me?

Replies:

Posted By: dj1811
Date Posted: 21 February 2005 at 4:17pm

There is nothing wrong with the code in RTE_functions_common. (presuming you have not edited the file).

The problem is elsewhere. Maybe you could post the code for the textarea? If you call a function from inside a loop it could give the error you describe.

Posted By: El Tato
Date Posted: 21 February 2005 at 5:24pm

The textarea is into a 'Do While', but it loop only once.

Posted By: El Tato
Date Posted: 23 February 2005 at 6:26am

The code that gives me error is:

<% id=Request.Form("id")

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT news.* FROM news WHERE id LIKE '" & id & "' "
rs.Open strSQL, conn, 3

Do While NOT rs.EOF
%>

<table border="0" width="100%" cellspacing="0" cellpadding="1">
<tr >
    <td align=right>
     <p class="normal" > Id.:</p>
</td>
<td>
   <%=rs("id")%><input type=hidden name="id" value="<%=rs("id")%>">
</td>
</tr>
<tr>
    <td align=right valign=top>
     <p> Cuerpo:
</td>
<td>
  <%
'----------------------------------------------------------------------------------------------

'The following onload event needs to be placed into the body tag for the web page you
'are placing the RTE into to initialise the Javascript for the Web Wiz Rich Text Editor (RTE):-

'OnLoad="initialiseWebWizRTE();"

'The following needs to be placed on the line above the textarea that you wish to be
'replaced with the Web Wiz Rich Text Editor (RTE).

'----------------------------------------------------------------------------------------------

Dim strFormName
Dim strTextAreaName

'Edit the intilised variables below to put in the name of your textrea's ID and the name
'of the form the textarea is within

'Name of the HTML form the textarea is within
strFormName = "myF"

'ID tag name of HTML textarea being replaced
strTextAreaName = "cuerpo"

'----------------------------------------------------------------------------------------------

%>




  <textarea class="TextBox" name="cuerpo" id="cuerpo" rows="20" cols="100">

<%=cuerpo%>

  </textarea>

  '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
  If blnAbout Then
   Response.Write("<br /><span class=""text"" style=""font-size:10px"">Powered by <a href="" http://www.richtexteditor.org - "" target=""_blank"" style=""font-size:10px"">Web Wiz Rich Text Editor</a> version " & strRTEversion)
   Response.Write("<br />Copyright ©2002-2005 <a href="" http://www.webwiz.net - "" target=""_blank"" style=""font-size:10px"">Web Wiz Guide</a></span>")
  End If
  '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

  %>
</td>
</tr>
<tr>
    <td align="center">
      <input class="boton2" type="submit" value="Modificar">
</td>
</tr>
</table>

<%
rs.MoveNext
Loop

'Close Server Objects
rs.Close
Set rs = Nothing
Set conn = Nothing
%>

Posted By: dj1811
Date Posted: 23 February 2005 at 12:21pm

For testing purposes:

Change the line:

Do While NOT rs.EOF

to:

If NOT rs.EOF

Change the lines:

rs.MoveNext
Loop

to:

END IF

If you only should be looping once that will work I believe.

You said this will loop only once, but I wonder if that is the case? The SQL looks as though it could return multiple rows because you use "LIKE". To test if your SQL is returning multiple rows you may want to replace your current loops with something like this:

IF rs.EOF THEN

Response.Write "no records found"

ELSE

rs.MoveFirst

DO UNTIL rs.EOF

Response.Write rs.Fields("id") & "<BR>"

rs.MoveNext

LOOP

END IF

If you get more than one row, you know the problem.

Posted By: WebWiz-Bruce
Date Posted: 23 February 2005 at 1:01pm

The Web Wiz RTE can only have one per page.

By placing it into a loop you are trying to place mutiple RTE's onto the same page.

So even if you do get past the VB Script error the RTE will not work.

You need to remove the RTE from the loop and have only one on the page.

-------------
https://www.webwiz.net/web-wiz-forums/forum-hosting.htm" rel="nofollow - Web Wiz Forums Hosting
https://www.webwiz.net/web-hosting/windows-web-hosting.htm" rel="nofollow - ASP.NET Web Hosting

Posted By: El Tato
Date Posted: 23 February 2005 at 1:51pm

Thank you veru much to both.

I finally have put the RTE out of the Loop (storing the results of the recordsets in variables), and now its works well.

Posted By: Woschkin
Date Posted: 25 February 2005 at 4:46pm

Is there any way to use the include in a sub proc. ?

Thanks ...

P.S.: This is the most powerful (free) editor i have ever seen. Congrat.s guys . God bless you

Posted By: WebWiz-Bruce
Date Posted: 26 February 2005 at 4:08am

I can see why you wouldn't be able to.

-------------
https://www.webwiz.net/web-wiz-forums/forum-hosting.htm" rel="nofollow - Web Wiz Forums Hosting
https://www.webwiz.net/web-hosting/windows-web-hosting.htm" rel="nofollow - ASP.NET Web Hosting

Posted By: Woschkin
Date Posted: 26 February 2005 at 4:29am

-boRg- wrote:

I can see why you wouldn't be able to.

i didnt get your post but , i have changed the structure of my app. Although there was no loop or repeat the include gave this error. So i had to re-write the procedures . It is ok now . Thanks.

Posted By: doronca
Date Posted: 20 June 2005 at 7:14am

-boRg- wrote:

I can see why you wouldn't be able to.

Hi,

I'm trying to use RTE within a Sub proc. but get the vbscript error described above. Here is my code:

<%
call mySub
' *** Add or Edit a newsletter item ***
Sub mySub()
%>
<script for="window" event="onload">
initialiseWebWizRTE();
</script>
<form id="myForm">
<%
Dim strFormName
Dim strTextAreaName

'Name of the HTML form the textarea is within
strFormName = "myForm"

'ID tag name of HTML textarea being replaced
strTextAreaName = "myTextarea"
%>


<textarea style="text-align:right;direction:rtl;" id="myTextarea" cols="80" rows="20">�� </textarea>
</form>
<%
End Sub
%>

Any suggestions?

Thanks.

Posted By: toadjunior2001
Date Posted: 26 July 2005 at 6:59pm

I'm trying to do the same thing, yet I keep getting the same error
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/depts/design/newsletter/functions/RTE_functions_common.asp

My sub procedure is almost identical doronca's I've tried everything I can think of, and I'm about ready to toss my monitor across the room. Please any help would be appreciated.

Posted By: Nalfaren
Date Posted: 24 April 2006 at 1:09pm

I have the same problem.

http://forums.webwiz.net/forum_posts.asp?TID=19504 - http://forums.webwiz.net/forum_posts.asp?TID=19504

Posted By: Webstress
Date Posted: 26 April 2006 at 11:22pm

Same problem here too. :(

Microsoft VBScript compilation error '800a03ea'

Syntax error

/admin-test/functions/RTE_functions_common.asp, line 60

Private Function RTEenabled()
^

If anyone finds a solution, please post it.

Posted By: WebWiz-Bruce
Date Posted: 27 April 2006 at 9:39am

I have posted about this and why it happens in the last couple of days if you do a search

-------------
https://www.webwiz.net/web-wiz-forums/forum-hosting.htm" rel="nofollow - Web Wiz Forums Hosting
https://www.webwiz.net/web-hosting/windows-web-hosting.htm" rel="nofollow - ASP.NET Web Hosting