%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select Top 15 ID,Status,NewsType,Subject,UpDate From Activity Where UpDate <= #" & DateValue(Date()) & "# And DownDate >= #" & DateValue(Date()) & "# Order By UpDate Desc ", conn, 3, 2
If rs1 Is Nothing Then
Response.Write "呼叫 Activity 資料庫資料失敗!"
rs1.Close
Set rs1=Nothing
End IF
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "Select * From TopNews", conn, 3, 2
%>