<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("database1_ConnectionString") Set RS = Conn.Execute ("EXEC pr_web_company_name_ret_proc " & Session("user_key") ) Do While Not rs.eof cname = RS("company_name") RS.MoveNext loop RS.Close Conn.Close %>