<%@ WebHandler Language="VB" Class="TweetCount" %> Imports System Imports System.Web Imports SqlData Imports System.IO Imports System.Xml Imports System.Net Public Class TweetCount : Implements IHttpHandler Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest context.Response.ContentType = "text/plain" Try Dim reader As XmlTextReader = New XmlTextReader("http://api.tweetmeme.com/url_info?url=http://www.votefc.com") reader.WhitespaceHandling = WhitespaceHandling.Significant reader.ReadToDescendant("url_count") Dim TweetCount As String = reader.ReadElementString("url_count") context.Response.Write("document.getElementById('tweetCount').innerHTML = '" & TweetCount & "';") Catch ex As Exception context.Response.Write("document.getElementById('tweetCount').innerHTML = '?';") End Try End Sub Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable Get Return False End Get End Property End Class