<% Set connection = Server.CreateObject("ADODB.Connection") Set my_record= Server.CreateObject("ADODB.RecordSet") connection.open ("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\guestbook\guestana.mdb")) my_record.open "guestbook",connection,1 my_record.movelast do while not (my_record.BOF) aktif=my_record("aktif") isim=my_record("isim") email=my_record("email") tarih=my_record("tarih") mesaj=my_record("mesaj") ulke=my_record("ulke") if aktif="yes" then %> <% else end if my_record.moveprevious loop my_record.close connection.close set my_record=nothing %>
Name :  
<%=isim%>
Country :
<%=ulke%>
  Date :  
<%=tarih%>
Message :
<%=mesaj%>