<%
pageLen = 7
pageNo = request.QueryString("pageNo")
if pageNo ="" then pageNo = 1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=Guestbook"
Set RS = Server.CreateObject("ADODB.Recordset")
Sql="Select * from gbook order by date desc"
RS.open Sql,Conn,1,3
Nrecord =RS.recordcount
rs.pageSize = pageLen
totalPage = rs.PageCount
rs.absolutePage = pageNo
%>
<%
recNo=1
Do While Not RS.EOF and recNo <= pageLen
%>
|
ชื่อ: | <%=RS("Name")%>
"><%=RS("email")%>
<%=day(RS("date"))%>/<%=month(RS("date"))%>/
<%=right(year(RS("date")),2)%>
|
| ทราบเวบนี้จาก: |
<%=RS("ref")%> |
| Msg/ความเห็น : |
<%=replace(RS("msg"), chr(13),"
")%> |
<%
recNo = recNo+1
RS.MoveNext
Loop
rs.close
Conn.close
%>
|
