<%'Çilem.Net © 2007'%> <% sira=request.form("katid") baslik=Request.Form("baslik") kisahaber=trim(request("kisahaber")) 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) kategoriadi=trim(request("kategoriadi")) kategoriadi=guvenlik(kategoriadi) katid=trim(request("katid")) katid=guvenlik(katid) haber=request.form("haber") isimsoyad=trim(request("isimsoyad")) isimsoyad=guvenlik(isimsoyad) editor_kod=trim(request("editor_kod")) editor_kod=guvenlik(editor_kod) uyeid=trim(request("uyeid")) uyeid=guvenlik(uyeid) haberonay=trim(request("haberonay")) haberonay=guvenlik(haberonay) editor=trim(request("editor")) editor=guvenlik(editor) uyemail=trim(request("uyemail")) uyemail=guvenlik(uyemail) koseyazisi= request.form("koseyazisi") sondakika= request.form("sondakika") mansethaber= request.form("mansethaber") tarih= Now() if baslik= "" Then response.redirect "haber_ekle.asp?hata=" end if if kisahaber= "" Then response.redirect "haber_ekle.asp?hata=" end if if haber= "" Then response.redirect "haber_ekle.asp?hata=" end if if kaynakadi= "" Then response.redirect "haber_ekle.asp?hata=" end if if kaynakadresi= "" Then response.redirect "haber_ekle.asp?hata=" end if set rs=server.createobject("adodb.recordset") rs.open "haber",cilem,1,3 rs.addnew rs("sira") = sira rs("kaynakadresi") = kaynakadresi rs("kaynakadi") = kaynakadi rs("resimsiz") = resimsiz rs("resimurl") = resimurl rs("resimsec") = resimsec rs("kategoriadi") = kategoriadi rs("katid") = katid rs("baslik") = baslik rs("editor_kod") = editor_kod rs("uyeid") = uyeid rs("isimsoyad") = isimsoyad rs("haber") = haber rs("haberonay") = haberonay rs("editor") = editor rs("resim") = resim rs("uyemail") = uyemail rs("kisahaber") = kisahaber 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?hata=Haberiniz Başarıyla Kaydedilmiştir.Onay Yetkiniz Yok İse Uygun Bulunduğu Takdirde Yönetici'nin Onayından Sonra Aktif Olacaktır. !" %>