<%

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection")
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri.mdb")

%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align="center"><font face="Arial"><b>Burak</b></font></td>
<td width="50%" align="center"><font face="Arial"><b>Berk</b></font></td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM veri1 ORDER BY kimlik ASC"
rec.open rSQL,ObjCon_ilet,3,3
do while (not rec.eof)
%>
<tr>
<td width="50%" align="center"><%=rec("burak")%></td>
<td width="50%" align="center"><%=rec("berk")%></td>
</tr>
<%
rec.movenext
Loop
%>
</table>