dim a, b, c

a = 1
b = 1
c = 1

sub hour()
b = 1
c = 1
if a <> 4 then
a = a + 1

call sec()

end if

end sub

sub min()
c = 1
if b <> 60 then
b = b + 1
call sec()
else

call hour()
end if
end sub

function sec()

for c = 1 to 60
Response.Write a & ":" & b & ":" & c & "<br>"
next

call min()

end function

call sec()