Asp Sayfalama Hakkında

Arkadaşlar Ragıp ÜNAL Hocamınızın yardımları ile sayfalama hakkında büyük yardım aldım çok teşekkür ederim kendilerine yalnız şöyle bir durum söz konusu 2. sayfaya geçtiğinde sayfa boş kodlar aşağıda ben buna ek olarak  <form action="?SNO=<%=Request.QueryString("SNO")%>" method="post">    bunu ekledim ama gene olmadı yardımcı olabilirmisiniz. ?

 <form action="" method="post"> 

<select size="1" name="kull" style="font-family: Calibri; font-size: 10pt; font-weight: bold">

<option value="Boş"></option>

<option>Elektrik İşletme</option>

<option>Kazan İşletme</option>

<option>Türbin İşletme</option>

<option>Su Hazırlama</option>

<option>A4</option>

<option>F5</option>

<option>BGA İşletme</option>

<option>Dış Tesisler İşletme</option>

</select>

<input type="submit" value="Gönder" />

</form>

<%

intPage = Request.QueryString("SNO")

If intPage = "" OR not IsNumeric(intPage) Then

    intPage = Int(1)

Else

    intPage = Int(intPage)

End If

%>

<table width="100%" colspan="2" cellspacing="5" cellpadding="5">

<tr>

<td aligin="left" bgcolor="#404040" width="20%" height="35"><font face="arial" size="2" color="#FFFFFF"><b>SERVİS</b></font></td>

<td aligin="left" bgcolor="#404040" width="76%" height="35"><font face="arial" size="2" color="#FFFFFF"><b>ARIZA</b></font></td>

</tr>

 

<%

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

Baglanti.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/db.mdb")

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

 

 

strKull=Request.Form("kull")

Set objRs = Baglanti.Execute("SELECT COUNT(*) AS records FROM dal WHERE web = '" & strKull & "';")

intRecords = Trim(objRs("records"))

objRs.Close

Set objRs = Nothing

 

intPageSize = 50 'bir sayfada gösterilecek miktar.

intStart = intPage*intPageSize

intStart = intStart-intPageSize

intPages = intRecords/intPageSize + 1

 

Set Rs=Server.CreateObject("ADODB.RecordSet")

Rs.Open"SELECT * FROM dal WHERE web = '" & strKull & "' order by id desc ", Baglanti, 1, 3

IF Rs.EOF OR Rs.BOF THEN

'Eğer Kayıt yoksa hata mesajı yazabiliRsin

ELSE

FOR i = 1 TO intPageSize

IF Rs.EOF THEN EXIT FOR

%>

 

<tr>

<td aligin="left" bgcolor="#FFFFFF" width="20%" height="35"><font face="arial" size="2" color="#000000"><%=strKull%> </font></td>

<td aligin="left" bgcolor="#FFFFFF" width="76%" height="35"><font face="arial" size="2" color="#000000"><%=RS("NOT")%></font></td>

</tr>

 

 

<%

Rs.MoveNext

Next

Response.Write "Sayfalar : " & VBCrlf

For P = 1 To intPages

    If P = intPage Then

Response.Write P & "&nbsp;"

ELSE

Response.Write "<a href=""sayfaadresi.asp?SNO=" & P & """>" & P & "</a>" & VBCrlf

END IF

NEXT

Rs.Close

End If

%>

</table>