%
Dim yService
yService = Request.QueryString("y")
Select Case yService
Case "1"
RestOfPage
Service1Stuff
BottomOfPage
Case "2"
RestOfPage
Service2Stuff
BottomOfPage
Case "andweb"
RestOfPage
SelectStuff
BottomOfPage
Case Else
GetOuttaHere
End Select
%>
<% Sub RestOfPage %>