<% Dim currDate GetCurrentDate %> Welcome to Quadrant Consulting: General Management Clients & Projects

Today: <%= currDate %>

Home > Clients and Project > General Management  

General Management
 
 
 
 
 
Click here to get your dream jobClick here for all your Events Management needsClick here to find how you can contact usClick here for our on-line help desk, site map and to send us your comments/complimentsClick here to use our search engine to search this site

copyright © Quadrant. All rights reserved

 webmaster
<% 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 %>