Classic ASP
SugarCRM Filtering Records

Export records and filter.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set rest = Server.CreateObject("Chilkat.Rest")

success = rest.Connect("your.site.domain",443,1,1)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

success = rest.AddHeader("Cache-Control","no-cache")
success = rest.AddHeader("OAuth-Token","<access_token>")

' The following code creates the JSON request body.
' The JSON created by this code is shown below.
set jsonReq = Server.CreateObject("Chilkat.JsonObject")
success = jsonReq.UpdateString("filter[0].$or[0].name.$starts","A")
success = jsonReq.UpdateString("filter[0].$or[1].name.$starts","b")
success = jsonReq.UpdateNumber("max_num","2")
success = jsonReq.UpdateNumber("offset","0")
success = jsonReq.UpdateString("fields","id")
success = jsonReq.UpdateString("order_by","date_entered")
success = jsonReq.UpdateBool("favorites",0)
success = jsonReq.UpdateBool("my_items",0)

' The JSON request body created by the above code:

' {
'   "filter": [
'     {
'       "$or": [
'         {
'           "name": {
'             "$starts": "A"
'           }
'         },
'         {
'           "name": {
'             "$starts": "b"
'           }
'         }
'       ]
'     }
'   ],
'   "max_num": 2,
'   "offset": 0,
'   "fields": "id",
'   "order_by": "date_entered",
'   "favorites": false,
'   "my_items": false
' }

set sbReq = Server.CreateObject("Chilkat.StringBuilder")
success = jsonReq.EmitSb(sbReq)

success = rest.AddHeader("Content-Type","application/json")

set sbJson = Server.CreateObject("Chilkat.StringBuilder")
success = rest.FullRequestSb("POST","/rest/v10/Accounts/filter",sbReq,sbJson)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

If (rest.ResponseStatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Received error response code: " & rest.ResponseStatusCode) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Response body:") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( sbJson.GetAsString()) & "</pre>"
    Response.End
End If

set json = Server.CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.

next_offset = json.IntOf("next_offset")
i = 0
count_i = json.SizeOfArray("records")
Do While i < count_i
    json.I = i
    id = json.StringOf("records[i].id")
    date_modified = json.StringOf("records[i].date_modified")
    v_module = json.StringOf("records[i]._module")
    i = i + 1
Loop

' A sample JSON response body that is parsed by the above code:

' {
'   "next_offset": 2,
'   "records": [
'     {
'       "id": "f16760a4-3a52-f77d-1522-5703ca28925f",
'       "date_modified": "2016-04-05T10:23:28-04:00",
'       "_acl": {
'         "fields": {}
'       },
'       "_module": "Accounts"
'     },
'     {
'       "id": "ec409fbb-2b22-4f32-7fa1-5703caf78dc3",
'       "date_modified": "2016-04-05T10:23:28-04:00",
'       "_acl": {
'         "fields": {}
'       },
'       "_module": "Accounts"
'     }
'   ]
' }

Response.Write "<pre>" & Server.HTMLEncode( "Example Completed.") & "</pre>"

%>
</body>
</html>