<%@ Page Language="VB" %> <% Dim i As Integer For i = 0 To 23 Response.Write(AddZ(i) & "
") Next %>