Custom error page for IIS to redirect to redirect dispatcher

not-found.asp

<%
    option explicit
    Response.Buffer = true
    dim sServerName
    dim sURL
    sServerName = lcase(Request.ServerVariables("SERVER_NAME"))

    select case sServerName
      case "web.friskissvettis.se": sURL = "http://omdirigera.se/404.html"

      case else sURL = "http://whatever.tld"
    end select

   Response.Status = "301 Moved Permanently"
   Response.addheader "Location", sURL
   Response.End
%>