<% dim url url = "" 'on error resume next url = Request.ServerVariables("SCRIPT_NAME") sayfa = split(url, "/") on error goto 0 if sayfa(ubound(sayfa)) = "" then sayfa(ubound(sayfa)) = "default.asp" end if %>