%
const newsline=6
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
sql="select * from kindfst"
Set rskd = Server.CreateObject("ADODB.Recordset")
rskd.Open sql, conn,1,1
sql="select * from article where kind=16 order by pubtime desc"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql, conn,1,1
sql="select * from today order by pubtime desc"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open sql, conn,1,1
%>