<% '-------------------------------- 'This is the main script which will 'show all the signed entry '-------------------------------- dim PageNo ' page number retrieved from the URL dim NextPage'URL of next page dim PrevPage'URL of previous page dim Counter ' current record, used for paging PageNo=Request.QueryString("page") 'If the page no is not passed intialized the variable if not len(trim(PageNo))>0 then PageNo=1 'Intialize the connection and the recordset Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & Path Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from guest order by date desc", Conn, 1,3 Rs.AbsolutePage =PageNo if Rs.AbsolutePage*Rs.PageSizeNext" & "" else NextPage=PageNo NextPage="" end if if PageNo>1 then PrevPage=PageNo-1 PrevPage="Previews" & "" else PrevPage=PageNo PrevPage="" end if %>

Customers testimonials

Thank you for your choice to use our services and staying at our hotels!

The motto of our company is to provide a satisfactory service to all of our guests. In order to achieve this aim we need to know your opinion on it. A praise would be a motivation for us to continue our services. And any critic would naturally be a reason for us to improve our services according to the requirements and desires of our guests.

Please tell ANYBODY what you like about us!

Please tell US what you dislike!

  • <%=PrevPage%> <%=NextPage%>

    <% Do while not Rs.EOF if Counter=Rs.PageSize then exit do if len(rs("note"))>0 then note=Replace(rs("note"),vbcrlf,"
    ") else note="" end if if len(rs("email"))>0 then email="" & rs("name") & "" else email=rs("name") end if %>
  •      
    <%=rs("name")%> , <%=rs("country")%>

    <%=note%>

    <%=rs("date")%>
       
  • <% Rs.MoveNext Counter=Counter+1 loop Rs.Close Conn.Close set Rs=nothing set Conn=nothing %>

    <%=PrevPage%> <%=NextPage%>