| Author |
 Topic  |
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
 Posted - 14 November 2003 : 12:28:36
|
Following up on this topic with the same problem.
Downloaded the latest revision: contentdisplay34.zip
Implimented Fix as per Bookie: strMemberPrefix in content.asp
per the readme.txt, built display.asp:
<!--#INCLUDE FILE="forum/config.asp"-->
<!--#INCLUDE FILE="forum/inc_func_secure.asp" -->
<!--#INCLUDE FILE="forum/inc_sha256.asp"-->
<!--#INCLUDE FILE="forum/inc_header.asp" -->
<!--#INCLUDE FILE="forum/inc_func_member.asp" -->
<!--#INCLUDE FILE="forum/inc_moderation.asp" -->
<!--#INCLUDE FILE="forum/inc_subscription.asp" -->
<!--#INCLUDE FILE="forum/content.asp" -->
<!--#INCLUDE FILE="forum/inc_contentdisplay.asp" -->
<%
DisplayContent 1, 10, 1, 4, 6, 5, 200, 0, 5, 1, 2, 0, "Top News Stories", 450, "forum/topic.asp"
%>
<!--#INCLUDE FILE="forum/inc_footer.asp" -->
I've installed the dbs_files.asp for the Avatar and MsgIcons MOD's as per homeacademy.
I've done this as per Davio on this thread.:
Comment out line 124:
'rs.cachesize = 20
So, to recap, we're getting the error:ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/forum/content.asp, line 125
Code Snipet before and after 125 (marked in green):set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize = 20
rs.open strSql, my_Conn, 3, adLockReadOnly, adCmdText
if Not rs.EOF then
arrTopicData = rs.GetRows(TopicCount,1)
iTopicCount = UBound(arrTopicData, 2)
else
iTopicCount = ""
end if
This all takes place on the page display.asp with all the above updates. I'm still trying to find answers, but this is realy frustrating... :) any other ideas? |
Reinsnitz (Mike) |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 14 November 2003 : 12:43:12
|
| If that's the error, that means you will need to change the recordset type you're using. Try opening the recordset using adOpenStatic and adLockReadOnly as options. Basically open it the same way as, for example, is done in topic.asp (line 259 in base forum). |
Snitz 3.4 Readme | Like the support? Support Snitz too |
 |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
Posted - 14 November 2003 : 12:50:24
|
| MySQL hrm... my host is having issues at this very moment... pages won't load for me or I would tell you the exact version and such. |
Reinsnitz (Mike) |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 14 November 2003 : 12:50:29
|
| He is most likely using MySQL, Rui. Since my recommendations in that post he linked to was for a MySQL database. |
Support Snitz Forums
|
|
|
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
Posted - 14 November 2003 : 12:53:50
|
DBMS Name MySQL
DBMS Version 3.23.54
Provider Name MSDASQL.DLL
OLE DB Version 02.00
Provider Version 02.80.1022.0
Driver Name myodbc3.dll
Driver Version 03.51.04
Driver ODBC Version 03.51
nails down the exact drivers and such on the server. |
Reinsnitz (Mike) |
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 14 November 2003 : 12:54:00
|
Ok, looking for how things are done in topic.asp for a MySQL DB, better open the recordset using something like this:
rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
|
Snitz 3.4 Readme | Like the support? Support Snitz too |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 14 November 2003 : 12:57:57
|
Try this instead Mike:set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize = 20
rs.open strSql, my_Conn, 3, adOpenForwardOnly, adCmdText
if Not rs.EOF then
arrTopicData = rs.GetRows(TopicCount,1)
iTopicCount = UBound(arrTopicData, 2)
else
iTopicCount = ""
end ifChange the code in green and delete the code in red.
I'm not sure what value TopicCount has, but it should be -1 which retrieves all rows. You can try using adGetRowsRest instead of TopicCount if it doesn't work. |
Support Snitz Forums
|
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 14 November 2003 : 12:59:25
|
Sorry Rui, was posting while you were posting.
But basically I was saying the same thing Rui was saying, along with another change. Try Rui's change first and see if it fixes it. |
Support Snitz Forums
|
Edited by - Davio on 14 November 2003 13:03:21 |
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
Posted - 14 November 2003 : 13:08:35
|
TopicCount = 5 (did a response.write and on error resume next to get that)
with the above changes an error of the following is generated:ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/forum/content.asp, line 122
This all happens on the following line marked in green:
set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize = 20
rs.open strSql, my_Conn, 3, adOpenForwardOnly, adCmdText
'rs.open strSql, my_Conn, 3, adLockReadOnly, adCmdText
'Response.Write("<br><br><br>TopicCount: " & TopicCount & "<br><br><br>")
if Not rs.EOF then
arrTopicData = rs.GetRows(TopicCount)
' arrTopicData = rs.GetRows(TopicCount,1)
iTopicCount = UBound(arrTopicData, 2)
else
iTopicCount = ""
end if |
Reinsnitz (Mike) |
|
|
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
Posted - 14 November 2003 : 13:33:30
|
The same error is generated when this is used too: rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText |
Reinsnitz (Mike) |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 14 November 2003 : 13:48:17
|
| Mike, I'm going to install the mod and test it with mysql database and get back to you. |
Support Snitz Forums
|
|
|
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
Posted - 14 November 2003 : 14:11:36
|
| Thank you very much Davio :) |
Reinsnitz (Mike) |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 14 November 2003 : 14:27:02
|
Mike, I tested this with a mysql database 4 and mysql database 3.23.
I got both working with this code:set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize = 20
rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if Not rs.EOF then
arrTopicData = rs.GetRows(TopicCount)
iTopicCount = UBound(arrTopicData, 2)
else
iTopicCount = ""
end if |
Support Snitz Forums
|
|
|
|
Reinsnitz
Snitz Forums Admin
USA
3545 Posts |
Posted - 14 November 2003 : 19:44:43
|
| testing now ;) |
Reinsnitz (Mike) |
|
|
|
Topic |
|
Topic Locked
. You're way too slow 
.