sayfalama sorunu.

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Sayfalama Sorunu.

Merhaba.
Söyle bir sorunla karsilastim.
http://localhost/siirsel/gondermis.asp?id=219
id ile gittigim sayfada verileri aliyorum ancak bir turlu sayfalama yapamadim.
Kullandigim kodlar asagida.
Sorunun nerede oldugunu cozemedim. Yardim ederseniz sevinirim.

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ss.mdb"))
set rs = server.createobject("adodb.recordset")
%>

<SCRIPT language=JavaScript
src="popup/jscripts.js"
type=text/javascript></SCRIPT>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY background="popup/bg-1.gif"
bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE border=0 cellPadding=0 cellSpacing=0 height="138" width="298">
<TBODY>
<TR vAlign=top>
    <TD background="popup/popbg0.gif" colSpan=2
    height=32 width="401">
     </TD></TR>
<TR>
    <TD background="popup/popbg1.gif"
    vAlign=top width=27 height="106">
    <br>
    <IMG height=370
      src="popup/pop1.gif" width=27></TD>
    <TD vAlign=top width="374" height="106">
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="98%">
        <TBODY>
        <tr>
          <td valign="top">
          <%
id = request.querystring("id")
ksql = "select * from sair where sairid= "& id
rs.open ksql, conn, 1, 3
shf    = Request.QueryString("shf")
If shf = "" then
shf    = 1
END IF

rs.pagesize = 5      'Burada bir sayfada kac tane olması gerektiğini yazacaksın
rs.absolutepage = shf
sayfala = rs.pagecount
for d=1 to rs.pagesize
if rs.eof then exit for

           %>

                 <table width="313" border="0" height="1" align="left">

              <tr>
               <td height="10" width="310" colspan="2"><b>

               <p align="left"><span style="font-family: verdana; font-size: 11px"><font color="#FF0000"><%=rs("sair")%> </font></span></b><span style="font-family: verdana; font-size: 11px">Adli Kullanicimiz Gönderdigi
               Siirlerin Listesi.</td>
              </tr>

              <tr>
               <td height="1" width="272" bgcolor="#A1CEFA">

               <p align="left">
               <span style="font-family: verdana; font-size: 11px; ">Siir Adi</span></td>
               <td height="1" width="38" bgcolor="#95AAF2">
               <p align="right">
               <span style="font-family: verdana; font-size: 11px; ">
               Hit</span></td>
              </tr>
              <tr>
               <%

set ksql = nothing
rs.close
sql = "select * from siir where sairid= "& id

               %>


              </tr>

                            <%
tur = request.querystring("tur")
if request("tur") = 2 then
rssql = "select * from siir where sairid= "& id &" order by siirname desc"
elseif request("tur") = 1 or request("tur") = "" then
rssql = "select * from siir where sairid= "& id &" order by siirname asc"
elseif request("tur") = 3 then
rssql = "select * from siir where sairid= "& id &" order by hit asc"
elseif request("tur") = 4 then
rssql = "select * from siir where sairid= "& id &" order by hit desc"
end if
rs.open rssql, conn, 1, 3
do while not rs.eof

              %>

              <tr>

               <span style="font-family: verdana; font-size: 11px; font-weight:700">

               <font color="#FFFFFF">
               </font>
               </td>
               </span>
               <span style="font-family: verdana; font-size: 11px; ">
               <td align="center" height="1" width="189" colspan="2">
               <p align="left">
<table width="313" border="0" cellspacing="0" cellpadding="0" onmouseout="this.style.backgroundColor='#E5EFF9'"
          onmouseover="this.style.backgroundColor='#A1CEFA'" style="border-collapse: collapse" bordercolor="#E5EFF9">
        <tr>
               <TD bgColor=#FFFFFF height=1 width="274">
               <IMG border=0 height=1
                  src="../images/trans.gif" width=210></TD>
                             </tr>
        <tr>
          <td width="274" height="0" align="left">
          <p align="left"><span style="font-family: verdana; font-size: 11px"><b>
          </font></b><font color="#000000" face="Verdana" style="font-size: 9pt"><b><a style="text-decoration: none">
          </a></b></font><%=i%> <a href="popup2.asp?id=<%=rs("id")%>">
          <font color="#000000"><span style="font-family: verdana; font-size: 11px"><%=rs("siirname")%><td align="right" width="39" bgcolor="#95AAF2"><span style="font-family: verdana; font-size: 11px"><%=rs("hit")%></td>
</table>

            <%
rs.movenext
loop
next
rs.close
              %>


            </table>
            <tr>
<td >
<p align="center">
<font color="#336699" style="font-size: 8pt" face="Arial">
Sayfa No : <%
for y=1 to sayfala
if shf=y then
response.write "[ "&y&" ]"
else
response.write " <a href=""gondermis.asp?shf="&y&""">["&y&"]</a>"
end if
Next
%></font></td>

</tr>

Hosting Sponsorumuz - Noktahost internet hizmetleri