nitro adlı üyeden alıntı: mesajı görüntüle

Eyv. hocam saolun valla ne özürü, olur böyle şeyler sıcak hava
Tmm oldu. Tek sorun sayfalama üste çıkıyor alıcam şimdi alta
Kolay gelsin.
Hocam :S ben bu sayfalama sayılarını en alta nasıl alabilirmm:S

<% 

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection") 
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("deneme.mdb") 

%> 

<% 
Set ObjRs=Server.CreateObject("adodb.recordset") 
strSQL="Select * From musteri id order by id desc" 
ObjRs.Open StrSql, ObjCon_ilet, 1, 3 
%>

 <div align="center"> 
   <center> 
    
<table width="713" border="0"> 
  <tr> 
    <td width="20">&nbsp;</td> 
    <td width="201"><div align="center"><font color="#333333" size="2" face="Tahoma">Adı Soyadı </font></div></td> 
    <td width="223"><div align="center"><font color="#333333" size="2" face="Tahoma">Firma Bilgileri </font></div></td> 
    <td width="177"><div align="center"><font color="#333333" size="2" face="Tahoma">Email Adresi </font></div></td> 
    <td width="42"><div align="center"><font color="#333333" size="2" face="Tahoma">Detay</font></div></td> 
    <td width="24"><div align="center"><font color="#333333" size="2" face="Tahoma">Sil</font></div></td> 
    </tr> 

  <div align="center"> 
<tr> 
  <td>   
  <font face="Tahoma" size="2" color="#FFFFFF"> 
<br>

<%
If ObjRs.eof or ObjRs.bof then 
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı musteri yok.</br></center></b></font>" 
Response.end 
end if 
sayfa = Request.QueryString("sayfa" ) 
If sayfa="" Then sayfa=1 
ObjRs.pagesize = 2 
ObjRs.absolutepage = sayfa 
sayfa_sayisi = ObjRs.pagecount 
for i=1 to ObjRs.pagesize 
if ObjRs.eof then 
exit for 
end if 
%> 
  <tr> 
    <td width="20" style="border: 1px dotted #C0C0C0"><div align="center"><img src="img/uye.gif" /></div></td> 
    <td width="201" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("adi")%>&nbsp;<%=ObjRs("soyadi")%></font></div></td> 
    <td width="223" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("firma")%></font></div></td> 
    <td width="177" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("email")%></font></div></td> 
    <td width="42" style="border: 1px dotted #C0C0C0"><div align="center"> 
      <p align="center"><font size="2" face="Tahoma"><a href="musteri_detay.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/detay.gif" /></a></font></p> 
    </div></td> 
    <td width="24" style="border: 1px dotted #C0C0C0"><div align="center"> 
      <p align="center"><font size="2" face="Tahoma"><a href="musteri_sil.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/sil.gif" /></a></font></p> 
    </div>
    
    </td> 
    </tr> 
<%
ObjRs.movenext
next
%>
</div>                       
<tr> 
  <td>
 
  </td> 
<tr> 
  <td>  </tr> 

</table> 
<%
response.Write "Sayfa: " 
for g = 1 to sayfa_sayisi 
if g = cint(sayfa ) then 
response.write g& " " %><% else 
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> " 
end if 
next
ObjRs.Close:ObjCon_ilet.close 
%> 


<br /> 
<a href="banka_ekle.asp"></a><br /> 
<div align="right"><br /> 
</div> 
<div align="right"></div> 
<div align="center"><br /> 
</div>