Søg efter og rediger

Jeg prøver at lave en side, som går ind i en database og sammenligner en session hvor man har logget ind og et tal i databasen. men det vil sq ikke rette det tal det så finder! F.eks. så har en bruger som har logget ind id "1" og i tabellen "clans" og i kolonen "cl_id" står der også "1", den skal så finde dette og skrive i tabellen "bruger" i kolonen "clan" skal den så skrive "1"


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



      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN

      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] order by id asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF

      if news("cl_id") = rs("id") then
      rs.update
      news("id") = rs("clan")
      rs.update
      end if
     
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
%>