ASP Development
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingASP Development

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old May 11th, 2000, 06:02 AM
Steve Schofield Steve Schofield is offline
Contributing User
ASP Free God 20th Plane (14500 - 14999 posts)
 
Join Date: Dec 2002
Posts: 14,575 Steve Schofield User rank is Corporal (100 - 500 Reputation Level)Steve Schofield User rank is Corporal (100 - 500 Reputation Level)Steve Schofield User rank is Corporal (100 - 500 Reputation Level)Steve Schofield User rank is Corporal (100 - 500 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 22
Can't get code for paging with index server to work

<i><b>Originally posted by : davy (davy@wsep.co.uk)</b></i><br />I'm having trouble getting the following code to work. I can get index server to return results but can't seem to get paging to work with it. <br /><br />------------------------------------------------<br /><br /><!-- #INCLUDE FILE="adovbs.Inc" --><br /><br /><% <br />' Declare variables<br />Dim iPageSize 'How big our pages are<br />Dim strPageCount 'The number of pages we get back from database<br />Dim strPageCurrent 'The page we want to show<br />Dim x 'Standard looping var<br />Dim strSql 'SQL select to limit fields<br />Dim objConn 'The connection object<br />Dim objRS 'The recordset object<br /><br />iPageSize = 10<br /><br />If Request("page") = "" Then<br /> strPageCurrent = 1<br />Else<br /> strPageCurrent = CInt(Request("page"))<br />End If<br /><br />strSQL=" SELECT FileName, vPath, Size, Characterization, DocCreatedTM FROM SCOPE('""/""') WHERE CONTAINS ('" & varQuery & "') >0 ORDER By Rank DESC"<br /><br />'-- open database connection --<br />set objConn = Server.CreateObject("ADODB.Connection")<br />objConn.ConnectionString = "provider=msidxs"<br />objConn.Open<br /><br />set oRS = Server.CreateObject("ADODB.recordset")<br />oRS.open sqlText, objConn, adOpenStatic, adLockReadOnly, adCmdText<br /><br />' Set cursor location and pagesize<br />objRS.CursorLocation = adUseClient<br />objRS.PageSize = iPageSize<br /><br />' Get the count of the pages using the given page size<br />strPageCount = rs.PageCount<br /><br />' If the request page falls outside the range,<br />' give the closest match (1 or max)<br />If 1 > strPageCurrent Then strPageCurrent = 1<br />If strPageCurrent > strPageCount Then strPageCurrent = strPageCount<br /><br />' Move to the selected page<br />objRS.AbsolutePage = strPageCurrent<br /><br />' see if i get anything<br />Response.Write strPageCurrent<br />Response.Write strPageCount<br /><br />' rest of code for output<br />' blah blah<br />%><br /><br />------------------------------------------------<br />

Reply With Quote
  #2  
Old May 12th, 2000, 09:34 AM
Steve Schofield Steve Schofield is offline
Contributing User
ASP Free God 20th Plane (14500 - 14999 posts)
 
Join Date: Dec 2002
Posts: 14,575 Steve Schofield User rank is Corporal (100 - 500 Reputation Level)Steve Schofield User rank is Corporal (100 - 500 Reputation Level)Steve Schofield User rank is Corporal (100 - 500 Reputation Level)Steve Schofield User rank is Corporal (100 - 500 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 22
<i><b>Originally posted by : steve</b></i><br />http://aspfree.com/asp/startpage.asp?id=49<br /><br /><br />------------<br />davy at 5/11/2000 4:02:07 AM<br /><br />I'm having trouble getting the following code to work. I can get index server to return results but can't seem to get paging to work with it. <br /><br />------------------------------------------------<br /><br /><!-- #INCLUDE FILE="adovbs.Inc" --><br /><br /><% <br />' Declare variables<br />Dim iPageSize 'How big our pages are<br />Dim strPageCount 'The number of pages we get back from database<br />Dim strPageCurrent 'The page we want to show<br />Dim x 'Standard looping var<br />Dim strSql 'SQL select to limit fields<br />Dim objConn 'The connection object<br />Dim objRS 'The recordset object<br /><br />iPageSize = 10<br /><br />If Request("page") = "" Then<br /> strPageCurrent = 1<br />Else<br /> strPageCurrent = CInt(Request("page"))<br />End If<br /><br />strSQL=" SELECT FileName, vPath, Size, Characterization, DocCreatedTM FROM SCOPE('""/""') WHERE CONTAINS ('" & varQuery & "') >0 ORDER By Rank DESC"<br /><br />'-- open database connection --<br />set objConn = Server.CreateObject("ADODB.Connection")<br />objConn.ConnectionString = "provider=msidxs"<br />objConn.Open<br /><br />set oRS = Server.CreateObject("ADODB.recordset")<br />oRS.open sqlText, objConn, adOpenStatic, adLockReadOnly, adCmdText<br /><br />' Set cursor location and pagesize<br />objRS.CursorLocation = adUseClient<br />objRS.PageSize = iPageSize<br /><br />' Get the count of the pages using the given page size<br />strPageCount = rs.PageCount<br /><br />' If the request page falls outside the range,<br />' give the closest match (1 or max)<br />If 1 > strPageCurrent Then strPageCurrent = 1<br />If strPageCurrent > strPageCount Then strPageCurrent = strPageCount<br /><br />' Move to the selected page<br />objRS.AbsolutePage = strPageCurrent<br /><br />' see if i get anything<br />Response.Write strPageCurrent<br />Response.Write strPageCount<br /><br />' rest of code for output<br />' blah blah<br />%><br /><br />------------------------------------------------<br />

Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingASP Development > Can't get code for paging with index server to work


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


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

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 2 hosted by Hostway