Ariau Amazon Towers - The Largest Tree Top Hotel in the World

The Best Packages

Ariau has many diverse and exiting packages exactly matching your need. Find the activity that best match your criteria.

<% Set RecSet = Server.CreateObject("ADODB.Recordset") n_page=request("n_page") If n_page="" Then n_page = 1 RecSet.PageSize=5 RecSet.Open "Select * from packages where type = 'General'", conn, 3 For navega= 1 to RecSet.PageCount If navega= Cint(n_page) Then Else End If Next if RecSet.PageSize * n_page > RecSet.RecordCount then ult_r = RecSet.RecordCount else ult_r = RecSet.PageSize * n_page end if anterior=n_page-1 proxima=n_page+1 Response.write "" RecSet.Close Set RecSet = nothing %>

" If not anterior = 0 Then response.write "[ Previous ]" Else response.write "[ Previous ]" End If Response.write "

" Response.Write "Packages " & RecSet.PageSize * n_page - RecSet.PageSize + 1 & " to " & ult_r &"
" Response.Write "There are "&RecSet.RecordCount&" Packages." Response.write "

" If proxima < navega Then response.write "[ Next ]" Else response.write "[ Next ]" End If Response.write "

<% Set RecSet = Server.CreateObject("ADODB.Recordset") n_page=request("n_page") If n_page="" Then n_page = 1 RecSet.PageSize=5 RecSet.Open "Select * from packages where type = 'General' ORDER BY title", conn, 3 if not RecSet.EOF then RecSet.AbsolutePage = n_page contador=0 while contador < RecSet.PageSize and not RecSet.EOF contador = contador + 1 %> <% RecSet.MoveNext wend end if %>

" class="link1">

/thumbs/<%=RecSet("thumb")%>" border=0 width="139" height="105">

" class="link1"><%=RecSet("title")%>
Length: <%=RecSet("duration_days")%> Days / <%=RecSet("duration_nights")%> Nights
<%=Left(RecSet("description"),200)%> ...
" class="link1">Inquiry

<% For navega= 1 to RecSet.PageCount If navega= Cint(n_page) Then Else End If Next if RecSet.PageSize * n_page > RecSet.RecordCount then ult_r = RecSet.RecordCount else ult_r = RecSet.PageSize * n_page end if anterior=n_page-1 proxima=n_page+1 Response.write "" RecSet.Close Set RecSet = nothing %>

" If not anterior = 0 Then response.write "[ Previous ]" Else response.write "[ Previous ]" End If Response.write "

" Response.Write "Packages " & RecSet.PageSize * n_page - RecSet.PageSize + 1 & " to " & ult_r &"
" Response.Write "There are "&RecSet.RecordCount&" Packages." Response.write "

" If proxima < navega Then response.write "[ Next ]" Else response.write "[ Next ]" End If Response.write "