Updatere side med FCKeditor

<%

sql = "select * from forsiden where id = 1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3

   
%>


<% Response.Write rs("beskrivelse")%>

<form name="information" method="post" action="main.asp?mode=upd">
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "/FCKeditor/"
oFCKeditor.Value    = rs("beskrivelse")
oFCKeditor.Create "beskrivelse"
%>
    <input type="submit" value="Submit" name="B1">
</form>

<% mode = request("mode") %>
<%
If mode = "upd" Then
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs("beskrivelse") = request.form("beskrivelse")
    rs("dato") = now()
    rs.update
    Response.Write("<br><center><p><img border='0' src='new.gif'> Oplysningerne er opdateret. <img border='0' src='new.gif'></p></center>")
    end if
end if %>