You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "customers": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|customers|")>0) THEN strC = sanitizeRequest("customers","querystring") SELECT CASE strC case "view": Server.Execute("/super-user/scripts/customers/view.asp") case "edit": Server.Execute("/super-user/scripts/customers/edit.asp") case "add": Server.Execute("/super-user/scripts/customers/add.asp") case else: Server.Execute("/super-user/scripts/customers/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "business": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|business|")>0) THEN strBU = sanitizeRequest("business","querystring") SELECT CASE strBU case "view": Server.Execute("/super-user/scripts/business_accounts/view.asp") case "edit": Server.Execute("/super-user/scripts/business_accounts/edit.asp") case "add": Server.Execute("/super-user/scripts/business_accounts/add.asp") case else: Server.Execute("/super-user/scripts/business_accounts/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "vehicles": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|vehicles|")>0) THEN strV = sanitizeRequest("vehicles","querystring") SELECT CASE strV case "add": Server.Execute("/super-user/scripts/vehicles/add.asp") case else: Server.Execute("/super-user/scripts/vehicles/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "drivers": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|drivers|")>0) THEN strDRV = sanitizeRequest("drivers","querystring") SELECT CASE strDRV case "add": Server.Execute("/super-user/scripts/drivers/add.asp") case "edit": Server.Execute("/super-user/scripts/drivers/edit.asp") case "view": Server.Execute("/super-user/scripts/drivers/view.asp") case "statements": Server.Execute("/super-user/scripts/drivers/statements.asp") case else: Server.Execute("/super-user/scripts/drivers/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "coverage": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|coverage|")>0) THEN strCVG = sanitizeRequest("coverage","querystring") SELECT CASE strCVG case "add": Server.Execute("/super-user/scripts/coverage/add.asp") case else: Server.Execute("/super-user/scripts/coverage/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "routes": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|routes|")>0) THEN strCVG = sanitizeRequest("routes","querystring") SELECT CASE strCVG case "add": Server.Execute("/super-user/scripts/routes/add.asp") case else: Server.Execute("/super-user/scripts/routes/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "settings": IF str_u_lev="0" OR str_u_allowed="all" OR (InStr(str_u_allowed,"|settings|")>0) THEN strSET = sanitizeRequest("settings","querystring") SELECT CASE strSET case "add": 'do something or not :) case else: Server.Execute("/super-user/scripts/settings/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case "users": IF str_u_lev="0" THEN strUM = sanitizeRequest("users","querystring") SELECT CASE strUM case "add": Server.Execute("/super-user/scripts/users/add.asp") case "view": Server.Execute("/super-user/scripts/users/view.asp") case else: Server.Execute("/super-user/scripts/users/main.asp") END SELECT ELSE response.write("You do not have permission to view this page
") response.write("go back to the previous page
") END IF case else: Server.Execute("/super-user/scripts/dashboard/main.asp") END SELECT %>