<% 
  Set zdefter= Server.CreateObject("ADODB.Connection") ' zdefter adında bir obje oluşturuyoruz 
  zdefter.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("zdefter.mdb")) 
  ' zdefter objesini Microsoft Access Driver Olarak Açıp , Veritabanımızın Bulunduğu Yolu Belirliyoruz... 
  %>

<table border="0" width="100%"> 
  <form method="post" action="deftereyaz.asp"> 
  <tr> 
  <td width="50%"> 
  Ad Soyad 
  </td> 
  <td width="50%"> 
  <input type="text" name="ad" size="20"> 
  </td> 
  </tr> 
  <tr> 
  <td width="50%"> 
  Mesaj 
  </td> 
  <td width="50%"> 
  <textarea rows="2" name="mesaj" cols="20"></textarea> 
  </td> 
  </tr> 
  <tr><td colspan="2"> 
  <input type="submit" name="gonder"> 
  </td></tr> 
  </form> 
  </table>

<% 
  tarih=FormatDateTime(Date, 1) ' rtsngz arkadaşımızın ilk sayfada 
  vermiş oldugu yazıdada oldugu gibi tarih değerini yazdırıyoruz 
  ama biz burda tarih değişkenine atama yapıyoruz... 
   
  if request.form("isim")="" or request.form("mesaj")="" then 
  response.write "Boş Alan Olmamalıdır" 
  else 
   
  set deftereyaz=zdefter.execute("insert into defter(tarihsaat,isim,mesaj) values('"&tarih&"','"&request.form("isim")&"','"&request.form("mesaj")&"')") 
  response.write "Mesajınız Deftere Yazılmıştır" 
  end if 
  %>

if şart then ' eğer verdiğiniz şarta uygunsa işlem1 i yap 
  işlem1  
  else ' değilse işlem2 yi yap 
  işlem2 
  end if

<!--#include file="db.asp"--> 
  <% 
   
  set defteroku=zdefter.execute("select * from defter order by id desc") ' (veya order by id asc) 
  'yine aynı sekılde zdefter.execute ile işlemi baslattık ve defteroku degerıne atadık 
  ' select * sql koduyla defterden tum degerlerı sectık ve id alanına gore sondan basa dogru sıralattık 
  'eger burada desc yerıne asc kullansaydık sıralama tam tersı olacaktı 
   
  if defteroku.eof then 
  'defteroku degerı eger boş ise kosulunu olusturduk 
   
  response.write "DB Boş" 
  've bir yazı yazdırdık 
   
  else 
  'defter boş değilse kosulunu olusturduk 
   
  while not defteroku.eof 
  ' burada defter eger bos degılse dongusunu olusturduk 
  %> 
   
  Tarih = <%=defteroku("tarih")%> <br> 
  İsim = <%=defteroku("isim")%><br> 
  Mesaj = <%=defteroku("mesaj")%><br> 
  <bR><br><%' 2 satır atlayarak bır dahakı kayıt arasında bosluk bırakıyoruz%> 
  <% 
  defteroku.movenext : wend 
  'burada defteroku degerını ılk degere getırıp tekrar donguye sokuyoruz 
   
  end if 
  ' en basta olusturdugumuz sartlı kosulumuzu bıtırıyoruz 
  ' burada bunu bıtırmemızın nedenı db dekı alanları kosulun ıcerısınde yazdırdıgımız ıcın 
  %>