<%
Set ConnTaurus = Server.CreateObject("ADODB.Connection")
ConnTaurus.Open Application("ConnLivequotes_ConnectionString")
set rs= Conntaurus.execute "select * from changedcompanystatus"
while not rs.eof
response.write rs("CompanyName") & "
"
wend
rs.close
conntaurus.close
%>