<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("DSN_TS")
Session("StateAbbreviation") = Request("State")
Set RSState = Conn.Execute("SELECT * FROM vstatespecificcontacts WHERE Abbreviation = '" & Session("StateAbbreviation") & "'")
Session("StateName") = RSState("Name")
Session("StateID") = RSState("StateID")
Response.Write("Project Information for " & RSState("Name") & " GAP
A Project of the USGS/BRD
Gap Analysis Program
")
'this is line 33 ***** StartContacts this is good, do not overwrite*****
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open Application("DSN_TS")
Set RSState = Conn2.Execute("SELECT * FROM States WHERE StateID = '" & Session("StateID") & "'")
Set RSContacts = Conn2.Execute("EXEC spGetStateSpecific " & RSState("StateID"))
Response.Write("")
If RSContacts.EOF Then
Response.Write("- Primary Contact - No contact, please check home page
")
Else
Response.Write("- Contact
")
End If
Response.Write"
"
'***** EndContacts *****
%>
<%
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open Application("DSN_TS")
Set RSState = Conn3.Execute("SELECT * FROM States WHERE Abbreviation = '" & Request("State") & "'")
Set RSStateWebSites = Conn3.Execute("EXEC spGetHomePage " & RSState("StateID"))
If IsNull(RSStateWebSites("URL")) Then
Response.Write("No Web Site--Click the Project Status link below to see a summary of information for the project that is updated approximately once per year.")
Else
Response.Write("- Visit the State Project's Website to access more extensive and frequently updated information on GAP applications and other projects of interest in your state."))
End If
Response.Write("
- Project Status
")
%>
<%
Set Conn4 = Server.CreateObject("ADODB.Connection")
Conn4.Open Application("DSN_TS")
Set RSState = Conn4.Execute("SELECT * FROM States WHERE Abbreviation = '" & Request("State") & "'")
Set RSDatalinks = Conn4.Execute("EXEC spGetDataLink " & RSState("StateID"))
If IsNull(RSDataLinks("DataURL")) Then
If IsNull(RSDataLinks("DataMessage")) Then
Response.Write("- Product Availability - No Products, check status for more details
")
Else
Response.Write("- Draft Product Availability There are no final data--This link will take you to interim products.
")
End If
Else
If Session("ReadDisclaimer") = 1 Then
Response.Write("- GAP CD-ROM Products
")
Else
Response.Write("- Product Availability
")
'Response.Write("- Product Availability
")
End If
End If
Response.Write("
")
%>
