<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%section = request.querystring("section") select case section '----------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------- case "home":Response.Write("Skateparks Design & Construction - Welcome") case "company":Response.Write("Skateparks Design & Construction - Company") case "comp_earthmoving":Response.Write("Skateparks Design & Construction - Company - Earthmoving") case "comp_landscaping":Response.Write("Skateparks Design & Construction - Company - Landscaping") case "comp_building":Response.Write("Skateparks Design & Construction - Company - Building") case "comp_quality":Response.Write("Skateparks Design & Construction - Company - Quality, Liability & Compliance") case "comp_contractors":Response.Write("Skateparks Design & Construction - Company - Contractors") case "comp_local":Response.Write("Skateparks Design & Construction - Company - Local Businesses") case "comp_completed":Response.Write("Skateparks Design & Construction - Company - Completed Projects") case "comp_payment":Response.Write("Skateparks Design & Construction - Company - Payment & Terms") case "projects":Response.Write("Skateparks Design & Construction - Projects") case "completed_projects":Response.Write("Skateparks Design & Construction - Completed Projects") case "construction":Response.Write("Skateparks Design & Construction - Construction") case "construction_methods":Response.Write("Skateparks Design & Construction - Construction - Construction Methods") case "testimonials":Response.Write("Skateparks Design & Construction - Testimonials") case "contact":Response.Write("Skateparks Design & Construction - Contact Us") case "thankyou":Response.Write("Skateparks Design & Construction - Thankyou") case else:Response.Write("Skateparks Design & Construction - Welcome") '----------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------- end select%>
<%section = request.querystring("section") select case section '----------------------------------------------------------------------------------------------------------------------------- case "home":Response.Write("") case "company":Response.Write("") case "comp_earthmoving":Response.Write("") case "comp_landscaping":Response.Write("") case "comp_building":Response.Write("") case "comp_quality":Response.Write("") case "comp_contractors":Response.Write("") case "comp_local":Response.Write("") case "comp_completed":Response.Write("") case "comp_payment":Response.Write("") case "projects":Response.Write("") case "completed_projects":Response.Write("") case "construction":Response.Write("") case "construction_methods":Response.Write("") case "testimonials":Response.Write("") case "contact":Response.Write("") case "thankyou":Response.Write("") case else:Response.Write("") '----------------------------------------------------------------------------------------------------------------------------- end select%>
<%section = request.querystring("section") select case section '----------------------------------------------------------------------------------------------------------------------------- case "home":server.Execute("menu_home.htm") case "company":server.Execute("menu_company.htm") case "comp_earthmoving":server.Execute("menu_company.htm") case "comp_landscaping":server.Execute("menu_company.htm") case "comp_building":server.Execute("menu_company.htm") case "comp_quality":server.Execute("menu_company.htm") case "comp_contractors":server.Execute("menu_company.htm") case "comp_local":server.Execute("menu_company.htm") case "comp_completed":server.Execute("menu_company.htm") case "comp_payment":server.Execute("menu_company.htm") case "projects":server.Execute("menu_projects.htm") case "completed_projects":server.Execute("menu_projects.htm") case "construction":server.Execute("menu_construction.htm") case "construction_methods":server.Execute("menu_construction.htm") case "testimonials":server.Execute("menu_home.htm") case "contact":server.Execute("menu_home.htm") case "thankyou":server.Execute("menu_home.htm") case else:server.Execute("menu_home.htm") '----------------------------------------------------------------------------------------------------------------------------- end select%> <%section = request.querystring("section") select case section '----------------------------------------------------------------------------------------------------------------------------- case "home":server.Execute("home.asp") case "company":server.Execute("company.asp") case "comp_earthmoving":server.Execute("comp_earthmoving.asp") case "comp_landscaping":server.Execute("comp_landscaping.asp") case "comp_building":server.Execute("comp_building.asp") case "comp_quality":server.Execute("comp_quality.asp") case "comp_contractors":server.Execute("comp_contractors.asp") case "comp_local":server.Execute("comp_local.asp") case "comp_completed":server.Execute("comp_completed.asp") case "comp_payment":server.Execute("comp_payment.asp") case "projects":server.Execute("projects.asp") case "completed_projects":server.Execute("completed_projects.asp") case "construction":server.Execute("construction.asp") case "construction_methods":server.Execute("construction_methods.asp") case "testimonials":server.Execute("testimonials.asp") case "contact":server.Execute("contact.asp") case "thankyou":server.Execute("thankyou.asp") case else:server.Execute("home.asp") '----------------------------------------------------------------------------------------------------------------------------- end select%>