Access update problem

Nu har jeg siddet og kæmpet med denne kode i jeg ved ikke hvor lang tid, og den virker stadig ikke... Kan nogen hjælpe mig?

dette er koden jeg bruger til at opdatere en record i min database: sessionen username indeholder korrekt nok et username.

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"../db/community.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
if dataok=true then
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3

    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
  rs(\"username\") = rs(\"username\")
  rs(\"sentdocuments\") = rs(\"sentdocuments\")
  rs(\"points\") = rs(\"points\")
  rs(\"sentcheats\") = rs(\"sentcheats\")
  rs(\"sentwalkthroughs\") = rs(\"sentwalkthroughs\")
  rs(\"sentguides\") = rs(\"sentguides\")
    rs(\"password\") = Request.form(\"password1field\")
    rs(\"realname\") = Request.form(\"realnamefield\")
    rs(\"age\") = Request.form(\"agefield\")
    rs(\"email\") = Request.form(\"emailfield\")
    rs(\"url\") = Request.form(\"toplisturlfield\")
    rs(\"showemail\") = Request.form(\"visibleemailfield\")
    rs.update
    Response.Write \"<font>Your Cheat Finder community member profile was updated succesfully!</font>\"
      end if
      end if
%>

mvh mark