<%
Dim currDate,n
GetCurrentDate
If Request.Cookies("refresh_QK") ="" Then
n = 0.3
Response.Cookies("refresh_QK") = 2
Else
n = 3600
End If
%>
Quadrant Consulting Pastel Unit
Software supply, Installation, Training and
Support for these modules ( Accounting,
Point Of Sales, Fixed Assets, Report Writing &
Budgeting, Payroll and Manufacturing )
<%
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
%>
