% if InStr(Request.ServerVariables("HTTP_User-Agent"), "http://") then Response.Status = 404 Response.End end if %>