<%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DSN_TS") Session("StateAbbreviation") = Request("StateAbbreviation") Set RSState = Conn.Execute("SELECT * FROM vstatespecificcontacts WHERE Abbreviation = '" & Session("StateAbbreviation") & "'") Session("StateName") = RSState("Name") Session("StateID") = RSState("StateID") If (Request.QueryString("StateAbbreviation") <> "") And (Request.QueryString ("StateName") <> "") Then Response.Write("Continue to " & Request.QueryString("StateName") & " CD-ROM Products") End If %>