<%
Dim condition
condition = Response.IsClientConnected
If condition Then
Response.write("True")
Else
Response.write("False")
End If
'condition = True , Result:True
'condition = False , Result:False
'condition = 2 , Result:True
'condition = 0.01 , Result:True
'condition = 0 , Result:False
'condition = 0.00 , Result:False
'condition = isNumeric(3) , Result:True
'condition = isNumeric("aa") , Result:False
'condition = Array(0,1,"aa","bb")(0) , Result:False
'condition = Array(0,1,"aa","bb")(1) , Result:True
'condition = Response.IsClientConnected , Result:True
%>