EASY RTE from and to MDB - Web Wiz Support and Community Forums

Hi Paoblo

Did U solve your problem ??

/Goofy

goofy, I hope you could help me with such a simple example !

sorry, may be I am a really newbie, but this is just what I have written and doesn�t work:

in RTE_textarea.asp, this is the code:
<% @ Language=VBScript %>
<% Option Explicit %>


<%

'Set the response buffer to true as we maybe redirecting
Response.Buffer = True

'Make sure this page is not cached
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

Dim strQueryString3     'Holds the editors pre-filled content

Dim strQueryString1
Dim strQueryString2
Dim strQueryString3

strQueryString1 = Request.QueryString("QS1")
strQueryString2 = Request.QueryString("QS2")
strQueryString3 = Request.QueryString("QS3")

if Request.QueryString("QS3")<>"" then

'--- Open Database ---'
Set Database = Server.CreateObject("ADODB.connection")
Database.Open "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=" & DataPassword & "; DBQ=" & DataFile

'--- Open set ---'
set Records = Server.CreateObject("ADODB.recordset")
    Records.Open "SELECT * FROM Data ORDER By RecordID DESC",Database, 1, 3

If NOT Records.EOF Then

'--- Setup Variables ---'
   RecordID = Records("RecordID")
   Message = Records("Text")

     strEditorContent = Records("Text")

End if

%>
<html>
<head>


<script language="javascript">
function enableDesignMode() {<%
If RTEenabled = "Gecko" Then Response.Write("     document.desig nMode = 'on'")
%>     }
</script>
<STYLE>
td {border:1px dotted #CCCCCC;}
</STYLE>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="setTimeout('enableDesignMode()', 20);">
<% = strEditorContent %></body>

</html>

/////////////// And in the editEntry.asp I have this other code (edit entry.asp is outside rte folder):

<% AlertBack = True %>



<DIV id=content>
<%
'--- Querish Querystring ---'
Dim Requested, DelRecNo
Requested = Request.Querystring("Entry")
Delete = Request.Querystring("Delete")

If (IsNumeric(Requested) = False) OR (Len(Requested) = 0) Then Requested = 0

If Request.Form("Action") <> "Post" Then

'--- Open set ---'
    If (Requested <> 0) AND (Delete <> "True") Then
    Records.Open "SELECT * FROM Data WHERE RecordID=" & Requested,Database, 1, 3
    ElseIf Requested = 0 Then
    Records.Open "SELECT * FROM Data ORDER By RecordID DESC",Database, 1, 3
    Else

    Database.Execute "DELETE FROM Data WHERE RecordID=" & Requested
    Database.Close
    Set Records = Nothing
    Set Database = Nothing
    Response.Redirect(SiteURL & PageName)

    End If

If NOT Records.EOF Then

'--- Setup Variables ---'
   RecordID = Records("RecordID")
   Title = Records("Title")
   Text = Records("Text")
   Category = Records("Category")
   Password = Records("Password")
   strQueryString3 = Trim(Request.QueryString("RecordID"))

End If

Records.Close
%>
<Form Name="frmAddMessage" Method="Post" action="EditEntry2.asp?action=save&showid=<%=strQueryStri ng3%>" onSubmit="document.getElementById('Submit').disabled=true;"& gt;
<input Name="Action" type="hidden" Value="Post">
             <P><span id="Label1">Title : </span><input Name="Title" type="text" value="<%=Replace(Title,"""",""")%>" style="width:80%;" onChange="return setVarChange()"> <a href="?Entry=<%=Requested%>&Delete=True" title="DELETE this entry" onClick="return confirm('Warning! If You Continue Entry #<%=Requested%> Will Be DELETED.')"><img src="<%=SiteURL%>Images/Delete.gif" width="15" height="15" border="0"></a></P>

             <P>Content :<br>
             <table border="0" cellpadding="1" cellspacing="0" width="100%">
                <tr>
                <td class="td01" align="left">

<%
Const strPathToRTEFiles = "RTE/"
%>



                </td>
                </tr>

             <tr>
             <td colspan="2">
             </tr>
                </table>
             </P>

             <% If ShowCat <> False Then Response.Write "<P>Category : <input Name=""Category"" type=""text"" value=""" & Category & """ style=""width:10%;"" onChange=""return setVarChange()""></P>"%>

         <% If Legacy <> True Then %>
             <table border="0" cellpadding="0" cellspacing="0" width="30%">
         <tr ><td align="left"><font color="black">
              <acronym title="If you type in a password, your viewers will need to enter it to view the Entry, leaving it blank means everyone can see your entry">Optional<br>Entry Password</acronym></font><br>
           <input name="password" type="password" value="<%=Password%>" maxlength="10" onChange="return setVarChange()"></td>
  &n

Sorry, but I don't really know .asp and the way it works.

With RTE for NON richt text browser, I've retrieved the info and I can EDIT with that pages.

BUT, with the RTE for RT browsers, I couldn't get the data inside the IFRAME, and I don't really know how to do it.

I pasted the info BEFORE and AFTER in EditEntry.asp and the other code into RTE_textarea.asp but I couldn't get it to work.

don't you have a simple simple database, with just one FIELD, working to EDIT the info USING RTE ??

Maybe I am missing sthg... I don't know, could you read my basic code posted before if there is just an END IF missing ?

I appreciate all your help.