What Do I Change?

myself · July 31st, 2006, 04:07 PM

Hello,
I am currently getting only 1 row of data showing. What do I need to change in the following so I can have more than 1 row?

Code:

<%
Const NumPerPage = 1

Dim CurPage, myCon, myRS, strSQL
If Request.QueryString("CurPage") = "" then
CurPage = 1
Else
CurPage = Request.QueryString("CurPage")
End If

connection here...

Set myRS = Server.CreateObject("ADODB.Recordset")

myRS.CursorLocation = adUseClient

myRS.CacheSize = NumPerPage

strSQL = "SELECT * FROM tbl_bro"
myRS.Open strSQL, myCon

myRS.MoveFirst
myRS.PageSize = NumPerPage

Dim TotalPages
TotalPages = myRS.PageCount

myRS.AbsolutePage = CurPage

Dim count
%>

Hope to hear...TIA.
(Why is there NOT MUCH activity on the WROX website?)

dparsons · July 31st, 2006, 04:40 PM

How many rows does your SQL statement return in the database?

Where are the adUseClient, NumPerPage, and CurPage variables set to?

"The one language all programmers understand is profanity."

myself · August 1st, 2006, 04:01 PM

Here's the lot:

Code:

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<%
Const NumPerPage = 1

Dim CurPage, myCon, myRS, strSQL
If Request.QueryString("CurPage") = "" then
CurPage = 1 'We're on the first page
Else
CurPage = Request.QueryString("CurPage")
End If

Set myCon = Server.CreateObject("ADODB.Connection")
myCon.Open "DBQ=T:\WEBSITE\MiddlePath\access\Mat.mdb; Driver={Microsoft Access Driver (*.mdb)};"

Set myRS = Server.CreateObject("ADODB.Recordset")

myRS.CursorLocation = adUseClient

myRS.CacheSize = NumPerPage

strSQL = "SELECT * FROM tbl_brother"
myRS.Open strSQL, myCon

myRS.MoveFirst
myRS.PageSize = NumPerPage

Dim TotalPages
TotalPages = myRS.PageCount

myRS.AbsolutePage = CurPage

Dim count
%>

<HTML>
<BODY>

<table border="1">
 <tr>
    <th width="20%" scope="col">ORIGIN</th>
    <th width="20%" scope="col">NATIONALITY</th>
  </tr><tr>
<%
Count = 0
Do While Not myRS.EOF And Count < myRS.PageSize
Response.Write "</TD><TD>" & myRS("BrOrigin") & "</TD>" &_
           "<TD>" & myRS("BrNational") & "</TD><TD>" & myRS("BrTown") & "</TD>"
Count = Count + 1
myRS.MoveNext
Loop

Response.Write("Page " & CurPage & " of " & TotalPages & "<P>")
%>
</tr></table>
<%
'Display Next / Prev buttons
if CurPage > 1 then
Response.Write("<INPUT TYPE=BUTTON VALUE=PREV ONCLICK=""document.location.href='try2.asp?curpage=" & curpage - 1 & "';"">")
End If

if CInt(CurPage) <> CInt(TotalPages) then
Response.Write("<INPUT TYPE=BUTTON VALUE=NEXT ONCLICK=""document.location.href='try2.asp?curpage=" & curpage + 1 & "';"">")
End If

%>
</BODY>
</HTML>

This shpw only 1 ROW at a time. I would like it to show at least 5 ROWS. What do I need to change? :)