VArför kan jag inte stänga mitt RS?

Varför kan inte jag köra den näst sista raden?

<%
        Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(database)
	Set rs = Connect.execute("SELECT * FROM [innehåll] WHERE cat='"&cat&"' Order by namn")

%>
      <table width="771" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="20">&nbsp;</td>
          <td width="180" valign="top"><span class="meny">
<%
	if not rs.EOF then
	    do until rs.EOF
		if len(id)=0 then
			id=rs("id")
		end if
%>
		<A HREF="index.asp?cat=<%=cat%>&id=<%=rs("id")%>"><%=rs("namn")%></A><BR>
<%
		if cint(id)=rs("id") then
			rubrik=rs("namn")
			pagetext=rs("text")
			bild=rs("bild")
		end if
		rs.movenext
	     loop
	end if

Connect.Close
set Connect = nothing
'rs.close
set rs = nothing
%>