The code that gives me error is:
<form method=post action="not_modificar3.asp">
<% 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"
'----------------------------------------------------------------------------------------------
%>
<!-- include the Web Wiz Rich Text Editor -->
<!--#include file="RTE_editor_inc.asp" -->
<textarea class="TextBox" name="cuerpo" id="cuerpo" rows="20" cols="100">
<!-- Pre-filled textarea content -->
<%=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
%>
Error: Private Function RTEenabled()
Topic Options
Post Options
Thanks(0)
