"
set rs=server.createobject("adodb.recordset")
sqltext="Select * from lm where lm='"& lm &"'"
rs.open sqltext,conn
id=trim(rs("id"))
rs.close
set rs=server.createobject("adodb.recordset")
sqltext="Select top " & num & " * from news where lm='"+id+"' order by id desc"
rs.open sqltext,conn
for ia=1 to num
if rs.eof then
else
Title=trim(rs("title"))
TitleLen=len(Title)
newsdate=cstr(YEAR(rs("time")))&"-"&cstr(MONTH(rs("time")))&"-"&cstr(DAY(rs("time")))
if TitleLen
