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