Do until rs.EOF

Hm..Smid noget mere kode, det er lidt svært at sige noget udfra sådan en lille del...

Set connect = Server.CreateObject(\"ADODB.Connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"Forum.mdb\")
Connect.Open strDSN
set rs = Connect.Execute(\"SELECT godkendt from users WHERE nick=\'\" & session(\"brugernavn\") & \"\'\")
if not rs.EOF = false then
strSQL = \"SELECT * FROM Forums WHERE Beskyttet=\'Nej\'\"
else
if rs(\"godkendt\") = \"Ja\" then
strSQL = \"SELECT * FROM Forums\"
else
strSQL = \"SELECT * FROM Forums WHERE Beskyttet=\'Nej\'\"
end if
end if
Set forums = Connect.Execute(strSQL)


DO while not Forums.EOF

Set count = Connect.Execute(\"SELECT COUNT(*) AS Antal FROM Messages WHERE (ForumID = \" & Forums(\"ForumID\") & \")\")
Set threads = Connect.Execute(\"SELECT COUNT(*) AS Antal FROM Messages WHERE (SvarID = 0) AND (ForumID = \" & Forums(\"ForumID\") & \")\")
Set topdate = Connect.Execute(\"SELECT TOP 1 * FROM Messages WHERE (ForumID = \" & Forums(\"ForumID\") & \") ORDER BY dato DESC\")

If farve=1 Then
baggrund=\"#E5E5E5\"
Farve= Farve + 1
Else
baggrund=\"#FCFCFC\"
farve=1
End If

%>
<tr>
<td valign=top width=35% bgcolor=\"<%=baggrund%>\"><font size=2><a href=forum.asp?mode=threads&ForumID=<%=Forums(\"ForumID\")%>><b><%=Forums(\"Navn\")%></a></b></font></td>
<td valign=top width=15% bgcolor=\"<%=baggrund%>\"><font size=2><%=threads(\"Antal\")%></font></td>
<td valign=top width=15% bgcolor=\"<%=baggrund%>\"><font size=2><%=count(\"Antal\")%></font></td>
<td valign=top width=25% bgcolor=\"<%=baggrund%>\"><font size=2><%=topdate(\"dato\")%></font></td>
</tr>
<%
Forums.MoveNext
LOOP
%>


Jeg har forumid 1,2,3 når jeg opretter et nyt får det forumid 7, og så går det galt!

I hvilken linie får du fejlen ?

Ja, det er så det sjove, det vil den ikke ud med!

Her er hvad jeg får:

Error Type:
ADODB.Field (0x80020009)
Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.
/eksperten/kane/forum.asp

Jeg kunne forestille mig at det er:

<td valign=top width=25% bgcolor=\"<%=baggrund%>\"><font size=2><%=topdate(\"dato\")%></font></td>

Altså at:
Set topdate = Connect.Execute(\"SELECT TOP 1 * FROM Messages WHERE (ForumID = \" & Forums(\"ForumID\") & \") ORDER BY dato DESC\")

Giver en .eof ? Prøv at lægge test ind på de 3 linier i bunden også.

Nåh, ja, selvfølgelig, der er jo ikke oprettet nogle meddelelder i det nye forum!!!

Prøver lige!

Takker mange gange!

Det betyder vist at det er ved at være sengetid ;o)

Smid lige et svar så du kan få point!

Svar :-)