update db

Hey E

hvorfor vil denne kode kun tilføje indhold men ikke reducere det?

                rs_lokation(3)
                rsConn.Execute = "SELECT lokation_id, lokation FROM EH101_lokationer"
                do while NOT rs.EOF
                    hvilkenLokation = hvilkenLokation & rs("lokation") & ","
                rs.Movenext
                Loop
                rs_end()
                Dim hvadIform
                For each x in Request.Form ' Tager hele formen og ser den gemmen
                hvadIform = Request.Form( x )
                if inStr(1,hvilkenLokation,"," & hvadIform) = 0 then
                    rs_lokation_up_id(x)
                        rs("lokation") = hvadIform
                        rs.Update
                    rs_end()
                    HvilkeUpdatet = HvilkeUpdatet & hvadIform & ","
                end if
                Next




    function rs_lokation_up_id(ByVal nr)
        Set rsConn = Server.CreateObject("ADODB.Connection")
        rsConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + Server.MapPath("/hwkar/fpdb/EH-101.mdb") + ";" )
        Set rs = Server.CreateObject("ADODB.RecordSet")
        rs_lokation_up_id = "SELECT * FROM EH101_lokationer WHERE lokation_id="&nr
        rs.Open rs_lokation_up_id, rsConn, 1,3 'nr: 3 = SELECT, 1 = UPDATE
    end function