hvad er der galt her?

hej

jeg er ikke så fiks med asp så jeg kan ikke rigtig se havd det der er galt her.. er der nogen der kan hjælpe mig lidt?

jeg får den her fejl ved  DO WHILE NOT rsp.EOF
            rsp(\"kontaktid\") = kontaktid

Fejltype:
ADODB.Recordset (0x800A0CB3)
Den ønskede handling understøttes ikke af objektet eller provideren.


her er koden:

<%
SQLstmt = \"SELECT * FROM kontakt\"

Conn.Execute (SQLstmt)
Set rsp = conn.Execute(SQLstmt)
  %>


<table width=\"20%\" border=\"0\">
  <tr>
    <td><font size=\"2\" font color=\"black\">
<%
strSQL = \"SELECT COUNT(kontaktid) AS kontakttal FROM kontakt\"
Set rs = Conn.Execute(strSQL)
Response.Write \"<p>Der er \" & rs(\"kontakttal\") & \" hendvendelser registreret.</p>\"
%>
</font></td>
  </tr>
</table>
<br>
<%
  DO WHILE NOT rsp.EOF
            rsp(\"kontaktid\") = kontaktid
            rsp(\"afsender\") = afsender
            rsp(\"email\") = email
            rsp(\"telefon\") = telefon
            rsp(\"emne\") = emne
            rsp(\"tekst\") = tekst
    %>

<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr bgcolor=\"#999999\">
    <td colspan=\"2\"><b> &nbsp;<%=emne%></b></td>
    <td width=\"48\">
      <div align=\"center\"><a href=\"slet_kontakt.asp?id=<%=kontaktid%>\">Slet</a></div>
    </td>
    <td width=\"63\">
      <div align=\"center\"><a href=\"besvar_kontakt.asp?id=<%=kontaktid%>\">Besvar</a></div>
    </td>
  </tr>
</table>

<table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\">
  <tr>
    <td width=\"78\"><b>Kontakt ID:</b></td>
    <td colspan=\"3\" align=\"left\"><%=kontaktid%></td>
  </tr>
  <tr>
    <td width=\"78\"><b>Afsender:</b></td>
    <td colspan=\"3\" align=\"left\"><%=afsender%></td>
  </tr>
  <tr>
    <td width=\"78\"><b>email:</b></td>
    <td colspan=\"3\" align=\"left\"><%=email%></td>
  </tr>
  <tr>
    <td width=\"78\"><b>Telefon:</b></td>
    <td colspan=\"3\" align=\"left\"><%=telefon%></td>
  </tr>
  <tr>
    <td width=\"78\"><b>Emne:</b></td>
    <td colspan=\"3\" align=\"left\"><%=emne%></td>
  </tr>
</table>
<p>

  <%
      rsp.MoveNext
      LOOP
      rsp.Close
      Response.Write \"</TABLE>\"

    conn.Close
    Set conn = nothing
    Set SQLstmt = nothing
  %>

</body>
</html>

-- xs