sunlari ceviremedi ;
<% currentdate = vbShortDate
' use the built-in VBScript constant vbShortDate
' to see what day of the week it is.
' define what variable is being tested
select case currentdate
case vbSunday
response.write "Today is Sunday. We're not working!"
case vbMonday
response.write "It's Monday. Back to work..."
case vbTuesday
response.write "T-t-t-tuesday..."
case vbWednesday
response.write "It's Hump-Day!"
case vbThursday
response.write "Today is Thursday. One more to go."
Case vbFriday
Response.write "TGIF!"
Case vbSaturday
Response.write "Sorry, I don't register scripts on Saturday."
end select %>