<%@ page language="vb" autoeventwireup="false" inherits="LandcarePortal.CDefault, App_Web_4osp5bck" %> <% Dim UserAgent As String = Request.UserAgent 'For external source to dive into name at the details level Dim NameID As String = LandcarePortal.Utility.GetNameIDFromQueryString(Request.QueryString) 'For external source to dive into name Reference at the details level Dim ReferenceUPK As String = Request.QueryString.Get("RefUPK") 'For external source to dive into name Vernacular at the details level Dim VernacularUPK As String = Request.QueryString.Get("VernacularUPK") 'for external links to collection details Dim CollID As String = Request.QueryString.Get("SpecimenID") Dim from As String = Request.QueryString.Get("from") Dim StateID As String = Request.QueryString.Get("StateID") Dim action As String = "" Dim isUPK As Integer = 0 Dim sort As String = Request.QueryString.Get("Sort") Dim tabNum As String = Request.QueryString.Get("TabNum") Dim dist As String = Request.QueryString.Get("Dist") Dim searchTerm As String = Request.QueryString.Get("SearchTerm") If searchTerm IsNot Nothing AndAlso searchTerm.Length > 0 Then searchTerm = "&searchTerm=" + searchTerm End If 'Just in case more than one UPK is included in the querystring. If Not NameID Is Nothing And NameID <> "" And NavControl <> "details" Then ReferenceUPK = "" VernacularUPK = "" isUPK = 1 ElseIf Not ReferenceUPK Is Nothing And ReferenceUPK <> "" Then NameID = "" VernacularUPK = "" isUPK = 2 ElseIf Not VernacularUPK Is Nothing And VernacularUPK <> "" Then NameID = "" ReferenceUPK = "" isUPK = 3 ElseIf Not CollID Is Nothing And CollID <> "" Then NameID = "" VernacularUPK = "" ReferenceUPK = "" isUPK = 4 If Not from Is Nothing AndAlso from.Length > 0 Then from = "&from=" & from Else from = "" End If End If If NavControl Is Nothing OrElse NavControl = "" Then NavControl = "home" End If 'Controls colour of the tree frame right border (hilite colour found in web config appsetting) Dim borderColour As String = altBGcolor Dim FrameText As String = "" Dim FrameTextNetscrap As String = "" Dim FrameColumnNum As String = "" 'Format FrameText string according to type of name info wanted from the external source. Select Case isUPK 'Normal case when person comes in thru the site itself. Each of the top tabs dictate what each frame will load. 'Sometimes the tree is not needed 'Sometimes the local nav buttons will be different Case 0 Select Case NavControl Case "search", "home" If NavControl = "home" Then FrameText = "" FrameColumnNum = "83,*,0" ElseIf NavControl = "search" Then If Selected = "NameSearch" Then FrameText = "" FrameColumnNum = "83,*,250" ElseIf Selected = "LiteratureSearch" Then FrameText = "" FrameColumnNum = "83,*,0" ElseIf Selected = "CollectionSearch" Then FrameText = "" FrameColumnNum = "83,*,0" ElseIf Selected = "ImageSearch" Then FrameText = "" FrameColumnNum = "83,*,0" ElseIf Selected = "DescriptionSearch" Then FrameText = "" FrameColumnNum = "83,*,0" End If Else FrameColumnNum = "83,*,0" End If Case "about" FrameText = "" FrameColumnNum = "120,*,0" Case "feedback" FrameText = "" FrameColumnNum = "83,*,0" Case "help" FrameText = "" FrameColumnNum = "112,*,0" Case Else FrameText = "" FrameColumnNum = "83,*,250" End Select Case 1 'NameID - Name entry NavControl = "search" If tabNum Is Nothing Then tabNum = "0" FrameText = "" If tabNum < 3 Then FrameColumnNum = "83,*,250" Else FrameColumnNum = "83,*,0" End If Case 2 'RefUPK -reference entry NavControl = "search" FrameTextNetscrap = "" FrameText = "" FrameColumnNum = "83,*,250" Case 3 'VernUPK - vernacular entry NavControl = "search" FrameTextNetscrap = "" FrameText = "" FrameColumnNum = "83,*,250" Case 4 'coll id NavControl = "search" FrameTextNetscrap = "" FrameText = "" FrameColumnNum = "83,*,0" End Select '================================================ 'For the normal startup uses this frameset '================================================ If isUPK = 0 Then action = "Display" If InStr(UserAgent, "MSIE") Then 'FOR IE BROWSERS %> <%If NavControl = "about" Or NavControl = "help" Then%> <%=FrameText%> <%Else%> <%=FrameText%> <%End If%> <body bgcolor="#FFFFFF" text="#000000"> <h1> No frames </h1> </body> <% ElseIf InStr(UserAgent, "Netscape") Then 'FOR NETSCRAP BROWSERS %> <%If NavControl = "about" Or NavControl = "help" Then%> <%=FrameText%> <%Else%> <%=FrameText%> <%End If%> <body bgcolor="#FFFFFF" text="#000000"> <h1> No frames </h1> </body> <% Else 'FOR ALL OTHER BROWSERS %> <%If NavControl = "about" Or NavControl = "help" Then%> <%=FrameText%> <%Else%> <%=FrameText%> <%End If%> <body bgcolor="#FFFFFF" text="#000000"> <h1> No frames </h1> </body> <% End If Else '============================================================== 'For the startup from external source 'NameID = Name details for a UPK 'ReferenceUPK = Reference details for a reference UPK 'VernacularUPK = Vernacular details for a vernacular UPK '============================================================== If InStr(UserAgent, "MSIE") Then 'FOR IE BROWSERS %> <%=FrameText%> <body bgcolor="#FFFFFF" text="#000000"> <h1> No frames </h1> </body> <% ElseIf InStr(UserAgent, "Netscape") Then 'FOR NETSCRAP BROWSERS %> <%=FrameText%> <body bgcolor="#FFFFFF" text="#000000"> <h1> No frames </h1> </body> <% Else 'FOR ALL OTHER BROWSERS %> <%=FrameText%> <body bgcolor="#FFFFFF" text="#000000"> <h1> No frames </h1> </body> <% End If End If %>