Classic ASP and Facebook Graph API

<% Option Explicit %>
<script language="javascript" runat="server" src="json2.asp"></script>
<!-- #INCLUDE FILE="fb_app.asp" -->
<!-- #INCLUDE FILE="fb_graph_api_app.asp" -->

<%
list_test

function list_test
    dim obj
    dim itm
    dim ix
    
    set obj = new List
    
    set  itm = new DataObject
    itm.key = "Item1"
    itm.item = "ABCDEFG"
    obj.Add(itm)
    
    
    set  itm = new DataObject
    itm.key = "Item2"
    itm.item = "HIJKLMN"
    obj.Add(itm)
    
    set  itm = new DataObject
    itm.key = "Item2"
    itm.item = "OPQRSTU"
    obj.Add(itm)


    set  itm = new DataObject
    itm.key = "Item4"
    itm.item = "WXYZ"
    obj.Add(itm)


    for ix = 0 to 3
        WriteBR( ix & " " & obj(ix).item )
    next

    
end function


class DataObject
    dim m_key
    dim m_item
    
    sub Class_Initialize()
        m_key = ""
        m_item = ""
    end sub
    
    property get key()
        key = m_key
    end property
    
    property let key(value)
        m_key = value
    end property
    
    property get item()
        item = m_item
    end property
    
    property let item(value)
        m_item = value
    end property
    
end class

function WriteBR( str )
    response.write str
    response.write "<br/>"
end function



%>