<% Dim Start Start = 0 Do Until Start = 10 Response.Write("Start is now: " & Start & "
") Start = Start + 1 Loop %>