<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From run", conn, 3, 2
%>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select Top 10 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
%>
基隆市中正區公所|
