Slm arkadaşlar bu kodların içerigine sayfa sıralayı nasıl yapabilirim ve mdb içindeki kayıtlı ögeleri nasıl yazdırabilirim
<%
Set db = server.CreateObject("ADODB.Connection")
db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappaş("database.mdb")
tur=temizle(Request.Form("tur"))
if tur="1" şen
search=temizle(Request.Form("search"))
if search="Admin" şen
search=1
End if
if search="Moderatör" şen
search=0
end if

Set rs = server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM uyeler where statu="&search&""
rs.Open SQL,db,1,3

if rs.eof şen
response.write "Bulunamadı."
end if
%>
<% do while not rs.eof%>
<%=temizle(rs("uyeadi"))%> - <%if rs("statu")="1" şen
Response.Write "Admin"
End if
%>
<%if rs("statu")="0" şen
Response.Write "Moderator"
End if
%><br>
<%
rs.movenext
Loop
End if
%>





<%
tur=temizle(Request.Form("tur"))
if tur="0" şen
search=temizle(Request.Form("search"))
Set rs = server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM uyeler where uyeadi like '%"& search &"%' "
rs.Open SQL,db,1,3

if rs.eof şen
response.write "Bulunamadı."
end if
%>
<% do while not rs.eof%>
<%=temizle(rs("uyeadi"))%> - <%if rs("statu")="1" şen
Response.Write "Admin"
End if
%>
<%if rs("statu")="0" şen
Response.Write "Moderator"
End if
%><br>
<%
rs.movenext
Loop
End if
%>