Classic ASP
Get Individual Photo Info

Assuming we have the ID of a Photo, this example demonstrates how to retrieve the photo information and parse the JSON.
Chilkat Classic ASP Downloads

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

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' This example assumes a previously obtained an access token
set oauth2 = Server.CreateObject("Chilkat.OAuth2")
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

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

' Connect to Facebook...
success = rest.Connect("graph.facebook.com",443,1,1)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

' Provide the authentication credentials (i.e. the access key)
success = rest.SetAuthOAuth2(oauth2)

' Assumes we've already obtained a Photo ID.
photoId = "10210199026347451"

set sbPath = Server.CreateObject("Chilkat.StringBuilder")
success = sbPath.Append("/v2.7/")
success = sbPath.Append(photoId)

' Select the fields we want.
' This example will select many of the possible fields.
' See https://developers.facebook.com/docs/graph-api/reference/photo/
success = rest.AddQueryParam("fields","id,album,can_delete,can_tag,from,height,width,images,link,name,name_tags,picture,place,target")

responseJson = rest.FullRequestNoBody("GET",sbPath.GetAsString())
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

set json = Server.CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
success = json.Load(responseJson)

' Show the JSON in human-readable format.
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' A sample response is shown below.
' Demonstrate how to parse values from the JSON.
Response.Write "<pre>" & Server.HTMLEncode( "Album name: " & json.StringOf("album.name")) & "</pre>"
canDelete = json.BoolOf("can_delete")
Response.Write "<pre>" & Server.HTMLEncode( "Can Delete: " & canDelete) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "From Name: " & json.StringOf("from.name")) & "</pre>"
height = json.IntOf("height")
width = json.IntOf("width")
Response.Write "<pre>" & Server.HTMLEncode( "Dimensions: " & width & "x" & height) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "First Image Source: " & json.StringOf("images[0].source")) & "</pre>"

' A sample JSON response is shown here.  
' { 
'   "id": "10210199026347451",
'   "album": { 
'     "created_time": "2009-10-19T00:06:46+0000",
'     "name": "Timeline Photos",
'     "id": "1237223526054"
'   },
'   "can_delete": true,
'   "can_tag": true,
'   "from": { 
'     "name": "Matt Smith",
'     "id": "10224048320139890"
'   },
'   "height": 120,
'   "width": 120,
'   "images": [
'     { 
'       "height": 120,
'       "source": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026347451_7830642117574407060_n.jpg?oh=a7f9ed10cf9cd81a82adeb541c60e2e2&oe=58ABB195",
'       "width": 120
'     }
'   ],
'   "link": "https:\/\/www.facebook.com\/photo.php?fbid=10210199026347451&set=a.1237223526054.2038240.1093202869&type=3",
'   "name": "Ignore my posts -- I'm doing some testing for Facebook related programming...",
'   "picture": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026347451_7830642117574407060_n.jpg?oh=a7f9ed10cf9cd81a82adeb541c60e2e2&oe=58ABB195"
' }
' 

%>
</body>
</html>