Lo sulucione con la siguiente manera
Código ASP:
Ver originalDim eje: Set eje = JSON.parse(Request("filters"))
compa = eje.groupOp
regi = CStr(eje.rules.length)-1
For i=0 to regi
rec = "CStr(eje.rules.get("&i&").field)"
op = "CStr(eje.rules.get("&i&").op)"
dat = "CStr(eje.rules.get("&i&").data)"
if i = 0 then
strWhere = strWhere &" " &compa & " " & eval(rec)
' strWhere = Replace(strWhere,"OR"," ")
else
strWhere = strWhere &" " &compa & " " & eval(rec)
end if
Select Case eval(op)
Case "bw" : 'Begin With
strFieldData = eval(dat) & "%"
strWhere = strWhere & " LIKE '" & eval(dat) & "%'"
Case "eq" : 'Equal
If(IsNumeric(eval(dat))) Then
strWhere = strWhere & " = " & eval(dat)
Else
strWhere = strWhere & " = '" & eval(dat) & "'"
End If
Case "ne": 'Not Equal
If(IsNumeric(eval(dat))) Then
strWhere = strWhere & " <> " & eval(dat)
Else
strWhere = strWhere & " <> '"& eval(dat) &"'"
End If
Case "lt": 'Less Than
If(IsNumeric(eval(dat))) Then
strWhere = strWhere & " < " & eval(dat)
Else
strWhere = strWhere & " < '"& eval(dat) &"'"
End If
Case "le": 'Less Or Equal
If(IsNumeric(eval(dat))) Then
strWhere = strWhere & " <= " & eval(dat)
Else
strWhere = strWhere & " <= '"& eval(dat) &"'"
End If
Case "gt": 'Greater Than
If(IsNumeric(eval(dat))) Then
strWhere = strWhere & " > " & eval(dat)
Else
strWhere = strWhere & " > '"& eval(dat) &"'"
End If
Case "ge": 'Greater Or Equal
If(IsNumeric(eval(dat))) Then
strWhere = strWhere & " >= " & eval(dat)
Else
strWhere = strWhere & " >= '"& eval(dat) &"'"
End If
Case "ew" : 'End With
strWhere = strWhere & " LIKE '%" & eval(dat) & "'"
Case "cn" : 'Contains
strWhere = strWhere & " LIKE '%" & eval(dat) & "%'"
End Select
'Response.Write(strWhere)
next