Verdiğim kodu olduğu gibi kendi kodunla değiştir kolay gelsin
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Veritabani.mdb")
Set Rs = Conn.Execute("SELECT * FROM Liste Where Onay=1 Order By id Desc")
Set ToplamKayit = Conn.Execute("SELECT Count(*) AS Hesapla FROM Liste Where Onay=1 Order By id Desc")
%>
<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>
<center>Toplam Kayıt Sayısı: <%=ToplamKayit("Hesapla")%>
<%
rs.Close
Conn.Close
Set rs=Nothing
Set Conn=Nothing
%>