GAP Analysis Program Links Page

  »  Research and Applications
  

RA Home - Search
    - Browse - Add

      
    Search
    This section is searchable by project title, keywords, states, contact person or
    contact institution. Case does not matter.
    Note: When searching for states, some states may be listed by their abbreviations.
    ")
  Response.Write("  ")
  Response.Write("     --  »  Keyword")
  Response.Write("     --  »  Title")
  Response.Write("     --  »  States")
  Response.Write("     --  »  Contact Person")
  Response.Write("     --  »  Contact Institution")
  Response.Write("  ")
  Response.Write("  ")
  Response.Write("  ")
  Response.Write("     --  »  Match part of Field")
  Response.Write("     --  »  Match whole Field")
  Response.Write("  ")
  Response.Write("  ")
  Response.Write("")
  If (Session("SearchPhrase")  "") AND (Session("SearchType")  "") Then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Application("DSN_RA")
  Select Case Session("SearchScope")
    Case 1
      Select Case Session("SearchType")
        Case "Keyword"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchKeywords '%" & Session("SearchPhrase") & "%'")
        Case "Title"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchTitles '%" & Session("SearchPhrase") & "%'")
        Case "States"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchStates '%" & Session("SearchPhrase") & "%'")
        Case "Contact Person"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchContactPerson '%" & Session("SearchPhrase") & "%'")
        Case "Contact Institution"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchContactFacility '%" & Session("SearchPhrase") & "%'")
      End Select
    Case Else
      Select Case Session("SearchType")
        Case "Keyword"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchKeywords '" & Session("SearchPhrase") & "'")
        Case "Title"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchTitles '" & Session("SearchPhrase") & "'")
        Case "States"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchStates '" & Session("SearchPhrase") & "'")
        Case "Contact Person"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchContactPerson '" & Session("SearchPhrase") & "'")
        Case "Contact Institution"
          Set RSSearchResults = Conn.Execute("EXEC sp_SearchContactFacility '" & Session("SearchPhrase") & "'")
      End Select
    End Select
    If Not RSSearchResults.EOF Then
      Response.Write("Search Results:")
    Else
      Response.Write("No Matches. Try revising your search or use the browse function to manually search.")
    End If
    Response.Write("")
    While Not RSSearchResults.EOF
      Response.Write("  »  " & Server.HTMLEncode(RSSearchResults("Title")) & "")
      RSSearchResults.MoveNext
    WEnd
    Response.Write("")
  End If

  Function SQLEncode(SQLEncodeValue)
    For LCV = 1 to Len(SQLEncodeValue)
      Select Case Mid(SQLEncodeValue, LCV, 1)
        Case "'"
          SQLEncode = SQLEncode & "'"
          SQLEncode = SQLEncode & Mid(SQLEncodeValue, LCV, 1)
        Case Else
          SQLEncode = SQLEncode & Mid(SQLEncodeValue, LCV, 1)
      End Select
    Next
  End Function

  Function InsertValue(Value)
    If Value = "" Then
      InsertValue = ""
    Else
      InsertValue = " VALUE=""" & Server.HTMLEncode(Value) & """"
    End If
  End Function

  Function InsertSelected(Value1, Value2)
    If Value1  Value2 Then
      InsertSelected = ""
    Else
      InsertSelected = " SELECTED"
    End If
  End Function
%
 
**This file was converted from HTML to TEXT using a TRIAL version of**
**Markup Remover 1.1 (C) 1998 by Aquatic Moon Software http://www.aquaticmoon.com/**
**This message does not appear in files converted after the program has been liscensed.**