<%@ WebHandler Language="VB" Class="FBLink" %>

Imports System
Imports System.Web

Public Class FBLink : Implements IHttpHandler, IReadOnlySessionState
    
	Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
		Try
			Dim ID As Integer
			If Not context.Session.Item("TrackID") Is Nothing Then
				ID = context.Session.Item("TrackID")
			End If
			If ID > 0 Then
				SqlData.DbDMLCommand("UPDATE TrackVisits2 SET ClickDate = GETDATE() WHERE ID = " & ID)
			Else
				SqlData.DbDMLCommand("INSERT INTO TrackVisits2 (Referrer, ClickDate) VALUES ('" & context.Request.ServerVariables("HTTP_REFERER") & "',GETDATE())")
			End If
			context.Response.Redirect("http://apps.facebook.com/chasecommunitygiving/charities/263849", False)
        Catch ex As Exception
        End Try
	End Sub
 
	Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
		Get
			Return False
		End Get
	End Property

End Class