Operation is not allowed when the object is open.

Hej
Jeg får denne fejl;
ADODB.Connection error '800a0e79'
Operation is not allowed when the object is open.
I henholdsvis linie 19 og 75 på denne side;

<!--#include file="jjdb.asp"-->
<%
status = Request.QueryString("status")
%>

<HTML>
<HEAD>
<TITLE>Redigér anmeldelse</TITLE>
</HEAD>
<BODY>
<CENTER>
<%
if status = "delete" then
%>

           
            <%
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../fpdb/link97.mdb")
    Set Conn=Server.CreateObject("ADODB.Connection")
    sql = "select * from cat order by ID"
    set rs = Conn.Execute (sql)
   
%>



    <table border="0" width="300">

    <%
    Do while NOT rs.EOF
    ColNum = 1
    Do while ColNum < 3
    %>   
               
               
<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="showsub.asp?CatID=<%=rs("id")%>&status=delete&parent=<%=rs("cat")%>"><%=rs("cat")%> </a></TD>
           
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>

<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="showsub.asp?CatID=<%=rs("id")%>&status=delete&parent=<%=rs("cat")%>"><%=rs("cat")%> </a></TD>
<%
end if
ColNum = ColNum + 1
Loop
%>

    </TR>

   

<%
if NOT rs.EOF then 
rs.MoveNext 
end if
Loop
%>

    </TABLE>
   
    <% rs.close
    Conn.Close
    set Conn = nothing
    %>

                <%else%>
               
            <%
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../fpdb/link97.mdb")
    Set Conn=Server.CreateObject("ADODB.Connection")
    sql = "select * from cat order by ID"
    set rs = Conn.Execute (sql)
   
%>



    <table border="0" width="300">

    <%
    Do while NOT rs.EOF
    ColNum = 1
    Do while ColNum < 3
    %>   
               
               
<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="showsub.asp?CatID=<%=rs("id")%>&parent=<%=rs("cat")%>"><%=rs("cat")%> </a></TD>
           
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>

<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="showsub.asp?CatID=<%=rs("id")%>&parent=<%=rs("cat")%>"><%=rs("cat")%> </a></TD>
               
<%
end if
ColNum = ColNum + 1
Loop
%>

    </TR>

   

<%
if NOT rs.EOF then 
rs.MoveNext 
end if
Loop
%>

    </TABLE>
   
    <% rs.close
    Conn.Close
    set Conn = nothing
    %>
        <%end if%>     

</BODY>
</HTML>

Jeg er ikke så stiv i .asp, så jeg kan ikke gennemskue hvor det går galt... Er der en af jer hajer der kan?