Gönderen: 20-Kasım-2007 Saat 22:49 | Kayıtlı IP

şöyle bir kod düzenleyebilirmisin. daha güzel kolay bir kod.

<%
if(CheckString(Request.Querystring("islem")))="yyaz" then
%>
<form method="post" action="haber_detay.asp?id=<%=hbr("id")%>&islem=yy az2#ek">
<table border="0" width="557" style="border-collapse: collapse">
<tr>
<td bgcolor="#9EC164" colspan="2">
<p align="center"><a name="gos">&nbsp;<font class="katbas"><%=hbr("baslik")%> <%=y_10%></font></a></td>
</tr>
<tr>
<td bgcolor="#9EC164" background="images/tema/menu_btn.gif" width="136" style="font-family: Verdana; font-size: 10pt; color: #FFccF">
<font color="#FF0000">*</font>Yorum başlığı</td>
<%Dim ipkayit, ipnosu
ipkayit = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ipkayit<>"" Then
ipnosu = ipkayit
Else
ipnosu = Request.ServerVariables("REMOTE_ADDR")
End If
%>
<td bgcolor="#9EC164" background="images/tema/menu_btn.gif" width="417" style="font-family: Verdana; font-size: 10pt; color: #FFccF">
<input type="text" name="baslik" maxLength="50" size="25"><input type="hidden" name="ip" value="<%=ipnosu%>">
<i><font size="2" face="Arial">Maksimum 50 karakter</font></i></td>
</tr>
<tr>
<td bgcolor="#9EC164" background="images/tema/menu_btn.gif" width="136" style="font-family: Verdana; font-size: 10pt; color: #FFccF">
<font color="#FFccF">*</font>Yorumunuz</td>
<td bgcolor="#9EC164" background="images/tema/menu_btn.gif" width="417" style="font-family: Verdana; font-size: 10pt; color: #FFFFFF">
<textarea id=eBann onkeyup="Contar('eBann','sBann','{CHAR} <%=y_1%>',<%=yorumkrk%>);" maxLength=<%=yorumkrk%> rows="5" name="yorum" cols="19"></textarea><font size="2"><BR></font>
<SPAN id=sBann><%=y_2%> <%=yorumkrk%> <%=y_3%></font></td>
</tr>
<tr>
<td bgcolor="#9EC164" background="images/tema/menu_btn.gif" width="553" style="font-family: Verdana; font-size: 10pt; color: #FFccF" colspan="2">
<span style="color: #FF0000">* </span>ile gösterilenler doldurulması zorunlu olanları gösterir.<br></btr><font size="1"><b>NOT:</b> Verdiğiniz bilgilerde; gereksiz karakterler(&quot;,%,&amp;,',(,),*,&gt;,&lt; ,; vb.) kullanmayınız.Kullandığınız takdirde, karakterler temizlenir.Ayrıca site yöneticileri tarafından engellenebilirsiniz.İP numaranız kayıt edilmektedir.&nbsp; </font></td>
</tr>
<tr>
<td bgcolor="#9EC164" background="images/tema/menu_btn.gif" width="553" style="font-family: Verdana; font-size: 10pt; color: #FFFFFF" colspan="2">
<p align="center">
<input type="submit" value="   <%=y_15%>   " style="font-family: Verdana; font-size: 10pt"></td>
</tr>
</table>
</form>
<% elseif(CheckString(Request.Querystring("islem")))="yyaz2" then %>
<table border="0" width="558" style="border-collapse: collapse">
<tr>
<td bgcolor="#9EC164"><p align="center"><a name="ek">&nbsp;<font class="katbas"><%=hbr("baslik")%> <%=y_10%></font></a></td>
</tr>
<tr>
<td background="images/tema/menu_btn.gif" style="font-family: Verdana; font-size: 10pt">
<%
baslik=karakterduzelt(Request.Form("baslik"))
yorum=karakterduzelt(Request.Form("yorum"))
ipnosu=Request.Form("ip")
ekleyen=session("kul_adi")
hid=hbr("id")
if baslik="" or yorum="" then
Response.Write(""&e_13&" <a href=""javascript:history.back(-1)""> Geri Dön </a>")
else
set yekle=Server.CreateObject("ADODB.Recordset")
sql="Select * from yorum"
yekle.Open sql,bag,1,3
yekle.Addnew
yekle("baslik")=baslik
yekle("yorum")=yorum
yekle("tarih")=(Now)
yekle("hid")=hid
yekle("ekleyen")=ekleyen
yekle("ip")=ipnosu
yekle("onay")=False
yekle.Update
%>
<p align="center"><%=y_16%><meta http-equiv="Refresh" content="4; url=haber_detay.asp?id=<%=hbr("id")%>">
<% end if %></td>
</tr>
</table>
<% end if %>
<% end if %>
<%
hbr.close
set hbr=Nothing
%>