or else,
Try using select statements-
dim a as boolean
select a
case 0
request.write("its true")
case 1
request.write("its false")
end...