GAP Analysis Program Links Page

  »  Research and Applications - Browse
    
    ")
  Response.Write("    »  Title")
  Response.Write("    »  Keyword")
  Response.Write("    »  State")
  Response.Write("    »  Contact Person")
  Response.Write("    »  Contact Institution")
  Response.Write("")
  Method = Request.QueryString("Method")
  If Method  "" Then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Application("DSN_RA")
  End If
  Select Case Method
    Case "Title"
      Response.Write("Titles(Sorted Alphabetically)")
      Set RS = Conn.Execute("EXECUTE sp_GetTitles")
      Response.Write("")
      While Not RS.EOF
        Response.Write("  »  " & RS("Title") & "")
        RS.MoveNext
      WEnd
      Response.Write("")
    Case "Keyword"
      Response.Write("Keywords(Sorted Alphabetically)")
      Set RS = Conn.Execute("EXECUTE sp_GetKeywords")
      Response.Write("")
      While Not RS.EOF
        Response.Write("  »  " & RS("Keyword") & " (" & RS("KeywordCount") & ")")
'        Response.Write("  »  " & RS("Keyword") & "")
        RS.MoveNext
      WEnd
      Response.Write("")
      
       Case "State"
      Response.Write("Project State(Sorted Alphabetically)")
      Set RS = Conn.Execute("EXECUTE sp_GetStates")
      Response.Write("")
      While Not RS.EOF
        Response.Write("  »  " & RS("LocationState") & "")
        RS.MoveNext
      WEnd
      Response.Write("")
 Case "ContactPerson"
      Response.Write("Contact People(Sorted Alphabetically)")
      Set RS = Conn.Execute("EXECUTE sp_GetContactPeople")
      Response.Write("")
      While Not RS.EOF
        Response.Write("  »  " & RS("ContactPerson") & "")
        RS.MoveNext
      WEnd
      Response.Write("")
    Case "ContactInstitution"
      Response.Write("Contact Institutions(Sorted Alphabetically)")
      Set RS = Conn.Execute("EXECUTE sp_GetContactFacilities")
      Response.Write("")
      While Not RS.EOF
        Response.Write("  »  " & RS("ContactFacility") & "")
        RS.MoveNext
      WEnd
      Response.Write("")
  End Select
%