<%
set Baglan = Server.CreateObject("ADODB.connection")
Baglan.open "provider = microsoft.JET.OLEDB.4.0;Data Source="& server.MapPath("kayit.mdb")
set Girdi=Server.CreateObject("ADODB.RecordSet")
SQL = "Select * From uyeler"
SQL = "Select * From uyeler"
Girdi.Open SQL,Baglan,1,3
do while not Girdi.eof
Response.Write("<tr>"&"<td>"&Girdi("isim")&"</td>")
Response.Write("<td>"&Girdi("soyadi")&"</td>")
Girdi.movenext
loop
Girdi.Close
%>