<%@Language="VBScript"%>
<%
    Option Explicit
    Dim var(3), i, count

    i = 0
    count = 3

    var(0) = "Menu 1"
    var(1) = "Menu 2"
    var(2) = "Menu 3"
	
    Do While i < count
	    Response.Write var(i)
        i = i + 1
    Loop

    'Response.Write "i=" & i'
%>