Simpel udvidelse af script

Hejsa

Hvor svært kan det egentligt wææære?!?

Jeg har en submit-side, hvor der i feltet "aendret" sendes en streng (f.eks. 65,25,25,36) som er værdier for markerede "artikelnr".

Nu mangler jeg bare at få udvidet nedenstående kode, alstå ved at få koblet nogle "emnenr" på "artikelnr" f.eks. 65(1),25(3),36(2) eller 65-1,25-3,36-2 eller noget helt 3. Men hvordan gør man lige det uden at lave en masse skod-kode? ;)

Det skal lige siges, at jeg ikke har låst mig fast på en bestemt løsning, så hvis du har en bedre løsning, så kom endelig med den. Jeg kan også hurtigt ændre min anden kode, hvis det ville være mere hensigtsmæssigt med endnu et submit-felt eller andet.


    if Request.form("valg") = "ArrangerArtikel" then
   
        Dim aendret, MyArray, bound, i
        MyString = Request.form("aendret")
        MyArray = Split(MyString, ",", -1, 1)
       
        bound = ubound(myarray)
       
        for i = lbound(myarray) to ubound(myarray)
           
            strSQL = "select * from ARTIKLER WHERE ARTIKELNR = " & MyArray(i)
            set rs = Conn.execute(strSQL)
            if rs.EOF then
                  status = "En eller flere af artiklerne er IKKE blevet arrangeret, da den eller de ikke i forvejen eksisterede!"
            else
                strSQL = "UPDATE ARTIKLER set emnenr = '" ???????? "' WHERE artikelnr = " & MyArray(i)
                set rs = Conn.execute(strSQL)
                status = "Artiklerne er nu blevet arrangeret!"
            end if
       
        next
    end if