<%
sSql="select CsysID,case CTypeName when '0' then '"&years&"' else CTypeName end ,CsupCode from y_monthchaxun where cdelete=0 order by CsupCode"
url="list.asp"
Set CreatePage=server.CreateObject("EcoaCreatePage.EcPage")
With CreatePage
.ConnectString=ConnectString
.CreateTree sSql,url
End With
Set CreatePage=nothing
%>