<% varDay = cint(Request.QueryString("day")) varMonth = cint(Request.QueryString("month")) varYear = cint(Request.QueryString("year")) %>

Start date/time: <% tempCount = 1 If varMonth = 9 Or varMonth = 4 Or varMonth = 6 Or varMonth = 11 Then dayNumber = 30 If varMonth = 1 Or varMonth = 3 Or varMonth = 5 Or varMonth = 7 Or varMonth = 8 Or varMonth = 10 Or varMonth = 12 Then dayNumber = 31 If varMonth = 2 Then dayNumber = 28 Do While tempCount < dayNumber + 1 %>><%=tempCount%><% tempCount = tempCount + 1 Loop %> >Jan>Feb>Mar>Apr>May>Jun>Jul>Aug>Sep>Oct>Nov>Dec  <% tempCount = 0 Do While tempCount < 5 If Year(Now()) + tempCount = Cint(varYear) Then Response.Write("" & Year(Now()) + tempCount & "") Else Response.Write("" & Year(Now()) + tempCount & "") End If tempCount = tempCount + 1 Loop %>  Hours: <% tempCount = 0 Do While tempCount < 24 %> <% If tempCount < 10 Then Response.Write("0" & tempCount) Else Response.Write(tempCount) End If %> <% tempCount = tempCount + 1 Loop %>  Minutes: <% tempCount = 0 Do While tempCount < 60 %> <% If tempCount < 10 Then Response.Write("0" & tempCount) Else Response.Write(tempCount) End If %> <% tempCount = tempCount + 5 Loop %>

End date/time: <% tempCount = 1 If varMonth = 9 Or varMonth = 4 Or varMonth = 6 Or varMonth = 11 Then dayNumber = 30 If varMonth = 1 Or varMonth = 3 Or varMonth = 5 Or varMonth = 7 Or varMonth = 8 Or varMonth = 10 Or varMonth = 12 Then dayNumber = 31 If varMonth = 2 Then dayNumber = 28 Do While tempCount < dayNumber + 1 %>><%=tempCount%><% tempCount = tempCount + 1 Loop %> >Jan>Feb>Mar>Apr>May>Jun>Jul>Aug>Sep>Oct>Nov>Dec  <% tempCount = 0 Do While tempCount < 5 If Year(Now()) + tempCount = Cint(varYear) Then Response.Write("" & Year(Now()) + tempCount & "") Else Response.Write("" & Year(Now()) + tempCount & "") End If tempCount = tempCount + 1 Loop %>  Hours: <% tempCount = 0 Do While tempCount < 24 %> <% If tempCount < 10 Then Response.Write("0" & tempCount) Else Response.Write(tempCount) End If %> <% tempCount = tempCount + 1 Loop %>  Minutes: <% tempCount = 0 Do While tempCount < 60 %> <% If tempCount < 10 Then Response.Write("0" & tempCount) Else Response.Write(tempCount) End If %> <% tempCount = tempCount + 5 Loop %>

Short description:


Full text: