sorter i split funktion

sub Sort(A)
  dim n, gap,OK,i,j,tmp
  n=Ubound(A)
  gap = n
  ok = True
  While ok
    If gap < 1 Then gap = 1
    ok = (gap <> 1)
    For i = 0 To n - gap
      j = i + gap
      If A(i) > A(j) Then
        tmp = A(j): A(j) = A(i): A(i) = tmp
        ok=true
      End If
    Next
    gap = Int(gap / 1.33) 'Tallet 1.33 er bedst
  Wend
end sub
call Sort(Rooms_Split)

så skulle Rooms_Split været sorteret.

Får denne fejl:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Ubound'

line 14

14:  n=Ubound(A)

Og du sender også et array med over i funktionskaldet?? Jeg prøvede lige selv, med dit eks og det virkede fint. Her er den fulde kode jeg brugte:

sub Sort(A)
  dim n, gap,OK,i,j,tmp
  n=Ubound(A)
  gap = n
  ok = True
  While ok
    If gap < 1 Then gap = 1
    ok = (gap <> 1)
    For i = 0 To n - gap
      j = i + gap
      If A(i) > A(j) Then
        tmp = A(j): A(j) = A(i): A(i) = tmp
        ok=true
      End If
    Next
    gap = Int(gap / 1.33) 'Tallet 1.33 er bedst
  Wend
end sub

temp = "adminsarea,coffeebar,kids,airport,hotel,motel"
temp1 = Split(temp,",")
call Sort(temp1)
for f=0 to ubound(temp1)
  Response.write temp1(f) & "<br>"
next

perfekt... det var det jeg havde glemt!

no prob
.o) <-- One Eyed Jack