<%
rows=getrs("select id,"&prefix&"p1 from "&prefix&"lm where "&prefix&"s3=2 order by "&prefix&"s2 desc,id desc","")
if rowslen>=0 then
for i=0 to rowslen
if id=abint(rows(0,i)) then
cl="-on"
else
cl=""
end if
%>
▶ <%=rows(1,i)%>
<%
if id=abint(rows(0,i)) then
openconn
set rs=conn.execute("select id,"&prefix&"p1 from "&prefix&"lm where "&prefix&"s3="&rows(0,i)&" order by "&prefix&"s2 desc,id desc")
do while not rs.eof
%>
" class="a3">· <%=rs(prefix&"p1")%>
<%
if idd=rs("id") then
set rss=conn.execute("select id,"&prefix&"p1 from "&prefix&"wz where "&prefix&"s1=2 and "&prefix&"s3="&rs("id")&" order by "&prefix&"s2 desc,id desc")
do while not rss.eof
%>
" class="a4">> <%=rss(prefix&"p1")%>
<%
rss.movenext
loop
end if
rs.movenext
loop
end if
%>
<%
next
end if
%>