<% Dim strURL, aryURL, pagename, objRegExp strURL = Request.ServerVariables("SCRIPT_NAME") aryURL = Split(strURL, "/", -1, 1) pagename = aryURL(ubound(aryURL)) %>