Loop Fejl

Fejl:
Microsoft VBScript compilation error \'800a03fb\'

Expected \'Loop\'

/script/asp/ringz/katagori.asp, line 60

Linje 60:
set myconn= nothing

Scripten:
<%
    dim mode, katagori
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"jw_script_db.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN
   
   
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
   
    <title>Katagori</title>
   
</head>

<body>
<%
    strSQL = \"SELECT * From katagori\"
    Set rs = myConn.Execute(strSQL)   
    do while not rs.eof
        %>
       
<table border=\"0\">
  <%
    Do while NOT rs.EOF
    ColNum = 1
    Do while ColNum < 3
    %>
  <td align=LEFT valign=middle width=\"150\"><a href=\"subkatagori.asp?katagoriID=<%=rs(\"id\")%>\"><%=rs(\"katagori\")%>
    </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=\"subkatagori.asp?katagoriID=<%=rs(\"id\")%>\"><%=rs(\"katagori\")%></a></td>
  <%
end if
ColNum = ColNum + 1
Loop
%>
  </tr>
</table>
<%
        rs.movenext
    loop   
%>

</body>
</html>
<%

    rs.close
    set rs=nothing
    myconn.close
    set myconn= nothing
    %>

håber der er nogen som ved hvorfor fejlen opstår :o) ! på forhånd tak for hjælpen.