merhaba ,aşağıda kodları vereceğim sayfa şuan sitemde çalışıyor.ancak haber ekleme ve düzenleme kısmında editor kodlarında eksiklikten dolayı yazılar tüm çıkıyor yani boşluk vs.veriilmiyor ve düz yazı çıkıyor buda hoş olmuyor tabi.

Sizden ricam haber ekleme ve düzenleme kısmına editör kodlarını eklemeniz.
Şimdiden çok teşekkür ederim.

<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 NAME="textarea" ROWS="10" COLS="30"><%=rs("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>
  <tr>
    <td><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 Düzenle </td>
        </tr>
        <tr>
          <td><%if haber.bof then
		response.Write"Düzenlenecek bir haber bulunamadı."
		response.End
		else
		end if
		%></td>
        </tr>
        <form action="default.asp?id=4112&fid=<%=haber("id")%>" 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" value="<%=haber("baslik")%>"></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="nact" cols="30" rows="8" type="text" name="hbr"><%=haber("haber")%></textarea></td>
          </tr>
          <tr>
            <td colspan="3" align="right"><input type="submit" style="border:0px;" value="Kaydet"></td>
          </tr>
        </form>
      </table></td>
    <%
	  haber.close
	  set haber = nothing
	  %>
    <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="4112" then

id=request.QueryString("fid")
set haberup = server.CreateObject("Adodb.recordset")
sql = "select * from haberler where id=" & id
haberup.open sql,bag,1,3

dim hbas, tar, yazar, hbr
hbas=temizle(request.Form("hbas"))
tar=temizle(request.Form("tarh"))
yazar=temizle(request.Form("yazar"))
hbr=temizle(request.Form("hbr"))

haberup("haber")=hbr
haberup("baslik")=hbas
haberup("tarih")=date()
haberup.update

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

response.Redirect request.ServerVariables("HTTP_REFERER")


elseif id="4111" then
						
tid=request.QueryString("rid")
set haberup = server.CreateObject("Adodb.recordset")
sql = "Delete from haberler where id=" & tid
haberup.open sql,bag,1,3


response.Redirect request.ServerVariables("HTTP_REFERER")

elseif id="17" then%>