<%
i=1
Set Rs=Server.CreateObject("ADODB.RecordSet")
strSQL=" Select * From bigtitle"
Rs.Open strSQL,Conn,1,1
Do While Not Rs.Eof
bigid=Rs("bigid")
big=Rs("big")
if i mod 2 =1 then Response.Write "<tr>"
%>
<td>
<table id=BigSort<%=bigid%> onClick="showSmallSort(<%=bigid%>)">
<tr><td><font color="#FFFFFF"><%=big%></font></td></tr>
</table>
<table id=SmallSort<%=bigid%> style="display:none"><tr>
<%
Set Rs2=Server.CreateObject("ADODB.RecordSet")
strSQL2=" Select * From bigertitle Where bigid="&bigid&" Order By bigid "
Rs2.Open strSQL2,Conn,1,1
Do While Not Rs2.Eof
biger=Rs2("biger")
%>
<td> . <%=biger%></td>
<%
Rs2.MoveNext
Loop
Rs2.Close:Set Rs2=Nothing
%>
</tr></table>
</td>
<%
if i mod 2 = 0 then Response.Write "</tr>"
i=i+1
Rs.MoveNext
Loop
Rs.Close:Set Rs=Nothing
Conn.Close:Set Conn=Nothing
%>