%
' --------------------------- 创建记录集 ---------------------------
'注:记录集名 "Rs" 应与表名相加。并以 3, 2 方式打开。
Set rs1 = Server.CreateObject("ADODB.RecordSet")
NewsTypeSQL = "Select * From News where newstype='公司新闻' Order by ID desc"
rs1.Open NewsTypeSQL, Conn, 3, 2
Set rs2 = Server.CreateObject("ADODB.RecordSet")
NewsTypeSQL = "Select * From News where newstype='新闻时事' Order by ID desc"
rs2.Open NewsTypeSQL, Conn, 3, 2
%>