<% @ Language=VBScript %> <%'DiyalogTR.Com © 2008'%> <%=siteadi%> - Yorum Ekle <% bolum=guvenlik(request("bolum")) If Not Isnumeric(bolum) Or Len(bolum)=0 Then msg "" End If Set rs= cilem.execute("SELECT * FROM haber WHERE haberonay='Evet' and bolum=" & guvenlik(request("bolum"))) If rs.eof Then msg"" End If %> <% Sub msg(uyari)%> <%= uyari %> <% response.end End Sub %> <%bolum=guvenlik(request("bolum")) set rs=server.createobject("adodb.recordset") rs.open "haber where haberonay='Evet' and bolum=" & guvenlik(request("bolum")),cilem,1,3 islem=Request.QueryString("islem") if islem="Kaydet" then call Kaydet end if%>
&islem=Kaydet" method='POST' onSubmit="return check_frmm()"> "> "> "> ">
              Yorum Ekle

<%response.write "
"&request("hata")&""%> 

Adınız :
E-mail :
Başlık : Kalan : 120
 Yorumunuz :  


 

   Pencereyi Kapat  

 
<% sub Kaydet editor=trim(request("editor")) editor=guvenlik(editor) gonderen=trim(request("gonderen")) gonderen=guvenlik(gonderen) konu=trim(request("konu")) konu=guvenlik(konu) baslik=trim(request("baslik")) baslik=guvenlik(baslik) mesaj=trim(request("mesaj")) mesaj=guvenlik(mesaj) bolum=trim(request("bolum")) bolum=guvenlik(bolum) email=trim(request("email")) email=guvenlik(email) uyeid=trim(request("uyeid")) uyeid=guvenlik(uyeid) ipno=Request.Form("ipno") tarih=now() yorum= Replace(yorum,Chr(13),"
") set rs=server.createobject("adodb.recordset") rs.open "yorum",cilem,1,3 rs.addnew rs("editor") = editor rs("bolum") = bolum rs("uyeid") = uyeid rs("konu") = konu rs("baslik") = baslik rs("mesaj") = mesaj rs("gonderen") = gonderen rs("email") = email rs("tarih") = tarih rs.Update%> <% end sub %>