|
|
|
<%
set rst=server.CreateObject("adodb.recordset")
sqlt="Select * from newscata order by rootid"
rst.Open sqlt,conn,1,3
do while not rst.EOF
tempcataStr=""
tempcataStr=tempcataStr&"| "
tempcataStr=tempcataStr&" | "
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
rst.MoveNext
loop
rst.Close()
set rst=nothing
%>
|
|
