Yorum Cevaplama

<% @ Language=VBScript %> <%'DiyalogTR.Com © 2008'%> Yorum Cevaplama <% yorum_id=guvenlik(request("yorum_id")) sql="SELECT * FROM yorum WHERE yorum_id=" & guvenlik(request("yorum_id")) Set rs=cilem.Execute(sql)%> <%if rs("yorum_onay")="Hayır" then %>Yorum Henüz Onaylanmamış <% else %> <%if rs.eof then Response.write"" if yorum_id= "" Or IsNumeric(yorum_id) = False Then end if else yorum_id=guvenlik(request("yorum_id")) set rs=server.createobject("adodb.recordset") rs.open "yorum where yorum_onay='Evet' and yorum_id =" & yorum_id,cilem,1,3 islem=Request.QueryString("islem") if islem="Kaydet" then call Kaydet end if%>

&islem=Kaydet" method='POST' onSubmit="return check_frmm()"> "> "> "> </font>">

Yorum Cevapla

Gönderen:	<%=rs("gonderen")%>
Başlık :	Kalan : 120
	Cevabınız »
	<font color="#cc0000"> Alıntı:</font> </br><%=rs("gonderen")%></font></br>-----------------------------------------------------------------</br><font color="#000000"> <%=rs("mesaj")%></font></br>-----------------------------------------------------------------</br></br>

Pencereyi Kapat

<% sub Kaydet email=trim(request("email")) email=guvenlik(email) bolum=trim(request("bolum")) bolum=guvenlik(bolum) yorum_id=trim(request("yorum_id")) yorum_id=guvenlik(yorum_id) editor=trim(request("editor")) editor=guvenlik(editor) gonderen=request("gonderen") baslik=request("baslik") konu=request("konu") yorum_onay=request("yorum_onay") mesaj=request("mesaj") tarih=now() yorum_id= request.querystring("yorum_id") set rs=server.createobject("adodb.recordset") rs.open "yorum where yorum_id=" & guvenlik(request("yorum_id"))& "",cilem,1,3 rs.addnew rs("email") = email rs("baslik") = baslik rs("konu") = konu rs("editor") = editor rs("bolum") = bolum rs("yorum_onay") = yorum_onay rs("mesaj") = mesaj rs("gonderen") = gonderen rs("tarih") = tarih Rs.Update%> <% end sub end if %> <% end if%>