<%
Set Conn = Server.CreateObject("ADODB.Connection")
Path = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};"
Path = Path & " DBQ= " & Server.MapPath("veritabani.mdb")

Conn.Open Path
sql="SELECT * FROM liste WHERE onay=1 order by id desc"

Set rs=Conn.Execute(sql)
%>

<TABLE width="100%" border="1" cellspacing="0">
<TR>
<%
Do While Not rs.Eof
%>
<TR>
<TD><%=rs("isim")%></TD>
<TD><%=rs("tarih")%></TD>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>
<%
Set toplm = Conn.Execute("select * from liste where onay=1 order by id desc")
%>
<%=toplm("say")%> 
<%
toplm.Close
Set toplm=Nothing
rs.Close
Conn.Close
Set rs=Nothing
Set Conn=Nothing
%>