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.CreateOb ject("ADODB.Con nection")
conn.Open "DSN=wbsql" , "sa", "golf"
set rs = Server.CreateOb ject("ADODB.Rec ordset")
rs.CursorLocati on = 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("intpag e")-1
if intpage < 1 then intpage = 1
case ">"
intpage = Request("intpag e")+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
rs.MoveNext
Loop
if needFooter then
response.write "<td colspan=" &_
numCols - (i mod numCols) &_
"> </td></tr>"
end if
response.write "</table>"
rs.Close
set rs = Nothing
conn.Close
set conn = nothing
%>
</table>
<%
%>
<form name="MovePage" action="test1.a sp" method="post" ID="Form1">
<input type="hidden" name="intpage" value="<%=intpa ge%>" 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%>
</form>
</BODY>
</HTML>
Best Regards,
Addi
"ljb" <.> wrote in message news:eO******** ******@tk2msftn gp13.phx.gbl...
Even though Addi didn't specifically ask I'll mention a slight
"enhancemen t" to the code here.
"Ray at <%=sLocation% >" <myFirstNameATl ane34dotKOMM> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. .. Take a look at the samples here. http://www.aspfaq.com/show.asp?id=2247
Ray at home
I like to see my tables present data ordered such that columns are read
from top down rather than rows across. To do that almost always requires an
array (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
with 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
to every rows mod 5 array index and so on.
LJB
