<% set rs=server.CreateObject("adodb.recordset") sqlstr="select top 10 [title],[filename],[date],[titlelink],[pictext],[lanmupic] from [news] with(nolock) where [sclassid]=959 and [asign]=1 and [lanmutt]=1 order by paixu desc" rs.open sqlstr,fconn,0,3 pdate=rs("date") Response.Write("") Do While Not Rs.eof Response.Write("") Rs.movenext Loop Response.Write("

") Response.Write("" &rs("title")&"") ' Response.Write("" &rs("title")&"") Response.Write("

") rs.close set rs=nothing Closeconn() %>