Sortere Array i nummerorden samt referere til et id i Access.

<%
MyArray = Split("273:12,2455:15,532:14", ",")
max = ubound(MyArray)

For i = 0 to max 
  For j = i + 1 to max 
    ' aflæs point-delen fra de elementer der skal sammenlignes
    v1 = Split(MyArray(i), ":")(0)
    v2 = Split(MyArray(j), ":")(0)

    ' byt elementerne om nødvendigt
    if v1 > v2 then
      TemporalVariable = MyArray(i)
      MyArray(i) = MyArray(j)
      MyArray(j) = TemporalVariable
    end if
  next 
next 

Response.write ("The sorted values are those ones: <BR>") 

For i = 0 to max 
  Response.write (MyArray(i) & "<BR>") 
next 
%>