<%
Dim I,J As Integer 
For I = 1 To 5
	For J = 1 To I
		Response.Write("* ")
	Next J
	Response.Write("<BR>")
Next I
For I = 1 To 5
	For J = 5 To I Step -1
		Response.Write("* ")
	Next J
	Response.Write("<BR>")
Next I
%>