<%
Set CN = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
CN.ConnectionString = "DSN=stardata"
CN.open
SQL = "SELECT business from businessdata GROUP BY businessdata.business"
Set RS = CN.Execute(SQL)
%>
<%
On Error Resume Next
RS.MoveFirst
do while Not RS.eof %>
