<%sub show_info(newsort)
sqlstr_1="SELECT top 10 id,title,newsimg,newsdate FROM t_news_purpose WHERE newsort=" & newsort & " ORDER BY topsign desc,id desc"
set myrs=server.CreateObject("Adodb.recordset")
myrs.Open sqlstr_1,conn,1,1
if myrs.RecordCount>0 then%>
<%do until myrs.EOF %>
<%end if%>
<%myrs.close
set myrs=nothing
end sub%>
