Code Bank
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free Forums > Programming > Code Bank
Reload this Page

Error:help

Discuss Error:help in the Code Bank forum on ASP Free.
Error:help Code Bank forum containing sample code and scripts to help solve common problems. Take a look and use the code to assist in your projects.

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
« Previous Thread | Next Thread »  
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old October 18th, 2004, 03:41 AM
Deathknight Deathknight is offline
Registered User
ASP Free Newbie (0 - 499 posts)
  
Join Date: Oct 2004
Location: Slovenia
Posts: 7 Deathknight User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Error:help
An error occuried when i try to write some data about authors:

ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

i execute a stored procedure....

query = "EXECUTE TopicsAuthors @lngLoggedID = " & 100
this sp return author, threadid, topicid and subject

i use rs like this
dim rsForum
set rsForum = Server.CreateObject("ADODB.Recordset")
rsForum.CursorType = 2
rsForum.Open query,conn

conn is ok, sp also, but something is wrong in my code.....can anybody help?
Reply With Quote
  #2  
Old October 18th, 2004, 04:17 AM
selwonk's Avatar
selwonk selwonk is offline
Contributing User
ASP Free Frequenter (2500 - 2999 posts)
  
Join Date: Jun 2004
Posts: 2,942 selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level)selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level)selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level)selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level)selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level)selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level)selwonk User rank is Second Lieutenant (5000 - 10000 Reputation Level) 
Time spent in forums: 6 Days 9 h 49 m 28 sec
Reputation Power: 62
Post your code
__________________
selwonk

If I've posted some code above, you might think it looks a bit simplistic. It might be. I'd rather people tried the next step themselves rather than getting a full solution on a plate. That way they learn more!
Reply With Quote
  #3  
Old October 18th, 2004, 04:23 AM
Deathknight Deathknight is offline
Registered User
ASP Free Newbie (0 - 499 posts)
  
Join Date: Oct 2004
Location: Slovenia
Posts: 7 Deathknight User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
strSQL = "EXECUTE " & strDbProc & "ForumListTopics @lngForumID = " & intForumID
dim rsTopics
set rsTopics = Server.CreateObject("ADODB.Recordset") set rsTopics = adoCon.Execute(strSQL) rsTopics.PageSize = intTopicPerPage rsTopics.EOF Then
Response.Write vbCrLf & "" & strTxtNoTopicsToDisplay & " " & strShowTopicsFrom & ""
Else rsTopics.AbsolutePage = intRecordPositionPageNum

If rsTopics.EOF AND intRecordPositionPageNum > 1 Then rsTopics.AbsolutePage = 1 intTotalNumOfPages = rsTopics.PageCount file.WriteLine("Number of pages: " &intTotalNumOfPages)

For intRecordLoopCounter = 1 to intTopicPerPage
If rsTopics.EOF Then lngTopicID = CLng(rsTopics("Topic_ID"))

lngPollID = CLng(rsTopics("Poll_ID"))

intMovedForumID = CInt(rsTopics("Moved_ID"))

lngNumberOfViews = CLng(rsTopics("No_of_views"))

strSubject = rsTopics("Subject") blnTopicLocked = CBool(rsTopics("Locked")) intPriority = CInt(rsTopics("Priority"))
If intPriority <= 1 Then intNonPriorityTopicNum = intNonPriorityTopicNum + 1
else intNonPriorityTopicNum = 1 Then Response.Write vbCrLf & "" & strTxtForum & " " & strTxtTopics & ""

If intRecordLoopCounter = 1 AND intPriority => 2 Then Response.Write vbCrLf & "" & strTxtImportantTopics & ""
strTopicStartUsername = rsTopics("Username")

strFirstPostMsg = Mid(rsTopics("Message"), 1, 275) lngTopicStartUserID =
CLng(rsTopics("Author_ID"))

lngNumberOfReplies = CLng((rsTopics.RecordCount) - 1)

dtmFirstEntryDate = CDate(rsTopics("Message_date"))

lngLastEntryMessageID = CLng(rsTopics("Thread_ID"))

dtmLastEntryDate = CDate(rsTopics("Message_date"))

rsTopics.MoveNext()
do until (Clng(rsTopics("Topic_ID")) = lngTopicID) strLastEntryUsername = rsTopics("Username") lngLastEntryUserID = CLng(rsTopics("Author_ID")) rsTopics.MoveNext()
loop

sorry...code is not so good.....i'm newbie....
Reply With Quote
Reply

Viewing: ASP Free Forums > Programming > Code Bank > Error:help

« Previous Thread | Next Thread »

Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Linear Mode Linear Mode
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 6 hosted by Hostway.