Alm asp, men der er en fejl.

Der er en fejl i scriptet nedenunder, men jeg kan ikke finde det:
Her er lidt kode:
<!-- #include file=\"asp.inc\" -->
<%
Response.Expires = 0
Titel = \"Aabning\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"shop.mdb\")

ID = CLng(Request.QueryString(\"ID\"))

SQLstmt = \"SELECT * FROM aabning\"
Set RS = Conn.Execute(SQLstmt)
%>
<!-- #include file=\"top.inc\" -->
<%
If Not RS.EOF Then
    %>
    <table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"5\">
    <tr>
    <td bgcolor=\"#FFFFFF\" colspan=\"2\">
    <font size=\"4\"><b><%= RS(\"Name\") %></b></font> Fra <%= RS(\"Fra\") %> - Til <%= RS(\"Til\") %>
    </td>
    </tr>
    </table>
    <%
Loop
End If
%>
<!-- #include file=\"bund.inc\" -->

Det skal loop\'e