<%

Dim intArray(3)

Dim tempArray()

Dim i, j

' initialize

intArray(0) = 0

intArray(1) = 1

intArray(2) = 2

intArray(3) = 3

j = 0

For i = UBound(intArray) To 0 Step -1

ReDim Preserve tempArray(j)

tempArray(j) = intArray(i)

j = j + 1

Next

For i = 0 To j - 1

intArray(i) = tempArray(i)

Next

Erase tempArray

' now we got it in reverse

For i = 0 To UBound(intArray)

Response.Write intArray(i) & "<br />"

Next

%>

hongjun