<% sql="select * from message where lang='e' 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 美麗灣餐廳


<% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %> <% rs.movenext next %>
Send Message    
   Name:<%= rs("username") %> Rating: .jpg" width="150" height="25" border="0">
Review:  <%= rs("content") %>
<%if rs.pagecount > 0 then%> <%end if%>
pages<%=intpage%>/<%=rs.PageCount%>First <%if pre then%> Previous <% else %> Previous <%end if%> <%if last then%> Next <% Else %> Next <%end if%> Last to

Introduction - Environment - Slide Show - Map - Contact Us - Home - Review \ Rating


Copyright © 2003-2010, Praia Grande Portuguese and Macanese Cuisine
All rights reserved

<% rs.close set rs=nothing conn.close set conn=nothing %>