Here's the stripped-down version of the Classic ASP code that I used for the StarForce web site (http://greysteele.com/starforce/grouplist.asp (http://greysteele.com/starforce/grouplist.asp)). Our code does quite a bit more (backs up data to local DB, allows sorting by column, displays avatars, links to character detail pages, etc.) but I wanted to provide a simplified version as a code example.
<table ID="Table1">
<tr>
<th>Hero</th>
<th>Level</th>
<th>Progress</th>
<th>Origin</th>
<th>Archtype</th>
<th>Influence</th>
<th>Primary Powerset</th>
<th>Secondary Powerset</th>
<th>Last Updated</th>
</tr>
<%
'use whatever URL is supplied for your SG in your "My Datafeeds"
strURL = "http://cit.cohtitan.com/xml/sg/1152"
'-Get HTML Page
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
On Error Resume Next
objXMLHTTP.Send
OK = True
If (Err.Number <> 0) then
OK = False
end if
if instr(1,objXMLHTTP.ResponseText,"Server Error") > 0 then
OK = false
end if
On Error Goto 0
strReturn = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing
Set oXMLParser = Server.CreateObject("Microsoft.XMLDOM")
If (oXMLParser.LoadXML(strReturn)) and (Instr(strReturn, "Error") =0) Then
Set objLst = oXMLParser.getElementsByTagName("character")
'StopPoint = objLst.length
For i = 0 to (objLst.length - 1)
Response.Write ("<tr>")
response.Write ("<td align=center>" & oXMLParser.documentElement.getElementsByTagName("name").Item(i).Text & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & FormatNumber(oXMLParser.documentElement.getElementsByTagName("security_level").Item(i).Text,0,false,false,true) & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & oXMLParser.documentElement.getElementsByTagName("lvl_progress_num").Item(i).Text & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & oXMLParser.documentElement.getElementsByTagName("origin_name").Item(i).Text & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & oXMLParser.documentElement.getElementsByTagName("archetype_name").Item(i).Text & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & FormatNumber(oXMLParser.documentElement.getElementsByTagName("influence").Item(i).Text,0,false,false,true) & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & oXMLParser.documentElement.getElementsByTagName("primary_name").Item(i).Text & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & oXMLParser.documentElement.getElementsByTagName("secondary_name").Item(i).Text & "</td>")
Response.Write ("<td valign=""middle"" align=""center"">" & FormatDateTime(oXMLParser.documentElement.getElementsByTagName("last_update").Item(i).Text,2) & "</td>")
response.Write ("</tr>")
Next
end if
%>
</table>
Hope that helps any who are looking to take advantage of this new data feed.