Har denna kod för att skriva ut användare:

<code>

aSessions = dOnlineUsers.Keys
for iUser = 0 to dOnlineUsers.Count - 1
sKey = aSessions(iUser)
sUserInfo = dOnlineUsers.Item(sKey)
aUserInfo = split(sUserInfo, "<|>")

sUserName = aUserInfo(0)
sLastActionTime = aUserInfo(1)
sLastPageViewed = aUserInfo(2)

if sUserInfo <> "" AND not sUserName = "Gäst" then
iUsrCount = iUsrCount + 1

</code>

Men hur gör man så att den ska ordna efter bokstavsordning?

sortera arrayn ;)

sök här eller på webforum (där vet jag att det finns)

Hittade denna kod:
<code>
Sub strSort(arr)
Dim i
For i = LBound(arr) To UBound(arr) - 2
Dim min, j, slask
min = i
For j = i + 1 To UBound(arr)
If UCase(arr(j)) < UCase(arr(min)) Then
min = j
End If
Next
slask = arr(min)
arr(min) = arr(i)
arr(i) = slask
Next
End Sub
</code>

Hur ska jag lägga till den med min kod?