Classic ASP Datagrid with Paging

Fary4u

Hi

i've done the Datagrid view but only problem with displaying pages
here is the code for Datagrid

Expand|Select|Wrap|Line Numbers

 
    <%

    Dim I, iPageSize
 
    iPageSize = 9 'Change pages

    Dim arrPhotoNames

    arrPhotoNames = Array("1", "2", "3", "4", _

                      "5", "6", "7", "8", _

                      "9", "10", "11", "12", _

                      "13", "14", "15", "16",_

                      "17", "18", "19", "20", _

                      "21", "22", "23", "24", "25")
 
    %><table border="1" ><tr><%
 
 For I = LBound(arrPhotoNames) To UBound(arrPhotoNames)
 
        %><td align="center"><%

        Response.Write arrPhotoNames(I)

        %></td><%

        ' change this number but next number is less then previouse 

        ' example 5 = 4 or 4 = 3 it's mod function

        If I Mod 3 = 2 Then

                %></tr><tr><%

            End If
 
 Next 'I

    %>

what i would like to do now showing paging for display
1st 9 records on 1st page ( 1,2,3,4,5,6,7,8,9 )
2nd 9 records on 2nd page ( 10,11,12,13,14,15,16,17,18 )
3rd 9 records on 3rd page ( 19,20,21,22,23,24,25 ) & rest

this page will be automatically
important thing with this code is you can change the row & col with MOD Method

how can we show the paging ?
any body knows how to fix this code ?

thanks 4 reply & regards
Fary

Fary4u

any chance how to get around wd ths problme ?

Fary4u

i think so it's not possible am i rite ?

jhardman

it's possible, there's just no built-in way to do it. To show a certain number of records on a page you would need to use "for x = 0 to 8" to loop through the records instead of the common method of "do until objRS.eof", but then you would need to clarify that if the end of the records are reached you need to exit the loop: "if objRS.eof then exit for".

To open a record list in the middle, use the objRS.move() command. For example, I might put a link with something like

Expand|Select|Wrap|Line Numbers

<a href="samepage.asp?page=2">next 9 records</a>

and right before I start reading the records I would put something like this:

Expand|Select|Wrap|Line Numbers

 dim firstRecord

if request(page) <> "" then

   if cint(request(page)) > 1 then

      firstRecord = cint(request(page)) * 9 - 9

      objRS.move(firstRecord)

   end if

end if
 
for x = 0 to 8

   '...

Does this make sense?

Jared

Fary4u

Hi Jared

your 100% rite coz i've done the coding but slightly different way but now only problem with last page & it's giving me error ?

Expand|Select|Wrap|Line Numbers

 
Error Type:

Microsoft VBScript runtime (0x800A0009)

Subscript out of range: '9'

/desktop/asp download/getrow.asp, line ( problem is in this code )

but i find another problem which is very rare ? & makes me confused ?
when it's shows 9 records it's takes 1 extra vaule : (

Expand|Select|Wrap|Line Numbers

 
    iRecFirst   = (iPageCurrent-1)

    iRecLast    = iRecFirst + iPageSize

    iFieldFirst = LBound(arrPhotoNames, 1)

    iFieldLast  = UBound(arrPhotoNames, 1)

does it make any sense ? thanks for you reply.
here is rest of the code.

Expand|Select|Wrap|Line Numbers

  
      arrPhotoNames.PageSize = iPageSize

      arrPhotoNames.CacheSize = iPageSize

      iPageCount = arrPhotoNames.PageCount
 
          If iPageCurrent > iPageCount Then

             iPageCurrent = iPageCount

        end if

        If iPageCurrent < 1 Then

             iPageCurrent = 1

        end if
 
    If iPageCount = 0 Then

        Response.Write "No Records found"

    Else

        arrPhotoNames.AbsolutePage = iPageCurrent
 
        iRecordsShown = 0

    Do While iRecordsShown < iPageSize and not arrPhotoNames.EOF
 
Executed Code ------------------------------------
 
      iRecordsShown = iRecordsShown 
 
    Loop
 
    End if
 
If iPageCurrent > 1 Then

%>

<a HREF="getrow.asp?intCatalogID=<%= Server.URLEncode(strParam) %>&page=<%= iPageCurrent - 1 %>

<%
 
End If

For I2 = 1 To iPageCount

%>
 
<a href="getrow.asp?intCatalogID=<%= Server.URLEncode(strParam) %>&page=<%= I2 %>| <%= I2 %> |</a>

<%

Next 'I2
 
If iPageCurrent < iPageCount Then

%>

<a HREF="getrow.asp?intCatalogID=<%= Server.URLEncode(strParam) %>&page=<%= iPageCurrent + 1 %>
 
<%

End If

%>

Classic ASP Datagrid with Paging

re: Classic ASP Datagrid with Paging

re: Classic ASP Datagrid with Paging

re: Classic ASP Datagrid with Paging

re: Classic ASP Datagrid with Paging

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about