If I had to do this, I would have coded as under
Let chk_1,chk_2,chk_3,chk_4 be the elements
Dim str_check
str_check = ""
if request(chk_1) <> "" then
str_check = str_check & "1"
else
str_check = str_check & "0"
end if
if request(chk_2) <> "" then
str_check = str_check & "1"
else
str_check = str_check & "0"
end if
if request(chk_3) <> "" then
str_check = str_check & "1"
else
str_check = str_check & "0"
end if
if request(chk_4) <> "" then
str_check = str_check & "1"
else
str_check = str_check & "0"
end if
Now the str_chk will have a 4 characters in it (eg .. 1001,1100 etc..)
So I can directly use switch statements (switch is always better than using a lot of if statements)
Select Case str_chk
Case "0000"
statements . . .
Case "0001"
statements ....
...
...
case "1111"
statements ....
End Select
Hope this would be better ....