<%@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 '%gnztr-BOP%' ORDER BY DisplayOrder DESC" 'Recordset1.Source = "SELECT ProdID, ProductName, DescripSmall, DateStart, DateFinish, Publish, DisplayOrder FROM Products WHERE DateFinish >= #" + Replace(Recordset1__Mydato, "'", "''") + "# AND ProductCategory Like '%gnztr-BOP%' 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 Bay of Plenty (GNZTR) Deals - RotoruaNZ.com » Rotorua's Official Website

GNZTR - Bay of Plenty Hot Deals

When 18th Century navigator Captain James Cook sailed into the region aboard the Endeavour, he was so impressed he aptly named it the ‘ Bay of Plenty’.

One of the country’s premier holiday destinations, the Bay of Plenty has long been popular with locals and visitors alike with its white sandy beaches, beautiful harbours and an unbeatable lifestyle.

Just under three hours drive from Auckland, the Bay of

Plenty stretches along the coast from Waihi Beach to Whakatane. The harbourside city of Tauranga is the region’s main centre with the popular seaside resort town of Mount Maunganui located just a short drive across the harbour bridge

How Mauao ‘ Mount Maunganui’ got its name

Mauao is the sacred mountain at the entrance to Tauranga Harbour. Its name, meaning ‘caught in the light of the day’, comes from the legend in which Mauao was once a nameless mountain, spurned in love by the beautiful mountain Puwhenua. One night he bedded the fairy-like creature of the forest to drag him to the ocean and end his misery. But the creatures fled as the morning sun’s rays struck, and he was transfixed on the spot.

<% 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 Bay of Plenty Hot Deals 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 %>

 

Coromandel Packages
Hawkes Bay Packages
Rotorua Packages
Ruapehu Packages
Taupo Packages
Takarangi
<% Recordset1.Close() Set Recordset1 = Nothing %>