update tabel

Hejsa

Jeg prøver på at opdater min db med form, men den bliver ved med at melde fejl..

Jeg har disse to sider (det er nogle koder jeg har fundet i eksperten.dk :))

ret.asp

<%
response.expires = 0
id = request("id")

set dsn = Server.CreateObject("ADODB.Connection")
set db = Server.CreateObject("ADODB.RecordSet")
dsn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db.mdb")
db.open "SELECT * FROM elemanlar WHERE id=" & id, dsn
%>


<form method="POST" action="degistir2.asp"> 
<input type="hidden" name="id" size="20" value="<%Response.write db("id")%>"><br>
<input type="text" name="baslik" size="29" value="<%Response.write db("baslik")%>"><br>
  <textarea name="metin" cols="40" rows="10" type="text" value=""><%Response.write db("metin")%></textarea>
 
  <br>
<input type="submit" value="    Tilføj    " name="Send">
<input type="reset" value="Nulstil" name="B2">
</form>

update.asp
<%
id = request.form("id")
set dsn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
dsn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db.mdb")
SQL = "Select * From elemanlar WHERE id=" & request.form("id")
rs.Open SQL, Conn, 1, 3

rs("baslik") = Request.form("baslik")
rs("metin") = Request.form("metin")
rs.Update 
%>

jeg får denne fejl:

Fejltype:
ADODB.Recordset (0x800A0BB9)
Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem. linje 7

>>> rs.Open SQL, Conn, 1, 3

Hjælp :(

/Musti