recordset sorunu yaşıyorum

şimdi ben bir sayfa yaptım ve son 30 konu ve en çok okunan 30 konuyu yayınlamak istiyorum
böyle bir sorgu cümlesi kuruyorum
select * from tblTopic order by Start_date desc
ve son 30 konuyu sıralıyorum
ve en çok okunanları sıralamak için yeni bir sorgu kuruyorum
select * from tblTopic order by No_of_views desc
fakat ikinci sorgu hiç bir sonuç çıkarmıyor
sorun ne sizce
---------
<%
Dim rs,rs2
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open = "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("vt.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from tblTopic order by Start_date desc",bag,1,3
rs.PageSize=30
Do while ((Not rs.eof) And (RecordCount < rs.PageSize))
%>
<a href="forum_posts.asp?TID=<%=rs("Topic_ID")%>"><%=rs("Subject")%></a><br>
<%
RecordCount = RecordCount + 1
rs.movenext
loop
rs.close
set rs=nothing

set rs2=server.createobject("adodb.recordset")
rs2.open "select * from tblTopic order by No_of_views desc",bag,1,3
rs2.PageSize=30
Do while ((Not rs2.eof) And (RecordCount < rs2.PageSize))
%>
<a href="forum_posts.asp?TID=<%=rs2("Topic_ID")%>"><%=rs2("Subject")%></a><br>
<%
RecordCount = RecordCount + 1
rs2.movenext
loop
rs2.close
set rs2=nothing
bag.close
set bag=nothing



%>

sql cümleciği ile 30 tane seçtirebilirsin orda kod kargaşası olmuş pagesize ı kullanarak

select top 30 * from tblTopic order by Start_date desc

Do while NOT kayit.eof diyip yazdır direk 30 tane yazacaktır

page size ne diye kullanılmış anlamadım
<%
Dim rs,rs2
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open = "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("vt.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from tblTopic order by Start_date desc",bag,1,3
for j=1 to 30
%>
<a href="forum_posts.asp?TID=<%=rs("Topic_ID")%>"><%= rs("Subject")%></a><br>
<%
rs.movenext
next
%>

<%
set rs2=server.createobject("adodb.recordset")
rs2.open "select * from tblTopic order by No_of_views desc",bag,1,3

for i=1 to 30
%>
<a href="forum_posts.asp?TID=<%=rs2("Topic_ID")%>"><% =rs2("Subject")%></a><br>
<%
rs2.movenext
next
%>

tşk ederim işime çok yaradı
ikinizede tşk