Microsoft VBScript runtime error '800a01a8' hatası

 
  <% 
  Set bag = Server.CreateObject("ADODB.Connection") 
  bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("deftercik.mdb") 
  kh.open "defter",bag,adOpenForwardOnly 
   
  Set kh = Server.CreateObject ("ADODB.RecordSet") 
  Sql = " Select * from defter" 
  kh.open sql,bag,1,3 
  yazan=Request.Form("yazan" )  
  yazi=Request.Form("yazi" )  
  mail=Request.Form("mail" )  
  tarih=Request.Form("tarih" )  
  url=Request.Form("url" )  
   
   
  kh.AddNew 
  yazi = Replace(yazi,">"," ") 
  yazi = Replace(yazi,"<"," ") 
  yazi = Replace(yazi,chr(13),"<br>") 
  yazi = Replace(yazi,":thumbsup:","<img src=emot/thumbsup.gif>") 
  yazi = Replace(yazi,":thumbsdown:","<img src=emot/thumbsdown.gif>") 
  yazi = Replace(yazi,":dunno:","<img src=emot/dunno.gif>") 
  yazi = Replace(yazi,":D","<img src=emot/biggrin.gif>") 
  yazi = Replace(yazi,":bugeye:","<img src=emot/bugeye.gif>") 
  yazi = Replace(yazi,":cool:","<img src=emot/cool.gif>") 
  yazi = Replace(yazi,":)","<img src=emot/happy.gif>") 
  yazi = Replace(yazi,":mad:","<img src=emot/mad.gif>") 
  yazi = Replace(yazi,":neutral:","<img src=emot/neutral.gif>") 
  yazi = Replace(yazi,":(","<img src=emot/sad.gif>") 
  yazi = Replace(yazi,":shock:","<img src=emot/shock.gif>") 
  yazi = Replace(yazi,":o","<img src=emot/surprised.gif>") 
  yazi = Replace(yazi,":vhappy:","<img src=emot/vhappy.gif>") 
  yazi = Replace(yazi,":wink:","<img src=emot/wink.gif>") 
  kh("yazan" )=yazan 
  kh("yazi" )=yazi 
  kh("mail" )=mail 
  kh("tarih" )=tarih 
  kh("url" )=url 
  kh.update 
   
  response.redirect "defter.asp" 
  %>