<%@ WebHandler Language="VB" Class="Handler" %>

Imports System
Imports System.Web
Imports cFastagLib_2009_vb

Public Class Handler : Implements IHttpHandler
    
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
    
	Dim mHost As String = ServerHost()
	        context.Response.ContentType = "text/plain"
			context.Response.Write("User-Agent: * " & vbcr)
			context.Response.Write("Allow: /" & vbcr)
			context.Response.Write("Disallow: /images/" & vbcr)
			context.Response.Write("Disallow: /upload/" & vbcr)
			context.Response.Write("User-Agent: Googlebot-Image" & vbcr)
			context.Response.Write("Disallow: /" & vbcr)
			context.Response.Write("Sitemap: http://" & mHost & "/sitemap.xml.aspx" & vbcr)
    End Sub
 
    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class