'dim i
set rs_sheng=server.CreateObject("adodb.recordset")
rs_sheng.open "select * from szsheng order by shengorder ",conn,1,1
if rs_sheng.eof and rs_sheng.bof then
response.write "目前还没有新闻！"
else
i=0
while not rs_sheng.eof
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
if rs_sheng.eof then
response.write " "
else
%>
rs_sheng.movenext
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
wend
end if
%>
set rs_sheng=nothing%>
