Undtagelse opstod.

virkede i går:
Fejltype:
(0x80020009)
Undtagelse opstod.
/ind/vogn.asp, line 25
sciptet:
<%
response.buffer = TRUE
if not session("logget_ind") = "ja" Then
response.write "du skal være logget ind for at se det!!!!"
else

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("butik.mdb")
Conn.Open DSN
if request.QueryString("slet") = "" or false Then
%>
          <strong>Dine varer i vognen</strong></p>
        <p>
          <%
SQL = "Select * from ordrer"
Set rs = Conn.Execute(SQL)

If rs.EOF Then
response.write "ingen varer!:("
else
Do
SQL2 = "Select * from varer where ID = "& rs("vare_id")
Set rs2 = Conn.Execute(SQL2)
strPris = rs2("pris") * rs("antal")
strPrisSamlet = strPrisSamlet + strPris
response.write "<form ACTION=""vogn_i.asp?rediger=ja&id=" & rs("id") & """ name=""form1"" method=""POST"">"
  Response.Write rs2("varenavn") & " antal: <input type=text name=antal value=" & rs("antal") & "> <input type=""submit"" name=""Submit"" value=""ændre""> pris : " & strPris &"<a href=""vogn_i.asp?slet=ja&id=" & rs("ID") & """>slet..</a><br></form>"
  rs.MoveNext
Loop While Not rs.EOF
response.write "<p>pris:" & strPrisSamlet & "."
response.write "<a href=""kassen.asp"">gå til kassen....</a>"
end if
end if
end if
%>
<!--#include file="2.asp"-->
linejn er:
Set rs2 = Conn.Execute(SQL2)


hjælp,..