<%@ EnableSessionState=False %> <% dim PageName, PageID, PreResponse, PostResponse PageName = LCase(Request.QueryString("pagename")) PageID = 0 if (PageName = "aboutus") then PageID = 1 elseif (PageName = "prodserv") then PageID = 2 elseif (PageName = "news") then PageID = 3 elseif (PageName = "employment") then PageID = 4 elseif (PageName = "contact") then PageID = 5 elseif (PageName = "online") then PageID = 6 elseif (PageName = "forums") then PageID = 7 elseif (PageName = "projects") then PageID = 8 elseif (PageName = "helpdesk") then PageID = 9 elseif (PageName = "store") then PageID = 10 elseif (PageName = "sendsms") then PageID = 11 elseif (PageName = "camtemplate") then PageID = 12 elseif (PageName = "colourcatcher") then PageID = 14 elseif (PageName = "codecommenter") then PageID = 15 elseif (PageName = "dyndns") then PageID = 16 elseif (PageName = "connectspeedtest") then PageID = 17 elseif (PageName = "autoras") then PageID = 18 elseif (PageName = "ispy") then PageID = 19 elseif (PageName = "monitorrecover") then PageID = 20 end if %>

<% PreResponse = "" select case PageID case 0 Response.Write(PreResponse + "Welcome" + PostResponse) case 1 Response.Write(PreResponse + "AboutUs" + PostResponse) case 2 Response.Write(PreResponse + "ProdServ" + PostResponse) case 3 Response.Write(PreResponse + "News" + PostResponse) case 4 Response.Write(PreResponse + "Employment" + PostResponse) case 5 Response.Write(PreResponse + "Contact" + PostResponse) case 6 Response.Write(PreResponse + "OnLine" + PostResponse) case 7 Response.Write(PreResponse + "Forums" + PostResponse) case 8 Response.Write(PreResponse + "Projects" + PostResponse) case 9 Response.Write(PreResponse + "HelpDesk" + PostResponse) ' case 10 Response.Write(PreResponse + "Store" + PostResponse) ' case else Response.Write(PreResponse + "ProdServ" + PostResponse) end select %>     <% select case PageID case 0 Response.Write("") case else Response.Write("") end select %>

<% PreResponse = "