<% Set rs = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN %>

•   Start Bidding
  <% sSQL = "SELECT sectionID,sectionName FROM sections WHERE topSection=0" rs.open sSQL,cnn,3,3 do while not rs.eof sSQL = "SELECT sectionID FROM sections WHERE topSection="& rs("sectionID") rs2.open sSQL,cnn,3,3 if not rs2.eof then %>
  • " title="<%=sectionName%>">  <%=rs("sectionName")%>
  <% else %>
  • " title="<%=sectionName%>">  <%=rs("sectionName")%>
  <% end if rs2.close rs.movenext loop rs.close %>