<Table cellspacing = "0" cellpadding = "0" width = "184" border = "0">
<Tbody>
<Tr valign = "Middle">
<TD align = "right" width = "26" Height = "23"> <Div align = "right">
</div> </TD>
<TD align = "Left"> </TD>
</Tr>
<%
Mygetfatherid = request ("fatherclassid ")
Mygetclassid = request ("classid ")
Set rs = server. Createobject ("ADODB. recordset ")
SQL = "select classid, classname, orderid, parentid, ispass from productsclass where parentid = 0 order by orderid DESC, classid DESC"
Rs. Open SQL, Conn, 1, 1
While not Rs. EOF
Myfatherid = RS ("classid ")
Myfathername = RS ("classname ")
If CSTR (mygetfatherid) = CSTR (myfatherid) then
Mydisplay = ""
Else
Mydisplay = "display: none"
End if
Inti = Inti + 1
%>
<Tr valign = "Middle">
<TD align = "right" Height = "20"> & nbsp; </TD>
<TD Height = "20" align = "Left"> <
Href = "products. asp? Fatherclassid = <% = myfatherid %> & classid = <% = myfatherid %>"
Onclick = "javascript: tree ('tb <% = Inti %> ')"> <% = myfathername %> </a> </TD>
</Tr>
<Tr valign = "Middle">
<TD align = "right" Height = "1"> <! -- None --> </TD>
<TD bgcolor = "# cccccc" Height = "1"> <! -- None --> </TD>
</Tr>
<Tr valign = "Middle">
<TD align = "right"> </TD>
<TD align = "center">
<Table width = "100%" border = "0" cellspacing = "0" cellpadding = "0"
Id = "<% =" TB "& Inti %>" style = "<% = mydisplay %>">
<%
Set ors = server. Createobject ("ADODB. recordset ")
SQL = "select
Classid, classname, elite, content, picture1, orderid, parentid, ispass from
Productsclass where parentid = "& myfatherid &" order by orderid
DESC, classid DESC"
ORS. Open SQL, Conn, 1, 1
While not ors. EOF
Myclassid = Ors ("classid ")
Myclassname = Ors ("classname ")
%>
<Tr>
<TD width = "8%" Height = "18" align = "right"> Height = "5" src = "home/midlefttit-1.jpg" width = "3"
/> & Nbsp; </TD>
& Lt; TD width = "92%" Height = "18" align = "Left" & gt; <
Href = "products. asp? Fatherclassid = <% = myfatherid %> & classid = <% = myclassid %> "> <% = myclassname %> </a> </TD>
</Tr>
<%
ORS. movenext
Wend
%>
</Table> </TD>
</Tr>
<%
Rs. movenext
Wend
Set ors = nothing
Set rs = nothing
Myarray = getclassdate ("productsclass ")
%>
</Tbody>
</Table>
<Script language = "JavaScript" type = "text/JavaScript">
Function tree (TRID)
{
VaR mystyle = Document. getelementbyid (TRID). style. display;
If (mystyle = "NONE ")
{
Document. getelementbyid (TRID). style. Display = ""
}
Else
{
Document. getelementbyid (TRID). style. Display = "NONE"
}
}
</SCRIPT>