<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Session.LCID = 1033 %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then Recordset1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset1__Mydato Recordset1__Mydato = "1/1/2005" If (Date() <> "") Then Recordset1__Mydato = Date() End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_rotoruanz_STRING Recordset1.Source = "SELECT ProdID, ProductName, DescripSmall, DateStart, DateFinish, Publish, DisplayOrder FROM Products WHERE DateFinish >= #" + Replace(Recordset1__Mydato, "'", "''") + "# AND Publish = " + Replace(Recordset1__MMColParam, "'", "''") + " AND ProductCategory Like '%accommodation%' ORDER BY DisplayOrder DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 Recordset1_numRows = Recordset1_numRows + HLooper1__numRows dim m m=1 dim s s=7 dim pagename pagename="Hot Accommodation Deals" %> Hot Accommodation Deals - RotoruaNZ.com » Rotorua's Official Website

Hot Accommodation Deals

Rotorua's Travel and Information Office has packaged attraction options together in combinations for you. These special packages are available either by clicking through to the secure online booking form (below each  package) or from theTravel and Information Office in Rotorua.
For Rotorua's Travel and Information Office contact information - click here

Watch for new packages which are added regularly.

<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not Recordset1.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not Recordset1.EOF)) %> <% startrw = startrw + 1 Recordset1.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
<%=(Recordset1.Fields.Item("DescripSmall").Value)%> ">More detail and Order now > <% MM_authorizedUsers="admincontrol,adminisite" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If MM_grantAccess Then ' *** Show If User Logged In %> ">Edit <% End If ' *** Show If User Logged In %>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %> <% If Recordset1.EOF And Recordset1.BOF Then %>

No Accommodation packages are currently available.

Please try again soon - we may be updating our Special Packages as you read this message.

Or try the i-SITE, Skyline, or Agrodome packages.

<% End If ' end Recordset1.EOF And Recordset1.BOF %>

 

Skyline Skyride packages
Agrodome packages
GNZTR Packages
Takarangi
<% Recordset1.Close() Set Recordset1 = Nothing %>