Optimering af simpel ASP-script

Hvordan optimeres nedenstående, så det ikke kommer til at køre langsomt, hvis jeg f.eks. udvider det med mange flere punkter og underpunkter:

På forhånd tak for hjælpen

MVH
Jens

<%
\'FINDER DEN VALGTE SEKTION
theURL = LCase(Request.ServerVariables(\"Query_String\"))

check = InStr(1, theURL, \"forside/\")
If check => \"1\" Then Selectedmenu = (\"1\")
check = InStr(1, theURL, \"multimedia/\")
If check => \"1\" Then Selectedmenu = (\"2\")
check = InStr(1, theURL, \"nyhedsbrev/\")
If check => \"1\" Then Selectedmenu = (\"3\")
check = InStr(1, theURL, \"kontakt_os/\")
If check => \"1\" Then Selectedmenu = (\"4\")

%>