<% Public Function timeSelect() DIM startHour DIM startMinute DIM endHour DIM endMinute Response.Write "

" & vbCrlf Response.Write "Select start time: " Response.Write "" & vbCrlf For startHour = 0 to 23 If len(startHour) = 1 THEN Response.Write "" & "0" & startHour & "" & vbCrlf Else Response.Write "" & startHour & "" & vbCrlf End If Next Response.Write " : " Response.Write "" & vbCrlf For startMinute = 0 to 59 STEP 5 If len(startMinute) = 1 THEN Response.Write "" & "0" & startMinute & "" & vbCrlf Else Response.Write "" & startMinute & "" & vbCrlf End If Next Response.Write "
" & vbCrlf '-------------------------------------------------------------------------------------------------------- Response.Write "Select start time: " Response.Write "" & vbCrlf For endHour = 0 to 23 If len(endHour) = 1 THEN Response.Write "" & "0" & endHour & "" & vbCrlf Else Response.Write "" & endHour & "" & vbCrlf End If Next Response.Write " : " Response.Write "" & vbCrlf For endMinute = 0 to 59 STEP 5 If len(endMinute) = 1 THEN Response.Write "" & "0" & endMinute & "" & vbCrlf Else Response.Write "" & endMinute & "" & vbCrlf End If Next Response.Write "
" & vbCrlf '-------------------------------------------------------------------------------------------------------- Response.Write "" Response.Write "

" End Function %> <% Function GetDateName (monthNumber) Select Case monthNumber Case 1 GetDateName = "Jan" Case 2 GetDateName = "Feb" Case 3 GetDateName = "Mar" Case 4 GetDateName = "Apr" Case 5 GetDateName = "May" Case 6 GetDateName = "Jun" Case 7 GetDateName = "Jul" Case 8 GetDateName = "Aug" Case 9 GetDateName = "Sep" Case 10 GetDateName = "Oct" Case 11 GetDateName = "Nov" Case 12 GetDateName = "Dec" End Select End Function %> <% Public Function dateSelect() DIM startDay DIM endDay DIM startMonth DIM endMonth DIM startYear DIM endYear Response.Write "

" & vbCrlf Response.Write "Select start date: " Response.Write "" & vbCrlf If len(day(Date)) = 1 THEN Response.Write "" & "0" & day(Date) & "" Else Response.Write "" & day(Date) & "" End If For startDay = 01 to 31 If len(startDay) = 1 THEN Response.Write "" & "0" & startDay & "" & vbCrlf Else Response.Write "" & startDay & "" & vbCrlf End If Next Response.Write " - " Response.Write "" & vbCrlf Response.Write "" & left(Monthname(Month(Date)),3) & "" For startMonth = 1 to 12 Response.Write "" & GetDateName(startMonth) & "" & vbCrlf Next Response.Write " - " Response.Write "" & vbCrlf Response.Write "" & year(Date) & "" For startYear = (year(Date) + 1) to 2015 Response.Write "" & startYear & "" & vbCrlf Next Response.Write "" End Function %>