Using Subroutines Looped

The Code

<% Dim iLoop, yloop
yloop=1

%>
<form method="post" action="using-subroutines-looped.asp">
Number of Loops<input type="text" name="yloop" /><br />
Input one
<input type="text" name="yname" /><br />
Input two
<input type="text" name="ysitename" />
<input type="submit" value="Submit" />
</form>
<p>
<%

yname = Request.Form("yname")
ysitename = Request.Form("ysitename")
yloop = Request.Form("yloop")

Sub subHeading
Response.Write("<p align=right>")
Response.Write(yname & "<br />")
Response.Write(ysitename & "<hr />")
End Sub

For iLoop = 1 to yloop

subHeading
Next

%>