% function getPgName() getPgName = trim(request.serverVariables("script_name")) getPgName = replace(getPgName, "\", "/") '" getPgName = mid(getPgName, instrrev(getPgName,"/")+1) getPgName = LCase(getPgName) end function %> <%dim strPgID, strTitle select case getpgName case "home.asp" strPgID = "default" case "about.asp" strPgID = "about" case "interview.asp" strPgID = "interview" case "player.asp" strPgID = "player" case "course.asp" strPgID = "course" case "caddy.asp" strPgID = "caddie" case "review.asp" strPgID = "review" case "collection.asp" strPgID = "collection" case "contact.asp" strPgID = "contact" case "site_map.asp" strPgID = "site_map" case else strPgID = "clear" end select %>
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||