Asså jag hatar det meddelandet! Varför får man det??? Inte vet man heller vart man ska söka!
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/!egna/forum/philboard_read.asp, line 0
Det dyket upp runt dessa rader i webläsaren:
<tr bgcolor="#F3F3F3">
<td valign="top" width="150"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<b><u><a href="profil.asp?se=<%=by%>"><%=rsRoot("by")%></a></u></b><br>
<%=rsRoot("statusname")%><%
if moderator = rsRoot("by") then
Response.Write("<br>Moderator")
end if
%>
<br>
<%sql = "select posts from anv where anv = '" & by & "'"
set rs = conn.execute(sql)
if not rs.eof then
response.write by & " är "
posts = clng(rs(0))
if posts < 50 then
title = "Nybörjare"
elseif posts < 100 then
title = "Guld medlem"
elseif posts < 150 then
title = "Snart Veteran"
elseif posts < 200 then
title = "Veteran"
elseif posts < 300 then
title = "Silver Veteran"
elseif posts < 400 then
title = "Guld Veteran"
'
else
title = "Pensionär"
end if
response.write title & "<br>"
end if
rs.close
%>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM topics where by='"&rsRoot("by")&"'"
rs1.Open Addera, Conn, 3, 3
%>
<br>
Inlägg : <%=rsRoot("anv.posts")%><br><br>
<img src="images/status_<%=rsRoot("statuslevel")%>.gif" width=15 height=15 alt="<%=rsRoot("statusname")%>"><%
if moderator = rsRoot("by") then
Response.Write(" <img src=""images/status_moderator.gif"" width=""15"" height=""15"" alt=""Moderator"">")
end if
%></td>
<td valign="top" width="436"><font face="arial,helvetica" size="2">
<table width="100%" cellpadding=0 cellspacing=0>
<tr>
<td width="200"><font face="arial,helvetica" size="1"><img src="images/pb_<%=rs1("icon")%>.gif" width=15 height=15 align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <%=rsRoot("date")%> : <%=rsRoot("time")%></font></td>
<td>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <a href="philboard_reply.asp?id=root&topic=<%=id%>&recordnum=<%=recordnum%>">
<img src="images/replywquote.gif" width="15" height="15" border="0" alt="Svara med citat"></a>
<a href="../skriv_mess.asp?tillr=<%=rsRoot("by")%>&topic=<%=id%>&recordnum=<%=recordnum%>">
<img src="images/messageuser_icon.gif" width="16" height="16" border="0" alt="Skicka meddelande till <%=rsRoot("by")%>"></a><%
if rsRoot("by") = username then%>
<a href="philboard_edit.asp?id=root&topic=<%=id%>&recordnum=<%=recordnum%>">
<img src="images/edit_icon.gif" width="15" height="15" border="0" alt="Ändra tråd"></a><%
end if%><%
if moderator = username then%>
<a href="javascript:delReplyConfirm(<%=rsReplies("id")%>)">
<img src="images/delete_icon.gif" width="15" height="15" border="0" alt="Ta bort svar"></a><%
end if%></td></td>
</tr>
</table>
<hr size=1><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%if rsRoot("editcount") <> 0 then
Response.Write("<font size=1><b>Den här tråden har blivit ändrad " & rsRoot("editcount") & " gång/gånger</b></font><br><br>")
end if%> <%=rsRoot("message")%> </td>
</tr>
<%end if
if not rsReplies.EOF then
rsReplies.Movefirst
'If viewing a previous set of messages, move to the right position
if recordnum <> 0 then
rsReplies.Move(recordnum)
end if
cellbgcolor = "#F3F3F3"
for count = 1 to repliesdisplay
if cellbgcolor = "#F3F3F3" then cellbgcolor = "#E5E5E5" else cellbgcolor = "#F3F3F3" end if
%><%
bye=request("bye")
if bye="" then
bye=rsReplies("by")
end if
%>