Sql update ??????

Hej

Er ved at lave et admin system .....

Men jeg kan ikke få det til at fungere ....

Hvad kan der være galt ?

jeg får denne fejl ...

Fede farver, Dybe tider, Kanon flot, Smukke tider, Kanone kontraster
ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/flash/adminn/reddowretur.asp, line 24

Prøv at teste det her .....

http://iceb.ljnet.dk/flash/adminn/reddow.asp

Her er min kode til sende siden

KODE

reddow.asp

<%@ Language=VBScript %>

<html>
<body>

<%



' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * FROM download ORDER BY ID"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Do

%>
<form action="reddowretur.asp" method="Post">
<br>Marker denne boks for at slette ordren<INPUT Type=text Name="tor" Value="<% = RS("produktnavn")%>"><br>

<img src="<% = RS("produktbilledfil")%>"<br>
Produktnavn. <% = RS("produktnavn")%><br>
Fil. <% = RS("produktbilledfil")%><br>
Id. <% = RS("id")%><br>
<%



  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing


%>



<br><br>
Udskriv din bestilling <a href="java script: window.print()">her</a>

<br><br><input type="submit" value="Slet det markerede">

<br><br>
Luk dette vindue <a href="java script: self.close()">her</a>

</form>
</table>

til redowretur.asp

KODE

<%

Dim na

na=(request.form("tor"))
response.write na


     
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN

Do

strSQL = "update download set produktnavn ='"& na &"' "

' indsætter i db
Set rs = Conn.Execute(strSQL)

  ' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>