<% lid=request.QueryString("id") set strs=server.createobject("adodb.recordset") stsql="select top 8 id,Title,time from news where news_sort="&lid&" order by time desc" strs.open stsql, conn, 1, 1 do while not strs.eof Response.Write ("document.write(""

กค

"&left(strs("title"),15)&"

"");") strs.movenext loop strs.close set strs=nothing %>