| |
Salary.com Non-Executive 100
![]() |
 |
![]() |
| The Salary.com
100 |
![]() |
| |
100
Jobs That Pay Over $100K
|
|
|
|
Salary.com
100 Non-Executive Job Titles
|
|
Rank
|
Job
Title
|
Salary
|
|
1
|
|
|
|
2
|
|
|
|
3
|
|
|
|
4
|
|
|
|
5
|
|
|
|
6
|
|
|
|
7
|
|
|
|
8
|
|
|
|
9
|
|
|
|
10
|
|
|
|
11
|
|
|
|
12
|
|
|
|
13
|
|
|
|
14
|
|
|
|
15
|
|
|
|
16
|
|
|
|
17
|
|
|
|
18
|
|
|
|
19
|
|
|
|
20
|
|
|
|
21
|
|
|
|
22
|
|
|
|
23
|
|
|
|
24
|
|
|
|
25
|
|
|
|
26
|
|
|
|
27
|
|
|
|
28
|
|
|
|
29
|
|
|
|
30
|
|
|
|
31
|
|
|
|
32
|
|
|
|
33
|
|
|
|
34
|
|
|
|
35
|
|
|
|
36
|
|
|
|
37
|
|
|
|
38
|
|
|
|
39
|
|
|
|
40
|
|
|
|
41
|
|
|
|
42
|
|
|
|
43
|
|
|
|
44
|
|
|
|
45
|
|
|
|
46
|
|
|
|
47
|
|
|
|
48
|
|
|
|
49
|
|
|
|
50
|
|
|
|
51
|
|
|
|
52
|
|
|
|
53
|
|
|
|
54
|
|
|
|
55
|
|
|
|
56
|
|
|
|
57
|
|
|
|
58
|
|
|
|
59
|
|
|
|
60
|
|
|
|
61
|
Six
Sigma Master Black Belt
|
$118,900
|
|
62
|
|
|
|
63
|
|
|
|
64
|
|
|
|
65
|
|
|
|
66
|
|
|
|
67
|
|
|
|
68
|
|
|
|
69
|
|
|
|
70
|
|
|
|
71
|
|
|
|
72
|
|
|
|
73
|
|
|
|
74
|
|
|
|
75
|
|
|
|
76
|
|
|
|
77
|
|
|
|
78
|
|
|
|
79
|
|
|
|
80
|
|
|
|
81
|
|
|
|
82
|
|
|
|
83
|
|
|
|
84
|
|
|
|
85
|
|
|
|
86
|
|
|
|
87
|
|
|
|
88
|
|
|
|
89
|
|
|
|
90
|
|
|
|
91
|
|
|
|
92
|
|
|
|
93
|
|
|
|
94
|
|
|
|
95
|
|
|
|
96
|
|
|
|
97
|
|
|
|
98
|
|
|
|
99
|
|
|
|
100
|
|
|
|
Source:
Salary.com August 2005
|
View
Salary.com Executive 100 list
| |
|
 |
