<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.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")
End If
End If
Response.Write("")
%>