Operation is not allowed when the object is open.

Hej Jeg forsøger at lave et simpelt news script, men får bare denne her fejl: Operation is not allowed when the object is open.

her er min kode:

<!--#include file="conn-inc.asp"-->

</style>
<div class="txt3"><center>
</center></div><br>


 
<%


intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

SQL = "SELECT * FROM news_novatech"
set rs = Conn.execute(SQL)

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  %>
  <div class="txt3">
  <%
  Response.Write "<p><b>Page" & intPage & " of " & intPageCount & "</b></p>"
  %>
  </div><%
  Do While Not rs.EOF And intRecCount > 0
  %>

        </table>
        <table width="88" border="1" cellspacing="2" cellpadding="0">
            <tr>
                <td>Date</td>
                <td><%Response.Write rs("Date")%></td>
            </tr>
            <tr>
                <td>Name</td>
                <td><%Response.Write rs("Name")%></td>
            </tr>
            <tr>
                <td colspan="2">headline</td>
            </tr>
            <tr>
                <td colspan="2">Entry</td>
            </tr>
        </table>
<br>
<%
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
%><div class="txt3">
<%
Response.Write "<p>Go to page "
For intNum = 1 To intPageCount
  Response.Write "<a href=paging.asp?page=" & intNum & ">>" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

nogle der kan se hva jeg gør galt?