Geef je commentaar op:
Twitter Follower Wonderwall
The übercool @bnox hopped over 1000 twitter-followers yesterday and posted her wonderwall of twitter-followers on her blog.
It was generated by a script by Walter Higgins. Cool! Only one thing: I noticed it had only 700 peeps on it. (Actually, I miscounted so thanks @StefaanLesage for the recount )
It's stupid things like this that bug me (litteraly)
I'm conditioned by my job of course: when I see a software bug I automatically switch to "Can we fix it? YES WE CAN!" mode.
I created a little script that gets your followers and displays them in a grid. It turned out to be piece of cake thanks to Twitter's excellent API.
Here's the script if you want to make your own Wonderwall or adapt it.
<%
twitterAccount = "steffest"
twitterPass = "******"
twitterUser = "Bnox"
page=1
colcount=1
response.write("<h1>"&twitterUser&"</h1>")
response.write("<table><tr>")
twitter_getfollowers()
response.write("</tr></table>")
function twitter_getfollowers()
twitterurl = "http://twitter.com/statuses/followers/"&twitterUser&".xml?page=" & page
set objXMLHTTP = Server.CreateObject("MSXML2.SERVERXMLHTTP")
objXMLHTTP.Open "GET", twitterurl, false,twitterAccount,twitterPass
objXMLHTTP.Send
Set objXML = Server.CreateObject("MSXML2.DOMDocument")
bAns = objXML.loadXML(objXMLHTTP.responseText)
if bAns then
set objItemNodes = objXML.DocumentElement.SelectNodes("user")
if objItemNodes.length>0 and page<50 then
for each oNode in objItemNodes
user_name = ""
user_image = ""
if not oNode.selectSingleNode("screen_name") is nothing then user_name = oNode.selectSingleNode("screen_name").Text
if not oNode.selectSingleNode("profile_image_url") is nothing then user_image = oNode.selectSingleNode("profile_image_url").Text
response.write("<td><a href=""http://twitter.com/"&user_name&"""><img src="""&user_image&""" border=""0"" width=""48"" height=""48""></a></td>")
colcount=colcount+1
if colcount>15 then
response.write("</tr><tr>")
colcount=1
end if
next
page=page+1
twitter_getfollowers()
end if
end if
set objXMLHTTP=nothing
twitter_getfollowers = true
end function
%>
