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.
codice:
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