controllo coupon

[jet]

devo controllare che il coupon sia valido e che non sia stato ancora utilizzato.
Non capisco perchè se il campo coupon del form è vuoto così va, altrimenti non funge il controllo.
Se invece tolgo l' If il controllo funge solo con il campo compilato.

If Not request("coupon") is dbnull.value Then
Dim strSQL2 as String="SELECT coupon FROM reg_bumba WHERE coupon = '" & coupon1 & "' AND coupon <> 'no'"

Dim objCommand2 as New OdbcCommand(strSQL2, cn)

Dim objDataReader2 as OdbcDataReader
objDataReader2 = objCommand2.ExecuteReader

       	Response.Write(strSQL2)

If not ObjDataReader2.hasRows then
Dim strSQL3 as String="SELECT coupon FROM coupon_cont WHERE coupon = '" & coupon1 & "'"
Dim objCommand3 as New OdbcCommand(strSQL3, cn)

Dim objDataReader3 as OdbcDataReader
objDataReader3 = objCommand3.ExecuteReader

       	Response.Write(strSQL3)

If ObjDataReader3.hasRows then
End If