|
<%@Page language="vb" %>
<script runat="server" 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 & ")<br/>"
Loop Until intCounter = Array.LastIndexOf(AnimalArray, "Cat")
End Sub
</script>
<html>
The string "Cat" occurs in the following elements:
<br/>
<div id="MyText" runat="server" />
</html>
|