<%@LANGUAGE="VBScript"%>
Northwest Habitat Institute
<%
On Error Resume Next
strNavBarURL = "nav_ns.asp" 'default navbar for no-script browsers
'-- get browser type --
strBType = "NS" 'no script support
Set objBCap = Server.CreateObject("MSWC.BrowserType")
'Set objBCap = Server.CreateObject("cyScape.browserObj")
strBrowser = objBCap.Browser
strVersion = objBCap.Version
'Response.Write(strBrowser & "
" & strVersion)
If Not IsNumeric(strVersion) Then strVersion = "0"
If objBCap.Script Then
strBType = "JS" 'JavaScript support
strNavBarURL = "./nav_js.asp?section=1"
strFrameURL = "./home/home.asp"
End If
If strBrowser = "Netscape" And strVersion >= "4" Then
strBType = "JS" 'Netscape Navigator 4+
strNavBarURL = "./nav_js.asp?section=1"
strFrameURL = "./home/home.asp"
End If
If strBrowser = "Netscape" And strVersion >= "6" Then
strBType = "JS" 'Netscape Navigator 6+
strNavBarURL = "./nav_js.asp?section=1"
strFrameURL = "./home/home.asp"
End If
If strBrowser = "IE" And strVersion >= "4" Then
strBType = "I4" 'Internet Explorer 4+
strNavBarURL = "nav_i4.asp"
strFrameURL = "./home/home.asp"
End If
'load the specified page into main window if included in Request
strRequestURL = Request.QueryString("pageurl") 'page to load in main window
If Len(strRequestURL) Then strFrameURL = strRequestURL
'load default 'no script' main page if no other page specified
If Len(strFrameURL) = 0 Then strFrameURL = "main_any.asp"
'Added to make refresh work.
'If Session("CurrentPage") <> "null" Then
strFrameURL = Session("CurrentPage")
'Else
'strFrameURL = "./home/home.asp"
'End If
%>
<![CDATA[
<BODY BGCOLOR="#FFFFFF">
<CENTER><H1>Welcome to the Northwest Habitat Institute!</H1></CENTER>
These pages are designed to be used with a browser that supports frames.
As you can see by this message, your browser doesn't have frame support.
<P>Your choices at this point are to either upgrade your browser, or
<A HREF="./home/home.asp">go into our site anyway</A>.
You will be able to use most of the pages without problems.<HR>
<center>
<br><br>
<FONT face=Arial color=#ffffff size=1>NHI site best viewed
with<BR>Microsoft<SUP>®</SUP> Internet Explorer<BR></FONT><A target=nhi2
href="http://www.microsoft.com/windows/ie/default.htm"><IMG height=31
src="./images/msielogo.gif" width=88 vspace=3 border=0></A>
</center><br>
<FONT SIZE="-2">© Northwest Habitat Institute - 2001</FONT>
</BODY>
]]>