GAP Analysis Program Links Page

home

<% DataColor = "#008000" DataFontStart = "" 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(" ") 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("

") 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 %>

USGS ||Gap Analysis Program || NBII ||
Disclaimer || Privacy || Accessibility||
GAP Webmaster ||