<%'Çilem.Net © 2007'%> <% baslik=Request.Form("baslik") kisahaber=Request.Form("kisahaber") sira=request.form("katid") resim=request.form("resim") resimsiz=request.form("resimsiz") resimurl=request.form("resimurl") resimsec=request.form("resimsec") kaynakadresi=request.form("kaynakadresi") kaynakadi=trim(request("kaynakadi")) kaynakadi=guvenlik(kaynakadi) bolum=trim(request("bolum")) bolum=guvenlik(bolum) haberonay=trim(request("haberonay")) haberonay=guvenlik(haberonay) katid=trim(request("katid")) katid=guvenlik(katid) kategoriadi=trim(request("kategoriadi")) kategoriadi=guvenlik(kategoriadi) uyemail=trim(request("uyemail")) haber=request.form("haber") uyemail=guvenlik(uyemail) koseyazisi= request.form("koseyazisi") sondakika= request.form("sondakika") mansethaber= request.form("mansethaber") tarih= now() if baslik= "" Then response.redirect "haber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if kisahaber= "" Then response.redirect "haber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if haber= "" Then response.redirect "haber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if kaynakadi= "" Then response.redirect "haber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if if kaynakadresi= "" Then response.redirect "haber_duzenle.asp?bolum=" & guvenlik(request("bolum"))& "&hata=" end if %> <%bolum= request.querystring("bolum") set rs=server.createobject("adodb.recordset") rs.open "haber where bolum =" & bolum,cilem,1,3 if not Rs.EOF then rs("kisahaber") = kisahaber rs("sira") = sira rs("kaynakadresi") = kaynakadresi rs("kaynakadi") = kaynakadi rs("resimsiz") = resimsiz rs("resimurl") = resimurl rs("resimsec") = resimsec rs("resim") = resim rs("katid")=katid rs("kategoriadi")=kategoriadi rs("baslik")=baslik rs("haber")=haber rs("haberonay")=haberonay rs("uyemail")=uyemail 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 if Request.Form("koseyazisi")<>"" then rs("koseyazisi")=true else rs("koseyazisi")=False end if Rs.Update Response.Redirect "haberyonetim.asp" end if %>