Paging through recordset

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Paging through recordset

Logged in as: Guest

arrSession:exec spGetSession 2,2,2461

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Paging through recordset
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Paging through recordset - 3/24/2005 2:40:27 AM

zahid_a

Posts: 14
Score: 0
Joined: 2/16/2005
From: Canada
Status: offline

Posted - 03/23/2005 : 11:49:12 AM
--------------------------------------------------------------------------------

hi...
i have this script and its giving me problems when i try to page through the database. i cant figure out; as to why its not passing the parameter onto the next page when i click on NEXT...
when i click on NEXT it displays the complete database; as if not reading the parameter provided (if its being provided)...but it gives correct results on the first page....any help will be much appreciated....

thanks a lot.. and here is my code...

<% OPTION EXPLICIT %>



<html>
<head>
<title> AUTHOR SEARCH </title>
</head>
<body>

<%

Dim objRS, AUTHOR, nPage, nPageCount, strSQL

AUTHOR = Request.Form("AUTHOR")
AUTHOR = Replace(AUTHOR, "'", "''")

strSQL = "SELECT CallNumber, Author, Title, Series, Edition, Publisher, Date, ISBN, Description, Subject, Notes FROM nova WHERE Author LIKE '%" & AUTHOR & "%' ORDER BY Author"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = 10
objRS.CacheSize = 10
objRS.CursorLocation = adUseClient
objRS.Open strSQL, Conn, adOpenStatic

If objRS.EOF Then
Response.Write "No Results Found"
Else

nPageCount = objRS.PageCount
Response.Write "There are: " & "" & nPageCount & "" & " pages." & " "
Response.Write "" & objRS.RecordCount & "" & " records found."
Response.Write " " & "<hr>"

nPage = CLng(Request.QueryString("Page"))

If nPage < 1 OR nPage > nPageCount Then
nPage = 1
Else
End If

objRS.AbsolutePage = nPage

Do While Not (objRS.EOF OR objRS.AbsolutePage <>nPage)

Response.Write "" & "Call Number: " & "" & objRS("CallNumber") & " "

Response.Write "" & "Author: " & "" & objRS("Author") & " "

Response.Write "" & "Title: " & "" & objRS("Title") & " "

Response.Write "" & "Series: " & "" & objRS("Series") & " "

Response.Write "" & "Edition: " & "" & objRS("Edition") & " "

Response.Write "" & "Publisher: " & "" & objRS("Publisher") & " "

Response.Write "" & "Date: " & "" & objRS("Date") & " "

Response.Write "" & "ISBN: " & "" & objRS("ISBN") & " "

Response.Write "" & "Description: " & "" & objRS("Description") & " "

Response.Write "" & "Subject: " & "" & objRS("Subject") & " "

Response.Write "" & "Notes: " & "" & objRS("Notes") & " "

Response.Write "<hr>"
objRS.MoveNext
Loop

Response.Write "<div align=""center"">" & vbcrlf

' First page
If objRS.PageCount = 1 Then
Response.Write "First Page"
Response.Write " | "
Else
Response.Write "<A HREF=""authorcode.asp?AUTHOR=" & AUTHOR & "&Page=1"">First Page</A> "
Response.Write " | "
End If

' Previous page:
If objRS.PageCount = 1 OR nPage = 1 Then
Response.Write "Previous Page"
Response.Write " | "
Else
Response.Write "<A HREF=""authorcode.asp?AUTHOR=" & AUTHOR & "&Page=" & nPage - 1 & """>Previous Page</A> "
Response.Write " | "
End If

' Next page
If objRS.PageCount = 1 OR nPage = nPageCount Then
Response.Write "Next Page"
Response.Write " | "
Else
Response.Write "<A HREF=""authorcode.asp?AUTHOR=" & AUTHOR & "&Page=" & nPage + 1 &""">Next Page</A> "
Response.Write " | "
End If

' Last page
If objRS.PageCount = 1 Then
Response.Write "Last Page"
Response.Write " | "
Else
Response.Write "<A HREF=""authorcode.asp?AUTHOR=" & AUTHOR & "&Page=" & nPageCount & """>Last Page</A> "
Response.Write " | "
Response.Write "</div>"
End If

End If

objRS.Close
Set objRS = Nothing

%>

</body>
</html>

_____________________________

zahid