<%
strContentSiteID = "Salary"
strAreaID = "SAL"
dim strAccpPageName, strHeadPos, strAccpArea
'get full url and make it as lower case
strAccpPageName = Lcase(Request.ServerVariables("SCRIPT_NAME"))
'response.write "
strAccpPageName: " & strAccpPageName & "*****
"
'get start position for area name
strHeadPos = InStr(1, strAccpPageName, "/", 1)
'get
strAccpArea = right(strAccpPageName, len(strAccpPageName) - strHeadPos)
'response.write "
strAccpPageName: " & strAccpArea & "=========
"
'get second position for area name
strHeadPos = InStr(1, strAccpArea, "/", 1)
'remove
strAccpArea = left(strAccpArea, strHeadPos - 1)
'response.write "
strAccpPageName: " & strAccpArea & "---------
"
select case LCase(strAccpArea)
case "aboutcompany"
strArea = "ABU"
case "advancedsearch"
strArea = "ASE"
case "advice"
strArea = "ADV"
case "benefits"
strArea = "BEN"
case "careers"
strArea = "CAR"
case "compensation"
strArea = "COM"
case "ecm"
strArea = "ECM"
case "enterprise"
strArea = ""
case "home"
strArea = "HP"
case "learning"
strArea = "LRN"
case "money"
strArea = "MON"
case "salary"
strArea = "SAL"
case "selftests"
strArea = "SFT"
case "sitesearch"
strArea = "SSE"
case "smallbiz"
strArea = ""
end select
%>
|
|
|
|
|
|
|
|
|
|
| Advertisement |
|
|
<%
strTargets = "/AAMSZ=160x600_RIGHT/SITE=SALARY/AREA=" & strArea & "/SJCOD=/SJCAT=/SMET=/SST=/SSAL=/PNAME=/POS=0"
with Response
'make top ad call
.Write ""
end with
%>
|
|
|
|
<%
sub create_career_iframe_careerjournal (iCountJobTitle, _
strNarrowCode, _
strNarrowDesc, _
strJobCode, _
strJobTitle, _
strIframeWidth, _
strIframeHeight, _
strDisplayCharLen, _
strTableBorderWidth, _
strPageName)
Response.Write ""
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " ![]() | "
Response.Write " "
Response.Write " "
Response.Write " ![]() | "
Response.Write " "
Response.Write " "
Response.Write " | "
Response.Write " ![]() | "
Response.Write " "
Response.Write " ![]() | "
Response.Write " "
Response.Write " | "
Response.Write " "
Response.Write " "
end sub
sub create_career_classfinder (strNarrowCode,strJobTitle)
dim strAccpPageName, strHeadPos, strAccpArea
'get full url and make it as lower case
strAccpPageName = Lcase(Request.ServerVariables("SCRIPT_NAME"))
'response.write "
strAccpPageName: " & strAccpPageName & "*****
"
'get start position for area name
strHeadPos = InStr(1, strAccpPageName, "/", 1)
'get
strAccpArea = right(strAccpPageName, len(strAccpPageName) - strHeadPos)
'response.write "
strAccpPageName: " & strAccpArea & "=========
"
'get second position for area name
strHeadPos = InStr(1, strAccpArea, "/", 1)
'remove
strAccpArea = left(strAccpArea, strHeadPos - 1)
'response.write "
strAccpPageName: " & strAccpArea & "---------
"
select case LCase(strAccpArea)
case "aboutcompany"
strArea = "ABU"
case "advancedsearch"
strArea = "ASE"
case "advice"
strArea = "ADV"
case "benefits"
strArea = "BEN"
case "careers"
strArea = "CAR"
case "compensation"
strArea = "COM"
case "ecm"
strArea = "ECM"
case "enterprise"
strArea = ""
case "home"
strArea = "HP"
case "learning"
strArea = "LRN"
case "money"
strArea = "MON"
case "salary"
strArea = "SAL"
case "selftests"
strArea = "SFT"
case "sitesearch"
strArea = "SSE"
case "smallbiz"
strArea = ""
end select
dim intNumJobBoards
dim arrayJobBanner
redim arrayJobBanner(20)
response.write "" & chr(13)
response.write ""
response.write "" & chr(13)
response.write ""
response.write "" & chr(13)
response.write ""
intNumJobBanner = 3
Response.Write ""
Response.Write ""
Response.Write " "
Response.Write " "
Response.Write " ![]() | "
Response.Write " "
Response.Write " "
Response.Write " | Learn More to Earn More: | "
Response.Write " "
Response.Write " "
Response.Write " ![]() | "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write ""
for i = 0 to intNumJobBanner -1
Response.Write " ![]() | "
Response.Write " " & arrayJobBanner(i) & " | "
Response.Write " ![]() | "
'Response.Write " ![]() | "
next
Response.Write " "
Response.Write " | "
Response.Write " "
Response.Write " "
Response.Write " ![]() | "
Response.Write " "
Response.Write " "
Response.Write " | "
Response.Write " "
Response.Write " "
end sub
%>
|
|
|
