Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > ASP General > help: loop within a loop -how to display data in 3 columns by 4 rows format

Thread Tools

help: loop within a loop -how to display data in 3 columns by 4 rows format

Posts: n/a
Well I got the data to display the way I wanted using the example provided
in the following links. Now I am stuck with another dilema. I am trying to
implement paging within my example and it does not seem to page thru. I have
used two independent examples (1 for paging, the other for displaying data)
and they both seem to work fine. When I combine them, it only processes the
first 9 records and paging does not seem to work. Any input on where the
code is broken would be greatly appreciated. The following is a working
example, using the pubs database in SQL Server.

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=wbsql", "sa", "golf"

set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 ' adUseClient
rs.Open "Select * from pubs..authors", conn
intPageCount = rs.PageCount
rs.PageSize = 9

Select Case Request("Action")
case "<<"
intpage = 1
case "<"
intpage = Request("intpage")-1
if intpage < 1 then intpage = 1
case ">"
intpage = Request("intpage")+1
if intpage > intPageCount then intpage = IntPageCount
Case ">>"
intpage = intPageCount
case else
intpage = 1
end select
<table border="2" align=center>
numCols = 3
intPage = rs.AbsolutePage
rsPageSize = rs.PageSize
i = 0

Do while i < rsPageSize
needFooter = true

if i mod numCols = 0 then
response.write "<tr>"
end if

response.write "<td align=center>"
response.Write "<P>" & rs(0) & "</P>"
response.Write "<P>" & rs(1) & "</P>"
response.Write "<P>" & rs(2) & "</P>"

response.write "</td>"

if i mod numCols = numCols - 1 then
response.write "</tr>"
needFooter = false
end if
i = i + 1

if needFooter then
response.write "<td colspan=" &_
numCols - (i mod numCols) &_
"> </td></tr>"
end if
response.write "</table>"

set rs = Nothing
set conn = nothing

<form name="MovePage" action="test1.asp" method="post" ID="Form1">
<input type="hidden" name="intpage" value="<%=intpage%>" ID="Hidden1">
<input type="submit" name="action" value="<<" ID="Submit1">
<input type="submit" name="action" value="<" ID="Submit2">
<input type="submit" name="action" value=">" ID="Submit3">
<input type="submit" name="action" value=">>" ID="Submit4">
Page: <%=Intpage & " of " & intpagecount%>

Best Regards,


"ljb" <.> wrote in message news:(E-Mail Removed)...
> Even though Addi didn't specifically ask I'll mention a slight

> to the code here.
> "Ray at <%=sLocation%>" <myFirstNameATlane34dotKOMM> wrote in message
> news:%(E-Mail Removed)...
> > Take a look at the samples here.
> >
> > Ray at home
> >

> I like to see my tables present data ordered such that columns are read

> top down rather than rows across. To do that almost always requires an

> (unless you use XML and XSLT) that can be accessed by index. In the second
> example with a recordset that can be accomplished by creating an array

> ADO's getrows method. The key is to predetermine how many columns are
> desired and how many rows of data are provided. If you want 5 columns go

> every rows mod 5 array index and so on.

Reply With Quote

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
display 3 columns of 50 rows in stead of 1 column per row inGridview/Repeater/Listview/Datalist ethem ASP .Net 1 03-02-2011 04:23 AM
Howto display an datagrid rows as columns and vice versa? Jimmy ASP .Net Datagrid Control 2 06-16-2005 02:22 PM
Howto display an datagrid rows as columns and vice versa? Jimmy ASP .Net 1 06-14-2005 03:30 PM
convert rows to columns and columns to rows helpful sql ASP .Net 0 05-19-2005 06:03 PM
how to display datatable columns as rows in datagrid? Bob ASP .Net 3 08-01-2004 06:04 PM