<%'DiyalogTR.Com © 2008'%> <% sira=request.form("katid") baslik=Request.Form("baslik") kisahaber=Request.Form("kisahaber") resimsiz=request.form("resimsiz") resimurl=request.form("resimurl") resimsec=request.form("resimsec") kaynakadresi=request.form("kaynakadresi") uyemail=trim(request("uyemail")) uyemail=guvenlik(uyemail) kaynakadi=trim(request("kaynakadi")) kaynakadi=guvenlik(kaynakadi) bolum=trim(request("bolum")) bolum=guvenlik(bolum) haber=request.form("haber") editor=request("editor") katid=trim(request("katid")) katid=guvenlik(katid) kategoriadi=trim(request("kategoriadi")) kategoriadi=guvenlik(kategoriadi) haberonay=trim(request("haberonay")) haberonay=guvenlik(haberonay) sondakika= request.form("sondakika") mansethaber= request.form("mansethaber") tarih= now() if baslik= "" Then response.redirect "yonetimhaber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if kisahaber= "" Then response.redirect "yonetimhaber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if haber= "" Then response.redirect "yonetimhaber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if kaynakadi= "" Then response.redirect "yonetimhaber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if kaynakadresi= "" Then response.redirect "yonetimhaber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if %> <%bolum= request.querystring("bolum") set rs=server.createobject("adodb.recordset") rs.open "haber where bolum =" & guvenlik(request("bolum"))& "",cilem,1,3 if not Rs.EOF then rs("uyemail") = uyemail rs("kaynakadresi") = kaynakadresi rs("kaynakadi") = kaynakadi rs("resimsiz") = resimsiz rs("resimurl") = resimurl rs("resimsec") = resimsec rs("katid")=katid rs("sira") = sira rs("kategoriadi")=kategoriadi rs("haberonay")=haberonay rs("baslik")=baslik rs("haber")=haber rs("kisahaber") = kisahaber rs("editor")=editor rs("tarih")=tarih if Request.Form("mansethaber")<>"" then rs("mansethaber")=true else rs("mansethaber")=False end if if Request.Form("sondakika")<>"" then rs("sondakika")=true else rs("sondakika")=False end if Rs.Update Response.Redirect "yonetim.asp" end if %> <% Rs.Close Set Rs=Nothing cilem.Close Set cilem=Nothing %>