Merhaba

Kendi siteme fck editör ekleyeceğim ama başaramadım.forumdaki örneklerde kafamı çok karıştırdı.
Rica etsem kodları aşağıda veriyorum buna göre nasıl editör ekleyebilirim yazarsanız memnun olurum.

   </td>
                </tr>
                <tr>
                  <td width="100%" align="center"><input type="submit" value="Güncelle" style="border:0px; ">
&nbsp; </td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
      <%elseif id="2921" then
      set rs=server.CreateObject("adodb.recordset")
      sql="select * from yazilar where id=" & pid
      rs.open sql,bag,1,3
      rs("yazarid")=request.Form("yazarid")
      rs("icerik")=request.Form("pageHTML")
      rs("baslik")=request.Form("baslik")
      rs.update
      rs.close
      set rs= nothing
      bag.close
      set bag = nothing
      response.Redirect request.ServerVariables("HTTP_REFERER")
      elseif id="16" then
      %>
      
     

<table>
  <tr>
    <td width="253" valign="top" class="icitd"><table>
        <tr>
          <td width="250" colspan="3" style="border-bottom:1px; border-bottom-color:#999999; border-bottom-style:dotted; font-weight:bold; color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haber Ekle</td>
        </tr>
        <form action="default.asp?id=4109" enctype="multipart/form-data" method="post">
          <tr>
            <td style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haber Başlığı</td>
            <td style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">:</td>
            <td><input class="formic" type="text" name="hbas"></td>
          </tr>
             <tr>
            <td style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haber Resmi</td>
            <td style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">:</td>
            <td><input class="formic" type="file" name="resim"></td>
          </tr>
          <tr>
            <td style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Ekleyen</td>
            <td style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">:</td>
            <td><input class="formic" type="text" name="yazar"></td>
          </tr>
          <tr>
            <td valign="top" style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haber Metni</td>
            <td valign="top" style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">:</td>
            <td><textarea class="formic" cols="20" rows="8" type="text" name="hbr"></textarea></td>
          </tr>
          <tr>
            <td colspan="3" align="right"><input type="submit" style="border:0px;" value="Kaydet"></td>
          </tr>
        </form>
      </table></td>
    <td width="324" valign="top"><table cellpadding="5">
        <tr>
          <td colspan="4" style="border-bottom:1px; border-bottom-color:#999999; border-bottom-style:dotted; font-weight:bold; color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haberler</td>
        </tr>
        <tr>
          <td width="99" style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haber Başlığı</td>
          <td width="97" style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Haber Metni</td>
          <td width="51" style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Düzenle</td>
          <td width="21" style="color:#CC0000; font-size:14px; font-family:Arial, Helvetica, sans-serif; ">Sil</td>
        </tr>
        <%
        set habertbl=server.CreateObject("Adodb.Recordset")
        sql = "Select * From haberler"
        habertbl.open sql,bag,1,3
        %>
        <%do while not habertbl.eof%>
        <tr><td style="color:#999999; font-size:10px; font-family:Arial, Helvetica, sans-serif; "><%=habertbl("baslik")%></td>
        <td style="color:#999999; font-size:10px; font-family:Arial, Helvetica, sans-serif; "><%=left(habertbl("haber"),20)%>...</td>
        <td style="color:#999999; font-size:10px; font-family:Arial, Helvetica, sans-serif; "><a href="default.asp?id=4110&rid=<%=habertbl("id")%>"><img border="0" src="../images/itemler/yanit.jpg"></a></td>
        <td style="color:#999999; font-size:10px; font-family:Arial, Helvetica, sans-serif; "><a href="default.asp?id=4111&rid=<%=habertbl("id")%>"><img border="0" src="../images/itemler/sil.jpg"></a></td>
        </tr>
        <%habertbl.movenext
        loop%>
      </table></td>
  </tr>
</table>
<%
habertbl.close
set habertbl = nothing
%>


<%
elseif id="4109" then
Set Upload = Server.CreateObject("Persits.Upload" ) 
Upload.OverwriteFiles = False
Upload.codePage = 1254
session.lcid = 1055
Upload.save Server.MapPath("/images/haberresim") 
Set File1 = upload.Files("resim")


set haberup = server.CreateObject("Adodb.recordset")
sql = "select * from haberler"
haberup.open sql,bag,1,3

hbas=upload.Form("hbas")
tar=upload.Form("tarh")
yazar=upload.Form("yazar")
hbr=upload.Form("hbr")

haberup.addnew
haberup("haber")=hbr
haberup("baslik")=hbas
haberup("tarih")=date()
haberup("resim") = ("images/haberresim/" ) + File1.Filename
haberup.update

haberup.close
set haberup=nothing
bag.close
set bag=nothing

response.Redirect request.ServerVariables("HTTP_REFERER")

                        
                        %>
                        
                        <%elseif id="4110" then%>
                        
                        
                        <%
fids= request.QueryString("rid")
        set haber = server.CreateObject("Adodb.Recordset")
        sql = "Select * From haberler where id=" & fids
        haber.open sql,bag,1,3
        %>
        <table>