-
Notifications
You must be signed in to change notification settings - Fork 0
/
navframe6-22.asp
executable file
·96 lines (71 loc) · 3.05 KB
/
navframe6-22.asp
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
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
<!-- #include file="script.asp" -->
<html>
<head>
<title>Main Navigation</title>
<!-- #include file="style.htm" -->
<%
'---------------------------------------------------------------------------------
' Description: Displays user-specific navigation hierarchy.
' History: 06/02/1999 - KDILL - Created
' 08/20/1999 - KDILL - Modified for preferences change.
' 01/12/2000 - KDILL - Added tech alt page check.
'---------------------------------------------------------------------------------
'-----------------------------------
' Get navigational preferences
'-----------------------------------
dim navWelcome, navDirectory, navEmail, navEvents, navNews, navOffice, navProjects, navTechnology
function getNavPref(cookieKey, defaultVal)
dim result
result = request.cookies(cookieKey)
if result = "" then result = defaultVal
getNavPref = "*" & result & "*"
end function
function allowed(srcVal, searchVal)
allowed = (InStr(srcVal, "*" & searchVal & "*") > 0)
end function
navWelcome = getNavPref("navWelcome", Application("DefaultNavWelcome"))
navDirectory = getNavPref("navDirectory", Application("DefaultNavDirectory"))
navEmail = getNavPref("navEmail", Application("DefaultNavEmail"))
navEvents = getNavPref("navEvents", Application("DefaultNavEvents"))
navNews = getNavPref("navNews", Application("DefaultNavNews"))
navOffice = getNavPref("navOffice", Application("DefaultNavOffice"))
navProjects = getNavPref("navProjects", Application("DefaultNavProjects"))
navTechnology = getNavPref("navTechnology", Application("DefaultNavTechnology"))
navTraining = getNavPref("navTraining", Application("DefaultNavTraining"))
navSports = getNavPref("navSports", Application("DefaultNavSports"))
%>
<script language="javascript">
<!--
function showWeather(){
var winWeather
winWeather = window.open("/IntranetDialogs/welcome/weatherMaps.asp?index=0","weatherMap","height=330,width=470,toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=0")
return false;
}
function sendEmail(){
var winTech
winTech = window.open('/IntranetDialogs/email.asp?editto=yes', 'SendEmail','height=330,width=520,toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=1, scrollbar=1');
return false;
}
// -->
</script>
<%
Response.Write("<SCRIPT SRC=""menu/menus.js""></SCRIPT>")
Response.Write("<LINK REL=""stylesheet"" TYPE=""text/css"" HREF=""menu/menus.css""></SCRIPT>")
%>
<!-- #include file='menu/menus.asp' -->
</head>
<base target="body">
<body background="common/images/starback.jpg" bgcolor=black text=white link=white alink=white vlink=white leftmargin=0><center>
<a href="http://www.sark.com" target="_top"><img src="common/images/nav/logo2.gif" width=135 height=99 alt="New Sark.com Site" border=0></a><br>
<!-- Menu code by Ryan Dlugsz 6/2/00
This code implements a DHTML menu for the left hand side
Code is in 'menu' subdirectory
-->
<!-- #include file="menu/menu.asp" -->
<SCRIPT>
<!--
top.body.location="welcome/content/default.asp";
// -->
</SCRIPT>
</body>
</html>