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%> 
