<%@Page language="vb" %>
Sub Page_Load()
Dim intCounter As Integer = -1
Dim AnimalArray(4) As string
AnimalArray(0) = "Dog"
AnimalArray(1) = "Cat"
AnimalArray(2) = "Elephant"
AnimalArray(3) = "Lion"
AnimalArray(4) = "Cat"
Do
intCounter = Array.IndexOf(AnimalArray, "Cat", intCounter+1)
MyText.InnerHtml += "AnimalArray(" & intCounter & ")
"
Loop Until intCounter = Array.LastIndexOf(AnimalArray, "Cat")
End Sub
The string "Cat" occurs in the following elements: