<%
set rst=server.CreateObject("adodb.recordset")
sqlt="Select * from newscata order by rootid"
rst.Open sqlt,conn,1,3
do while not rst.EOF
trootid = rst("rootid")
t_child_cataid=split(trootid,",")
t_num = ubound(t_child_cataid)
if t_num=0 then
tempcataStr="
"
tempcataStr=tempcataStr&"| "
'tempcataStr=tempcataStr&""&trim(rst("title"))&" | "
'tempcataStr=""&trim(rst("title"))&" "
tempcataStr=""&trim(rst("title"))&""
tempcataStr=tempcataStr&" "
'tempcataStr=tempcataStr&""
'tempcataStr=tempcataStr&""
'tempcataStr=tempcataStr&""
'tempcataStr=tempcataStr&" "
'tempcataStr=tempcataStr&" | "
'tempcataStr=tempcataStr&" "
'tempcataStr=tempcataStr&""
'tempcataStr=tempcataStr&" "
'tempcataStr=tempcataStr&" | "
'tempcataStr=tempcataStr&"
"
Response.Write tempcataStr
end if
rst.MoveNext
loop
rst.Close()
set rst=nothing
%>
