ASP Forum
Hej alle sammen..Jeg får denne fejl i mit forum
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.
/nb/forum/display_forum.asp, line 35
Min asp kode:
<!-- #INCLUDE FILE="common.asp" -->
<%
ShowHead
OpenDataConn
%>
<%
Dim objForumRS, objMessageRS
Dim objForumCountRS, objMessageCountRS
Dim iActiveForumId, iActiveForumName
Dim iForumMessageCount
iActiveForumId = Request.QueryString("fid")
If IsNumeric(iActiveForumId) Then
iActiveForumId = CInt(iActiveForumId)
Else
iActiveForumId = 0
End If
' Get Forum Info and count of messages in the forum
Set objForumRS = GetRecordset("forums")
Set objForumCountRS = GetRecordset("SELECT forum_id, COUNT(*) FROM messages GROUP BY forum_id;")
If Not objForumRS.EOF Then
objForumRS.MoveFirst
Do While Not objForumRS.EOF
'Position Forum Count RS and get a message count
objForumCountRS.MoveFirst
Do Until objForumCountRS.EOF
If objForumCountRS.Fields("forum_id") = objForumRS.Fields("forum_id") Then Exit Do
objForumCountRS.MoveNext
Loop
If Not objForumCountRS.EOF Then
iForumMessageCount = objForumCountRS.Fields(1)
Else
iForumMessageCount = 0
End If
' If active forum -> show messages o/w -> just show forum
If objForumRS.Fields("forum_id") = iActiveForumId Then
ShowForumLine objForumRS.Fields("forum_id"), "open", objForumRS.Fields("forum_name"), objForumRS.Fields("forum_description"), iForumMessageCount
'Show Root Level Posts and their replies count
Set objMessageRS = GetRecordset("SELECT * FROM messages WHERE forum_id=" & iActiveForumId & " AND thread_parent=0 ORDER BY thread_id DESC;")
Set objMessageCountRS = GetRecordset("SELECT thread_id, COUNT(*) FROM messages WHERE forum_id=" & iActiveForumId & " GROUP BY thread_id ORDER BY thread_id DESC;")
' We don't worry about a zero count because every thread should have at least 1 message
' Along the same lines,
' objMessageRS.RecordCount needs to equal objMessageCountRS.RecordCount
' We assume they do. If not we're in deep sh*t! Please never break! I'm, begging here!
' Oh what the heck, even if it does break it's only the message count and not checking each record gives us a HUGE SPEED BOOST...
' Screw it, here goes...
If Not objMessageRS.EOF Then
objMessageRS.MoveFirst
objMessageCountRS.MoveFirst
Do While Not objMessageRS.EOF
ShowMessageLine 1, objMessageRS.Fields("message_id"), objMessageRS.Fields("message_subject"), objMessageRS.Fields("message_author"), objMessageRS.Fields("message_author_email"), objMessageRS.Fields("message_timestamp"), objMessageCountRS.Fields(1) - 1, "forum"
objMessageRS.MoveNext
objMessageCountRS.MoveNext
Loop
End If
'Close Message DB objects
objMessageCountRS.Close
Set objMessageCountRS = Nothing
objMessageRS.Close
Set objMessageRS = Nothing
'Set active Forum Name for later use in post line
iActiveForumName = objForumRS.Fields("forum_name")
Else
ShowForumLine objForumRS.Fields("forum_id"), "closed", objForumRS.Fields("forum_name"), objForumRS.Fields("forum_description"), iForumMessageCount
End If
objForumRS.MoveNext
Loop
Else
WriteLine "There are no folders currently open." & "<BR>"
End If
'Close Forum DB objects
objForumCountRS.Close
Set objForumCountRS = Nothing
objForumRS.Close
Set objForumRS = Nothing
If iActiveForumId <> 0 Then
%>
<html>
<head>
<title></title>
</head>
<body>
<p><br>
<a HREF="post_message.asp?fid=<%= iActiveForumId %>"><font SIZE="-1" COLOR="#0000FF"><i>Post
a New Message to <b><%= iActiveForumName %></b></i></font></a><br>
<%
End If
WriteLine "<BR><BR>"
WriteLine "<FONT SIZE=""-1""><B>Search the forums for a keyword:</B></FONT>"
ShowSearchForm
%><%
CloseDataConn
ShowTail
%></p>
</body>
</html>
