Classic ASP print out array

prArray.vbs

' function qui affiche la cle => type(valeur) d'un tableau uni-dimentionnel
' ex : prArray(montableau)
' [0] => String(jean)
' [1] => String(louis)
' ...
function prArray(myArr)
  dim key
  key = 0
  for each arrayitem in myArr
    response.write "[" & key & "]" & " => " & typename(arrayitem) & "(" & arrayitem & ") "  & "<br />"
      key = key + 1
  Next
end function