<% var FirstRecord = customerTable.RecNo; %>

Content generated using JScript (default script)

<% var RecordCount = 0; while (RecordCount < 5) { %> <% RecordCount ++; customerTable.next; if(customerTable.eof) break; } %> <% customerTable.RecNo = FirstRecord; %>
Customer No Company City Country Address Phone
<%=customerTable.FindField("CustNo").DisplayText %> <%=customerTable.FindField("Company").DisplayText %> <%=customerTable.FindField("City").DisplayText %> <%=customerTable.FindField("Country").DisplayText %> <%=customerTable.FindField("Addr1").DisplayText %> <%=customerTable.FindField("Phone").DisplayText %>
Record count = <%=customerTable.RecordCount%>. Visible records <%=FirstRecord%> - <%=(FirstRecord + 5 - 1)%>

<%serverscript = VBScript%> <% FirstRecord = orderTable.RecNo %>

Content generated using VBScript

<% RecordCount = 0 do while RecordCount < 5 %> <% RecordCount = RecordCount + 1 orderTable.next If orderTable.eof Then exit do end if loop %> <% orderTable.RecNo = FirstRecord %>
Order No Customer No Total Items Amount paid Payment method Sale date
<%=orderTable.FindField("OrderNo").DisplayText %> <%=orderTable.FindField("CustNo").DisplayText %> <%=orderTable.FindField("ItemsTotal").DisplayText %> <%=orderTable.FindField("AmountPaid").DisplayText %> <%=orderTable.FindField("PaymentMethod").DisplayText %> <%=orderTable.FindField("SaleDate").DisplayText %>
Record count = <%=orderTable.RecordCount%>. Visible records <%=FirstRecord%> - <%=(FirstRecord + 5 - 1)%>
<%/serverscript%>