Here are how it is done in v4b04:
Dim strScriptName, strTempArr, strScriptFileName, strPathInfo
strScriptName = Request.ServerVariables("script_name")
strTempArr = Split(strScriptName, "/")
strScriptFileName = lcase(strTempArr(Ubound(strTempArr)))
strPathInfo = Request.ServerVariables("Path_Info")
strCookieURL = Left(strPathInfo, InstrRev(strPathInfo, "/"))
strUniqueID = "Snitz00"
All instances of Request.ServerVariables("path_info") and Request.ServerVariables("script_name") related code everywhere is optimized by using these new global variables.
(noted here for compatibility reasons)