Quadrant Consulting has been
involved in a variety of projects in the past years.
Click on each of the following categories to find more
about current and past projects.
<%
Sub GetCurrentDate
Dim currDay,currYear,currMonth
Select Case Month(Date)
Case 1
currMonth ="January"
Case 2
currMonth ="February"
Case 3
currMonth ="March"
Case 4
currMonth ="April"
Case 5
currMonth ="May"
Case 6
currMonth ="June"
Case 7
currMonth ="July"
Case 8
currMonth ="August"
Case 9
currMonth ="September"
Case 10
currMonth ="October"
Case 11
currMonth ="November"
Case 12
currMonth ="December"
End Select
Select Case WeekDay(Date)
Case 1
Today ="Sunday"
Case 2
Today ="Monday"
Case 3
Today ="Tuesday"
Case 4
Today ="Wednesday"
Case 5
Today ="Thursday"
Case 6
Today ="Friday"
End Select
currDay = Day(Date)
currYear = Year(Date)
currDate =Today &","& currDay &" "& currMonth &" "& currYear
End Sub
%>
