> > Tips

<%
' funzione di ordinamento stringhe tramite algoritmo Bubble Sort
function SortStringArray(arrStrings)
  dim strBuf
  ' controlla che arrStrings sia effettivamente un array
  if isarray(arrStrings) then
    dim i, j
    ' per ogni stringa dell'array
    for i=0 to ubound(arrStrings)-1
      ' scorri tutte le stringhe dell'array che non sono ancora ordinate
      for j=0 to ubound(arrStrings)-1-i
        ' se la stringa attuale è "maggiore" della stringa successiva...
        if arrStrings(j)>arrStrings(j+1) then
          ' ...inverti la posizione delle due stringhe
          strBuf = arrStrings(j+1)
          arrStrings(j+1) = arrStrings(j)
          arrStrings(j) = strBuf
        end if
      next
    next
  end if
  SortStringArray = arrStrings
end function
%>