<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
Set cnn=Server.CreateObject("ADODB.Connection")
cnn.open sDSN
%>
<%
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
%>