<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("DSN_TS")
Set RSAquatic = Conn.Execute("SELECT * FROM AquaticContacts WHERE AquaticID = '" & Request("AquaticID") & "'")
Set RSContacts = Conn.Execute("EXEC spgetAquaticContact " & RSAquatic("AquaticID"))
Session("AquaticID") = Request("AquaticID")
Response.Write("
Contact Information for " & RSAquatic("ProjectName") & "
A Project of the USGS/BRD
Gap Analysis Program
")
While Not RSContacts.EOF
Response.Write("" & RSContacts("GivenName") & " " & RSContacts("FamilyName")& "
" & "
" &vbCrLf)
Response.Write("Address:" & " " & RSContacts("Address") & "
" &vbCrLf)
Response.Write("Phone:" & " " & RSContacts("Phone") & "
" &vbCrLf)
Response.Write("E-Mail:")) & " " & RSContacts("EMail") & "" & ""
RSContacts.MoveNext
If Not RSContacts.EOF Then
Response.Write("
")
End If
WEND
Response.Write("Project Status")
%>
<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open Application("DSN_TS")
Set RSAquatic = Conn2.Execute("SELECT * FROM AquaticContacts WHERE AquaticID = '" & Request("AquaticID") & "'")
Set RSWeb = Conn2.Execute("EXEC spgetAquaticURL " & RSAquatic("AquaticID"))
Response.Write("
" & "
")
If IsNull(RSWeb("URL")) Then
Response.Write("No website available, please check back.")
Else
Response.Write("Visit the Aquatic Project's Website for more information on GAP applications."))
End If
%>
