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

    <%
    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

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

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

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 ?

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 : (

    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.

 
      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
%>