%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From run", conn, 3, 2
%>
<%
Page = Request("Page")
IF Page = "" Then
Page = 1
Else
Page = CLng(Request("Page"))
End IF
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select ID,AddDate,Subject,Memo From report_place Order By AddDate Desc ", conn, 3, 2
If rs1 Is Nothing Then
Response.Write "呼叫 report_place 資料庫資料失敗!"
rs1.Close
Set rs1=Nothing
Else
IF rs1.RecordCount > 0 Then
rs1.PageSize=10
IF Page < 1 Then Page = 1
IF Page > rs1.PageCount Then Page = rs1.PageCount
rs1.Absolutepage = Page
End IF
End IF
%>