<% 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 Set RS = Conn.Execute ("SELECT user_type_cd FROM system_users WHERE user_key = " & Session("user_key") ) Do While Not rs.eof utype = RS("user_type_cd") RS.MoveNext loop RS.Close Conn.Close IF TRIM(utype) = "I" Then hname = "custom/header2.gif" ELSE hname = "custom/header1.gif" END IF %>