correct use of OR statement

[lotos]

Hi guys, I have a situation where I am trying to use the OR statement. And when I'm running the test, I observed that this statement is ignored (or it's not used in the right way). See the code bellow:

Code:

'querying a 'SELECT' event within DB Public Function DBSelect(sqlSelect, itemCode) Dim MyCheck If Browser("URL:=" & Environment.Value("baseUrl")).Exist Then set conn = createobject("adodb.connection") conn.open "DSN=" & Environment.Value("DBdsn") & "; UserID=" & Environment.Value("DBLoginName") & "; Password=" & Environment.Value("DBLoginPass") & ";" set rs = createobject("adodb.recordset") 'get the value from DB rs.open sqlSelect, conn ' running the select to find the field we need to know -> dBitem dBitem = rs(itemCode) ' checking the format of the string got as result of select DB MyCheck = varType(rs(itemCode)) If MyCheck <> 8 or 1 or 9 or 0 Then ' formating the value of the string - adding max 2 nr.'s after the dot (e.g.: 123.09) dBitem = FormatNumber(dBitem, 2) reporter.ReportEvent micPass, "Data BASE:", "the Data within DB for the field: '" & itemCode & "' is: '" & dBitem & "'" Else IF MyCheck = 1 or MyCheck = 0 or MyCheck = 9 Then reporter.ReportEvent micWarning, "Data BASE:", "The Data within DB is: 'Null' or there are no values for requested field; So the value was converted to '0.00'. The warning is to inform you that there is no data." dBitem = "0.00" Else If MyCheck = 8 Then reporter.ReportEvent micPass, "Data BASE:", "the Data within DB for the field: '" & itemCode & "' is: '" & dBitem & "'" End If End If End If rs.close Else reporter.ReportEvent micFail, "ERROR:", "The browser was not found!" End If DBSelect = dBitem End Function

In my case I have the MyCheck = 8, and it is ignoring the first condition and checking it's conditions, but should go to the 3rd condition (Else If MyCheck = 8 Then)

I've tried next ways:
IF MyCheck = 1 or 0 or 9 Then
IF MyCheck = 1 or MyCheck = 0 or MyCheck = 9 Then

Can please anyone help me with right use of OR?!

[sundari.msls]

I think the below logic works for you. Usually when your are using the same variable mutliple times in a condition, you should use AND.
See the code below:

Code:

MyCheck =8 If MyCheck <> 8 AND MyCheck<> 1 AND MyCheck<> 9 AND MyCheck<> 0 Then MsgBox "Mycheck<>8" ElseIF MyCheck = 1 AND MyCheck = 0 AND MyCheck = 9 Then MsgBox "MyCheck=1" ElseIf MyCheck = 8 Then MsgBox "Success" End If

[lotos]

Hi sundari, thanks, but as I know the AND statement when it's used, means that all the conditions are true?! so in this case doesn't AND means that MyCheck <> 8, 1, 9, and 0?!