<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DSN_TS") Session("StateAbbreviation") = Request.QueryString("StateAbbreviation") Set RSdatalinks = Conn.Execute("SELECT * From vdatalinks WHERE Abbreviation= '" & Request("StateAbbreviation") & "'") 'If Not RSdatalinks.EOF Then If IsNull(RSdatalinks("DataURL")) Then If IsNull(RSdatalinks("DataMessage")) Then Response.Write("There is no data listed for " & RSdatalinks("Name") & ". Please check status for more information.") Else Response.Write("Please visit the State Data Holdings for more information.") End If Else 'Response.Redirect(RSdatalinks("DataURL")) Response.Write("Order " & RSDataLinks("Name") & " CD-ROM Products here.") 'End if 'Else ' Response.Write("Error: Something just happened that is not supposed to happen. Please report it to jmaxwell@uidaho.edu. Thanks.") End If %>