Classic ASP Discussion - asp _scrolling the the data from the DB?

Print Page | Close Window

asp _scrolling the the data from the DB?

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=6139
Printed Date: 31 March 2026 at 11:31pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: asp _scrolling the the data from the DB?

Posted By: msm_eg
Subject: asp _scrolling the the data from the DB?
Date Posted: 03 October 2003 at 9:36am

how i can scroll the data that r coming from the db and make it come in many pages like this 1|2|3|4|5

i know already how to make it scrool the data like Next>> and previose<<<

but i need to know how i can scroll it like No

-------------
i make what i want useing what i know

Replies:

Posted By: yessir
Date Posted: 03 October 2003 at 11:22am

This is a combo of both...

It displays both numbers AND Next Prev, I hope this is what you are looking for!

' Display page numbers
If totalRecs > 0 Then
rsEof = (totalRecs < (startRec + displayRecs))
' Find out if there should be Backward or Forward Buttons on the table.
If startRec = 1 Then
  isPrev = False
Else
  isPrev = True
  PrevStart = startRec - displayRecs
  If PrevStart < 1 Then PrevStart = 1 %>
<a href="tbl_CTS_informationlist.asp?start=<%=PrevStart%> "><font face="Tahoma" size="1"><b>Prev</b></font></a>
<%
End If
If (isPrev OR (NOT rsEof)) Then
  x = 1
  y = 1
  dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1
  dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1
  If (dx1+displayRecs*recRange-1) > totalRecs Then
   dx2 = (totalRecs\displayRecs)*displayRecs+1
   dy2 = (totalRecs\displayRecs)+1
  Else
   dx2 = dx1+displayRecs*recRange-1
   dy2 = dy1+recRange-1
  End If
  While x <= totalRecs
   If x >= dx1 AND x <= dx2 Then
    If CLng(startRec) = CLng(x) Then %>
<font face="Tahoma" size="-1"><b><%=y%></b></font>
    <% Else %>
<a href="tbl_CTS_informationlist.asp?start=<%=x%>">< ;font face="Tahoma" size="1"><b><%=y%></b></font>< /A>
    <% End If
    x = x + displayRecs
    y = y + 1
   ElseIf x >= (dx1-displayRecs*recRange) AND x <= (dx2+displayRecs*recRange) Then
    If x+recRange*displayRecs < totalRecs Then %>
<a href="tbl_CTS_informationlist.asp?start=<%=x%>">< ;font face="Tahoma" size="1"><b><%=y%>-<%=y+recRange-1%>< ;/b></font></a>
    <% Else
     ny=(totalRecs-1)\displayRecs+1
      If ny = y Then %>
<a href="tbl_CTS_informationlist.asp?start=<%=x%>">< ;font face="Tahoma" size="1"><b><%=y%></b></font>< /a>
      <% Else %>
<a href="tbl_CTS_informationlist.asp?start=<%=x%>">< ;font face="Tahoma" size="1"><b><%=y%>-<%=ny%></b>< ;/font></a>
      <% End If
    End If
    x=x+recRange*displayRecs
    y=y+recRange
   Else
    x=x+recRange*displayRecs
    y=y+recRange
   End If
  Wend
End If
' Next link
If NOT rsEof Then
  NextStart = startRec + displayRecs
  isMore = True %>
<a href="tbl_CTS_informationlist.asp?start=<%=NextStart%> "><font face="Tahoma" size="1"><b>Next</b></font></a>
<% Else
  isMore = False
End If %>
<br>
<% If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs
stopRec = startRec + displayRecs - 1
recCount = totalRecs - 1
If rsEOF Then recCount = totalRecs
If stopRec > recCount Then stopRec = recCount %>
<font face="Tahoma" size="1"> Records <%= startRec %> to <%= stopRec %> of <%= totalRecs %></font>
<% Else %>
<font face="Tahoma" size="1">No records found</font>
<% End If %>

Posted By: msm_eg
Date Posted: 03 October 2003 at 6:30pm

ttttttthhhhank u sir i will try it and i will tell u :) thank u sir again

-------------
i make what i want useing what i know

Posted By: msm_eg
Date Posted: 22 January 2004 at 11:38am

hello i tried to fix the code with my code

what i must to do to make it read my Recordset

and calculate the resulte???

here is my code that i get the data in it to prepare the admin to update the data or delet it

and if ther i get the data i put it in a table

so what if there is 1000 itemes and i dont want all of that come in 1 page

here is

*****************

<%@ Language = "VBScript" %>

<%
response.buffer = true

'** Getting the data from the db and order the data by Id des to get the new at first.

sql ="select * from Lesson_cat ORDER BY id desc"

'**Makeing a Record Set to get the Data in it and make it Execute

set rs=conn.execute(sql)

'** Now we are making a Var Id from the data has come from the db and Select statment cuz we will use the Id in the
'** it here to make it go with the form

id = rs( "id" )

'** Now we will make the cases when we want to get Data
'* the first case when we dont have any data in the Db.!!

if (rs.bof and rs.eof) then

'**here is the resulte when the rs cannt find any data to view it ..

Response.Write("<br><br><center> <font face=""verdana"" size=""2"" color=""red"">Sorry , There is no Category to be able to update it.!!<br><br><a href=""addcat.asp"">add category</a>")

'** and now Here we go with the other case when we find a data to view...
else
rs.movefirst

'**Now we will draw a table and put the data in it .!!

</table>
<%
rs.movenext
loop

</body>
</html>
<%
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>

-------------
i make what i want useing what i know

Posted By: yessir
Date Posted: 22 January 2004 at 12:33pm

put this at the top:

< %
displayRecs = 10
recRange = 10
% >