<%  
  ip= Request.ServerVariables("REMOTE_ADDR") 
   
  baslik=request.form("baslik") 
  haber=request.form("haber") 
   
  IF  baslik="" or haber="" Then 
  Response.Write "<script>alert('HATA! Başlık yada Haber bölümünü boş bıraktınız !');</script>" 
  Response.Write "<script>window.navigate('inc_haberekle.asp');</script>" 
  Response.end 
  END IF  
   
  set kaydet=server.createobject("adodb.recordset") 
  strSQL="select * from Haberler" 
  kaydet.open strSQL,baglan,1,3 
   
  kaydet.AddNew 
  kaydet("baslik")=Request.Form("baslik") 
  kaydet("image")=Request.Form("image") 
  kaydet("haber")=Request.Form("haber") 
  kaydet("kaynak")=Request.Form("kaynak") 
  kaydet("durum")=Request.Form("durum") 
  kaydet("ip")=ip 
  kaydet("hit")=0 
  kaydet("tarih")=Date() 
  kaydet.update 
  kaydet.close 
  %>