<% set rs1=server.CreateObject ("adodb.recordset") rs1.Open "select rdate from racingdates order by rdate desc",oConn,adOpenKeyset 'if not rs.EOF then %>                                             Race Date * ----select---- <% while not rs1.EOF %> "><%=rs1("rdate")%> <% rs1.MoveNext wend 'end if rs1.Close %>