Endnu en simpel udvidelse

Hej

Nedenstående kode kan håndtere strenge fra Request.form("aendret") - f.eks. 26-1,65-3,84-4 - men nu skal den udvides til også at kunne håndtere endnu en oplysning - 26-1-3,65-3-2,84-4-4 eller 26-1/3,65-3/2,84-4/4 eller ved brug af en helt anden seperator end "-" og "/" (ovenstående var kun forslag).

Man hvordan gøres det? Kan du udbygge min kode?


if Request.form("valg") = "ArrangerArtikel" then
   
       
        Dim aendret, MyArray, bound, i, artikel
        MyString = Request.form("aendret")
        response.write(MyString)
       
        MyArray = Split(MyString, ",", -1, 1)
       
        for i = lbound(myarray) to ubound(myarray)
            artikel = Split(MyArray(i), "-")

              strSQL = "select * from ARTIKLER WHERE ARTIKELNR = " & artikel(0)
              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 = '" & artikel(1) & "' WHERE artikelnr = " & artikel(0)
                Conn.execute(strSQL)
                status = "Artiklerne er nu blevet arrangeret!"
              end if
        next
    end if
    response.redirect ("index.asp?status=" & status)