GAP Analysis Program Links Page

  »    

RA Home - Search
    - Browse - Add

      
"
  LabelFontStart = ""
  LabelFontEnd = ""
  ProjectID = Request.QueryString("ProjectID")
  If ProjectID  "" Then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Application("DSN_RA")
    Set RSPM = Conn.Execute("EXECUTE sp_GetProjectMain '" & ProjectID & "'")
    Set RSPC = Conn.Execute("EXECUTE sp_GetContact '" & ProjectID & "'")
    Set RSPD = Conn.Execute("EXECUTE sp_GetProjectDescription '" & ProjectID & "'")
    Set RSPP = Conn.Execute("EXECUTE sp_GetProjectProgress '" & ProjectID & "'")
    Set RSK = Conn.Execute("EXECUTE sp_GetKeyword '" & ProjectID & "'")
    If Not RSPM.EOF Then
      Response.Write("")
      Response.Write("")
      Response.Write("")
      Response.Write("" & Server.HTMLEncode(RSPM("Type")) & " - """ & Server.HTMLEncode(RSPM("Title")) & """")
      Response.Write(LabelFontStart & "Project Number: " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("Number")) & "
")
      Response.Write(LabelFontStart & "Project Status: " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("Status")) & "
")
      Response.Write(LabelFontStart & "Project Date: " & LabelFontEnd & DataFontStart & RSPM("StartDate") & " " & LabelFontStart & "to " & LabelFontEnd & DataFontStart & RSPM("EndDate") & "
")
      Response.Write(LabelFontStart & "Contact: " & LabelFontEnd)
      Response.Write("" & DataFontStart)
      If RSPC("ContactPerson")  "" Then
        Response.Write(Server.HTMLEncode(RSPC("ContactPerson")) & "
")
      End If
      If RSPC("ContactFacility")  "" Then
        Response.Write(Server.HTMLEncode(RSPC("ContactFacility")) & "
")
      End If
      If RSPC("ContactAddress")  "" Then
        Response.Write(Server.HTMLEncode(RSPC("ContactAddress")) & "
")
      End If
      If RSPC("ContactCity")  "" Then
        Response.Write(Server.HTMLEncode(RSPC("ContactCity")))
      End If
      If RSPC("ContactState")  "" Then
        Response.Write(", " & Server.HTMLEncode(RSPC("ContactState")))
      End If
      If RSPC("ContactZipCode")  "" Then
        Response.Write(" " & Server.HTMLEncode(RSPC("ContactZipCode")))
      End If
      If RSPC("ContactCountry")  "" Then
        Response.Write("
" & Server.HTMLEncode(RSPC("ContactCountry")))
      End If
      Response.Write("")
      Response.Write("      " & LabelFontStart & "Contact Phone: " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPC("ContactPhone")) & "")
      If RSPC("ContactPhoneExtension")  "" Then
        Response.Write(" " & LabelFontStart & "ext." & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPC("ContactPhoneExtension")) & "
")
      Else
        Response.Write("
")
      End If
      Response.Write("      " & LabelFontStart & "Contact E-mail: " & LabelFontEnd & DataFontStart & "" & Server.HTMLEncode(RSPC("ContactEmail")) & "
")
      Response.Write("      " & LabelFontStart & "Project Location - Countr(y/ies): " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("LocationCountry")) & "
")
      Response.Write("      " & LabelFontStart & "Project Location - State(s): " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("LocationState")) & "
")
      Response.Write("      " & LabelFontStart & "Project Location - Area(s): " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("LocationArea")) & "
")
      Response.Write("      " & LabelFontStart & "Project Description: " & LabelFontEnd & "" & DataFontStart & AddParagraphHTML(Server.HTMLEncode(RSPD("Description"))) & "")
      Response.Write("      " & LabelFontStart & "Project Progress: " & LabelFontEnd & "" & DataFontStart & AddParagraphHTML(RSPP("ProgressDate") & " - " & Server.HTMLEncode(RSPP("ProgressMemo"))) & "")
      Response.Write("      " & LabelFontStart & "Cooperating Institution(s): " & LabelFontEnd & "" & DataFontStart & AddBreaks(Server.HTMLEncode(RSPM("CooperatingInstitutions"))) & "")
      Response.Write("      " & LabelFontStart & "Additional Information: " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("AdditionalInformation")) & "
")
      Response.Write("      " & LabelFontStart & "Additional Information URL: " & LabelFontEnd & "" & Server.HTMLEncode(RSPM("AdditionalInformationURL")) & "
")
      Response.Write("      " & LabelFontStart & "Request for Assistance: " & LabelFontEnd & DataFontStart & Server.HTMLEncode(RSPM("RequestForAssistance")) & "
")
      Response.Write("      " & LabelFontStart & "Keywords: " & LabelFontEnd & "" & DataFontStart)
      If Not RSK.EOF Then
        Response.Write(Server.HTMLEncode(RSK("Keyword")))
        RSK.MoveNext
      End If
      While Not RSK.EOF
        Response.Write(", " & Server.HTMLEncode(RSK("Keyword")))
        RSK.MoveNext
      WEnd
      Response.Write("")
      Response.Write("      Created(Updated) Date: " & RSPM("CreatedDate") & "(" & RSPM("ModifiedDate") & ")")
      Response.Write("    ")
      Response.Write(" ")
      Response.Write("")
    Else
      Response.Write("The record you are looking for no longer exists. Go here to pick another.")
    End If
  Else
    Response.Write("You need to pick a record to look at first. Go here to pick one.")
	Response.Write("If you are looking for the BEST link found in Bulletin 7, click here.")
  End If

  Function AddParagraphHTML(Value)
    AddParagraphHTML = ""
    For LCV = 1 to Len(Value)
      If (Mid(Value, LCV, 1) = Chr(13)) Then
        AddParagraphHTML = AddParagraphHTML & ""
        If LCV  Len(Value) Then
          AddParagraphHTML = AddParagraphHTML & ""
        End If
      Else
        AddParagraphHTML = AddParagraphHTML & Mid(Value, LCV, 1)
      End If
    Next
    AddParagraphHTML = AddParagraphHTML & ""
  End Function

  Function AddBreaks(Value)
    For AddBreaksLCV = 1 to Len(Value)
      If Mid(Value, AddBreaksLCV, 1) = Chr(13) Then
        AddBreaks = AddBreaks & "
" & CHR(13)
      Else
        AddBreaks = AddBreaks & Mid(Value, AddBreaksLCV, 1)
      End If
    Next
  End Function
% 

 dividing greenBarLiterature  | About
GAP | 
Projects and Products | 
Tools | 
Meetings | 
Search |  Links
| Bulletin Boards

 USGS ||
Gap Analysis Program ||

Disclaimer || Privacy
|| Accessibility||

GAP Webmaster
 ||