Detta tycker jag verkar sjukt, här är felmeddelandet:

Error Type:
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'
/seal/sida/texter/index.asp, line 194
Och här är koden:

IF NOT Rs.EOF Then
Do Until Rs.EOF
%>
<tr height="20">
<td class="HeadCategory2" width="200">"><%=Rs("namn")%></td>
<td class="HeadCategory2" width="70"><%=Rs("datum")%></td>
<td class="HeadCategory2" width="347"><%=Rs("beskriv")%></td>
<%If Session("locked") => "2" Then %><td class="HeadCategory2" width="100">
Radera/">Ändra
</td>
</tr>
<%
RecSet.MoveNext
Loop <-- Rad 194

Else
response.write "<tr><td class='HeadCategory2'>Det finns inga kategorier inlaggda i databasen för tillfället</td></tr>"
End IF

Det finns ju både en Do och en Loop, så vad klagar han på?????? =S

har du mer än ett recordset??

du har 'do until rs.eof..

men recset.movenext.. borde inte dessa vara samma?

Vad jag kan se så bör ju din kod stämma.
Jag brukar ifs skriva:
<code>
Do While Not rst.EOF
</code>
Det bör ju inte vara någon skillnad förstås...

Saknas det inte en %>

/Johan

Möjligen så har jag hittat att du saknar en end if:
<code>
'Här är första if-satsen
IF NOT Rs.EOF Then
Do Until Rs.EOF
%>
<tr height="20">
<td class="HeadCategory2" width="200">
"><%=Rs("namn")%></td>
<td class="HeadCategory2" width="70"><%=Rs("datum")%></td>
<td class="HeadCategory2" width="347"><%=Rs("beskriv")%></td>
'Här är andraif-satsen
<%If Session("locked") => "2" Then %>
<td class="HeadCategory2" width="100">
Radera/">Ändra
</td>
</tr>
<%
RecSet.MoveNext
Loop

Else
response.write "<tr><td class='HeadCategory2'>Det finns inga kategorier inlaggda i databasen för tillfället</td></tr>"
'Här har du avslutat den första if-satsen
End IF
</code>
Du har alltså två stycken if-satsen men bara en end if.