rs.eof / Loop / hämta data problem!

well! back again!
Kom inte på nån bra topic som passade så jag körde en mix på vad det kan vara! jag får felmedelande! men det kan inte stämma! det första som är Fetmarkerat fungerar skitbra!
men det andra som är Fetmarkerat längre ner vägrar fungera utan jag får felmess, men koden är den amma fast den liger i 2 olika Querystrings! Posten finns i databasen! förstår inte vaffö den vill jävlas
Jag försöker göra ett eget forum! fråga mig inte vad jag tänker med för det har jag inte en aning om jag vet knappt vad jag gör

ADODB.Field (0x800A0BCD)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/community/forum.asp, line 79

  <%
  if request.querystring("forum") = "yes" then
  Set conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/forum.mdb")&";"
  strSQL = "SELECT * FROM tblForum ORDER BY ForumName"
  set RSforum = conn.execute(strSQL)
  
  IF RSforum.bof and RSforum.eof then
  %>
  <tr>
    <td colspan="2" bgcolor="#E0DFE3"><strong>Det finns inga forum ännu!</strong></td>
  </tr>
  <%else
  Do until RSforum.eof
  [b]ForumLastThread = RSforum("ForumLastThread")[/b]
  strSQL = "SELECT * FROM tblThread WHERE ThreadID = "&ForumLastThread&""
  Set RSthread = conn.execute(strSQL)
  %>
    <tr>
    <td width="400" bgcolor="#E0DFE3"><a href="forum.asp?category=yes&ForumID=<%=RSforum("ForumID")%>"><b><%=RSforum("ForumName")%></b></a></td>
    <td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadLastUpdate")%></i></td>
  </tr>
    <tr>
      <td width="400" bgcolor="#E0DFE3"><%=RSforum("ForumDescription")%></td>
      <td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadName")%></i></td>
    </tr>
  <%
  RSforum.movenext
  loop
  end if
    end if
  If request.querystring("category") = "yes" then
  ForumID = request.querystring("ForumID")
   Set conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/forum.mdb")&";"
  strSQL = "SELECT * FROM tblCategory WHERE ForumID = '"&ForumID&"' ORDER BY CategoryName"
  set RScategory = conn.execute(strSQL)
    strSQL2 = "SELECT * FROM tblForum WHERE ForumID = "&ForumID&" ORDER BY ForumName"
  set RSforum = conn.execute(strSQL2)
  
  IF RScategory.bof and RScategory.eof then
  %>
  <tr>
    <td colspan="2" bgcolor="#E0DFE3"><strong>Det finns inga Kategorier i detta forum ännu!</strong></td>
  </tr>
  <%else
  Do until RScategory.eof
  [b]ForumLastThread = RSforum("ForumLastThread")[/b]
  strSQL = "SELECT * FROM tblThread WHERE ThreadID = "&ForumLastThread&""
  Set RSthread = conn.execute(strSQL)
  %>
    <tr>
    <td width="400" bgcolor="#E0DFE3"><a href="forum.asp?category=yes&ForumID=<%=RScategory("CategoryID")%>"><b><%=RScategory("categoryName")%></b></a></td>
    <td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadLastUpdate")%></i></td>
  </tr>
    <tr>
      <td width="400" bgcolor="#E0DFE3"><%=RScategory("CategoryDescription")%></td>
      <td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadName")%></i></td>
    </tr>
  <%
  RSforum.movenext
  loop
  end if
    
  end if%>
	
</table>