<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\wwwroot\wboard\board.mdb" ' oledb for ado2.0 up only Sql="Select * From Topics where ParentID=0 Order by LastUpdate DESC" 'Set rs=Conn.Execute(Sql) Set rs=Server.CreateObject("ADODB.Recordset") rs.Open Sql, conn, 3, 3 rs.PageSize=10 ' default=10 If Request.QueryString("Page")="" Then CurrentPage=1 Else CurrentPage=CInt(Request.QueryString("Page")) End If With Response .Write "" .Write "" .Write "" .Write "" .Write "" .Write "
" .Write "" .Write "" .Write "" .Write "

" .Write "หน้า " .Write "" For i=1 To rs.PageCount .Write "" & i Next .Write "" .Write " จากทั้งหมด " & rs.PageCount & " หน้า" .Write "

" End With If Not rs.Eof Then rs.AbsolutePage=CurrentPage Response.Write "" Response.Write "" Else Response.Write "         ไม่พบกระทู้ที่ต้องการครับผม" End If Color=0 i=1 Do While Not rs.Eof and i<= rs.PageSize With Response If Color=0 Then .Write "" Color=1 Else .Write "" Color=0 End If .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" End With rs.MoveNext i=i+1 Loop With Response .Write "

ชื่อกระทู้	จากคุณ	อีเมล	ตอบทั้งหมด	ตอบครั้งล่าสุด
" & rs("Topics") & "	" & rs("User") & "	" & rs("Email") & "	" & rs("Replies") & "	" & rs("LastUpdate") & "

" .Write "

---

" .Write "" End With rs.Close Set rs=Nothing conn.Close Set conn=Nothing %>