
<%
Dim dayofweek, dayofweeknum
dayofweeknum = datepart("w", now())
Select Case dayofweeknum
Case 1
dayofweek = "Sunday"
Case 2
dayofweek = "Monday"
Case 3
dayofweek = "Tuesday"
Case 4
dayofweek = "Wednesday"
Case 5
dayofweek = "Thursday"
Case 6
dayofweek = "Friday"
Case 7
dayofweek = "Saturday"
End Select
Response.Write dayofweek & ", " & now()
%>
|
Welcome to the DSHS Budget
|
||||||||