<%
sql="select * from message where lang='c' order by senddate"
set rs=server.CreateObject("adodb.recordset")
rs.PageSize = 10
rs.CursorLocation = 3
rs.open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
A Touch of Portugal - Praia Grande Portuguese Cuisine 美麗灣餐廳
