<%@ Page Language="VB" %> <% Function AddZ(ByVal vNumber As Integer) As String AddZ = vNumber.ToString() If AddZ.Length < 2 Then AddZ = "0" & AddZ End Function Dim i As Integer For i = 0 To 23 Response.Write(AddZ(i) & "
") Next %>