[SOLUCIONADO] json en un Request

[Fabu_dina]

Esto quebrandome la cabeza en una pagina recibo por medio de Request

es decir

variable= Request("busqueda")

y el valor que esta en variable es

{"groupOp":"AND","rules":[{"field":"campo1","op":"eq","data":"valor_abuscar_ 1"},{"field":"campo2","op":"eq","data":"valor_abus car_2"}]}

como puedo leer esto con asp

estoy usando jqgrid y necesito con esta informacion armar un query de busqueda espero alguien me pueda ayudar

gracias

[Fabu_dina]

Lo sulucione con la siguiente manera

Código ASP:

Dim 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