ASPクラシックVBが動作しない場合

Question

私はちょうどIF OR演算子でaspクラシックでVBを使用して動作しますが、期待どおり正しく動作していないようです。 VALUES（VALUE1またはVALUE2）のいずれかが0でない値を持っているか、両方とも（例えば）1の値があれば必要です。

set rsY = cn.execute ("SELECT COUNT(VALUE1) AS VALUE1, COUNT(VALUE2) AS VALUE2 FROM DUAL") 
VALUE1= "1" 
VALUE2= "0" 
if not rsY.eof then 
     VALUE1= rsY("VALUE1") 
     VALUE2= rsY("VALUE2") 
    end if 
    set rsY = nothing 


if (Cint(VALUE1) = 0) or (Cint(VALUE2) = 0) then 
'code should here 
else 
'code should here 
end if 

いずれにも事前のおかげで、私はあなたの複数の文を理解するものから

Answer 1

を助けvalue1とVALUE2 のみが両方がゼロに等しい場合である（0）、条件が実行されなければならない場合には、それ以外の場合はそうでない状態が

if (Cint(VALUE1) = 0) AND (Cint(VALUE2) = 0) then 'please note the operator AND 
'code should here 
else 
'code should here 
end if 

Answer 2

Dim rsY, sql, value1, value2 
sql = "SELECT COUNT(VALUE1) AS VALUE1, COUNT(VALUE2) AS VALUE2 FROM DUAL" 
SET rsY = cn.execute (sql) 
value1= 1 'Without "" 
value2= 0 

IF Not rsY.EOF Then 
    value1= rsY("VALUE1") 
    value2= rsY("VALUE2") 
End If 
Set rsY = nothing 


If (Cint(value1) = 0) AND (Cint(value2) = 0) Then 'If Both equals zero 
    Response.Write("Enter in if condition"); 
Else 'If any of the values ​​are different from zero 
    Response.Write("Enter in else condition"); 
End If