Simple Subroutine with Argument Passing

June
July
2
3
5
7
11
May
June
July

The Code

<%
Dim primnosa, namenosa

Sub subPrintArray(arryToPrint, iStartValue, iStopValue)
Dim primnumcounter
For primnumcounter = iStartValue to iStopValue
Response.Write(arryToPrint(primnumcounter))
Response.Write("<br />")
Next
End Sub
primnosa = Array(2, 3, 5, 7, 11, 13, 17, 19)
namenosa = Array( "April", "May", "June", "July")
subPrintArray namenosa, 2, 3
subPrintArray primnosa, 0, 4
subPrintArray namenosa, 1, 3
%>