hücredeki listeli veriyi en başa en sona ayarlamak

<%Sub gruplar%>
<%

  grup = request.QueryString("grup")
 telefon = request.QueryString("telefon")


  Set Baglanti = Server.CreateObject("aDodb.connection")

  Baglanti.Open = "DRIVER={microsoft access driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db")

  Set Rs = Server.CreateObject("aDodb.recordSet")
  If telefon <> "" Then

  Sor = "Select * From dal Where grup='"&grup&"' AND telefon = '" & telefon & "'"

  Else

  Sor = "Select * From dal Where grup='"&grup&"' order by id desc "
  
  END IF

  Rs.Open Sor, Baglanti,1,3

  adet=Rs.RecordCount 


 %>

<%
If Rs.EOF or Rs.BOF Then
Response.Write "<meta HTTP-EQUIV='Content-Type' Content='text-html; chaRset=winDows-1254'>"
Response.Write "<br><br><center><span class='style119'>Kayıt Bulunmuyor</span></center>"
Response.End
'Response.Redirect "xdefault.asp"
End If
adet=Rs.RecordCount

syf = Request.QueryString("syf")
If syf="" Then 
syf=1
End If
%>
<table width="100%" border="8" align="center" cellpadding="6" cellspacing="4" bordercolor="#FFFFFF" bgcolor="#FFFFFF" height="90">
  <tr>

    <td height="85" class="style9">
	<div align="center">
		<table width="95%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF">
      <tr>
        <td>
		<table width="100%" border="0" cellpadding="3" cellspacing="1" bordercolor="#FDFDFD" bgcolor="#CCCCCC">
          <tr>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" align="center">
			<font face="Calibri" size="2" color="#008000">SIRA NO</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" align="center">
			<font face="Calibri" size="3" color="#008000">ÜNİTE</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="50%" align="center">
			<font color="#800000" face="Calibri" size="3">YAPILACAK İŞLER</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="10%" align="center">
			<font face="Calibri" size="3" color="#008000">İsteyen Servis</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="8%" align="center">
			<font face="Calibri" size="3" color="#008000">Yapacak Servis</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="6%" align="center">
			<font face="Calibri" size="3" color="#008000">Aciliyet</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="7%" align="center">
			<font face="Calibri" size="3" color="#008000">İşin Durumu</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="4%" align="center">
			<font face="Calibri" size="3" color="#008000">Tarih&nbsp; Saat</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="2%" align="center">
			<font color="#FF0000">Oku</font></td>
            <td background="img/bg.jpg" bgcolor="#F0F0F0" class="style9" width="2%" align="center">
			<font color="#FF0000">Düzenle</font></td>
          </tr>
   		       <% 	
	Rs.PageSize = 30
	Rs.absolutepage=syf
	sayfa=Rs.pagecount
	for i=1 to Rs.PageSize
	If Rs.EOF Then exit for
%>
          <tr>
            <td bgcolor="#F7F7F7" class="style9 style112" width="3%"><span class="style33">		
	
			<font color="#FF0000" face="Tahoma" style="font-size: 8pt"><%=i + (SYF - 1) * 30%></font></a></span></td>
            <td bgcolor="#F7F7F7" class="style9 style112" width="4%"><%=Rs("adres")%></td>
            <td bgcolor="#F7F7F7" class="style9" width="50%" style="font-size: 9pt">
			<span style="font-weight: 400">
			<%=Rs("Not")%></span></td>
            <td bgcolor="#F7F7F7" class="style9" width="10%">
			<font face="Tahoma" style="font-size: 8pt">
			<%=Rs("web")%></font></td>
            <td bgcolor="#F7F7F7" class="style9" width="8%" style="color: #000000">
			<%=Rs("grup")%></td>
            <td bgcolor="#F7F7F7" class="style9" width="6%">
			<%=Rs("acil")%></td>
            <td bgcolor="#F7F7F7" class="style9" width="7%">
			<%=Rs("telefon")%></td>
            <td bgcolor="#F7F7F7" class="style9" width="4%" align="center">
			<font face="Tahoma" style="font-size: 8pt">
			<%=Rs("tarih")%></font></td>
            <td bgcolor="#F7F7F7" class="style9" width="2%" align="center">
			<a href="xdefault.asp?islem=oku&amp;id=<%=Rs("id")%>" onmouseover="window.status='Ayrıntılı bilgi için tıklayın' ; return true">
<img src="img/130.gif" alt="Bu kaydı oku" width="16" height="16" border="0" align="middle" /></a>&nbsp;</td>
            <td bgcolor="#F7F7F7" class="style9" width="1%" align="center">
			<a href="xdefault.asp?islem=degistir&amp;id=<%=Rs("id")%>" onmouseover="window.status='Bu kaydı düzenlemek için tıklayın' ; return true">

<img src="img/edit.gif" alt="Bu kaydı düzenle" width="16" height="16" border="0" align="middle" /></a>
</td><%Rs.movenext
next
Rs.Close
%>
            </table></td>
      </tr>
    </table>
    </div>
    </td>
  </tr>

</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="5">
    <tr>
      <td class="style21">Sayfa : 
<%
	for y=1 to sayfa 
	If  y=cint(syf ) Then
	Response.write y
	else

	Response.write "<b><a href='xdefault.asp?islem=gruplar&grup="&grup&"&syf="&y&"'> "&y&" </a></b>"
	End If
	next
%>    </td>
  </tr>
</table>
<center>
  <span class="style26 style111"><%=grup%> kategorisinde <%=adet%> kayıt var</span>
</center>
<span class="style21"><span class="style27"><span class="style26"><br />
</span></span></span><br>
										  <%End Sub%>