% scr = Request.ServerVariables("SCRIPT_NAME") loc = instrRev(scr,"/") scr = mid(scr, loc+1, len(scr) - loc) scr2 = Replace(scr, ".", "") %>