<% Function Filter(strText) Filter = Replace(strText, "path.asp", "") End Function path=Request.ServerVariables ("PATH_INFO") response.Write filter(path) %>