<%@ Language=VBScript %> <% ' TEMP, will delete the following variables later. CL ' Chris will fix layout too. %> <%dim colorScheme : colorScheme = "blue" %> <%dim pageTitle : pageTitle = "title_calendar.gif" %> <%dim thisMonth : thisMonth = "apr01" %> <%dim thisWeek : thisWeek = "week_1" %> <% Dim dDate Dim dCurrDate: dCurrDate = Now() dim sTempDate dim sAMPM Dim iDay Dim iMonth Dim iYear Dim iHour Dim iMin Dim bPM iDay = 11 iMonth = 9 iYear = 2002 iHour = 10 iMin = 45 bPM = true if bPM = true then sAMPM = "PM" else sAMPM = "AM" end if %> <% sTempDate = iMonth & "/" & iDay & "/" & iYear & " " & iHour & ":" & iMin & ":00 " & sAMPM %> <% iMonth = Month(dCurrDate)%> <% iDay = Day(dCurrDate)%> <% iYear = Year(dCurrDate)%> <% iHour = Hour(dCurrDate)%> <% iMin = Minute(dCurrDate)%> <% if (Hour(dCurrDate) < 12) or (Hour(dCurrDate) = 24) then sAMPM = "AM" else sAMPM = "PM" end if%> <% dCurrDate = CDate(sTempDate)%>

View Date Tests

<%=iMonth%>/<%=iDay%>/<%=iYear%> - <%=iHour%>:<%=iMin%> <%=sAMPM%>

Current Date is:

<%=dCurrDate%>

Month is:

<%=iMonth%>

Day is:

<%=iDay%>

Year is:

<%=iYear%>

Hours is:

<%=iHour%>

Minutes is:

<%=iMin%>

AM/PM is:

<%=sAMPM%>

Calculated Date is:

<%=dCurrDate%>

Reformatted Time is:

<%= FormatDateTime(dCurrDate, vbShortTime)%>