VBScript: CASE Function.. ASP code
CASE function with an integer:
This CASE script tested on dbWriter:
Today is Saturday
<%
DIM idate
DIM strDate
idate=WeekDay(Date)
Select case idate
case 1 strDate="Today is Sunday"
case 2 strDate="Today is Monday"
case 3 strDate="Today is Tuesday"
case 4 strDate="Today is Wednesday"
case 5 strDate="Today is Thursday"
case 6 strDate="Today is Friday"
case 7 strDate="Today is Saturday"
case else strDate="Date ERROR!!"
end select
Response.write strDate
%>
|
CASE function with a string:
Click to test on dbWriter:
Case Test 1
Case Test 2
Case Test 3
Results of test = Test ERROR!!
<%
DIM mode
DIM strCASE
mode = trim(request.queryString("mod"))
Select Case mode
case "CaseTest1" strCASE="Test 1 Success"
case "CaseTest2" strCASE="Test 2 Success"
case "CaseTest3" strCASE="Test 3 Success"
case else strCASE="Test ERROR!!"
end select
Response.write strCASE
%>
|
|
