<%@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-COR%' 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-COR%' 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 Coromandel (GNZTR) Deals - RotoruaNZ.com » Rotorua's Official Website
You are here: Home « Rotorua « i-Site « Hot Deals « GNZTR « Bay of PlentySend this page to a friend Print this page

GNZTR - Coromandel Hot Deals

Located approx. 90 minutes drive from Auckland along the spectacular Pacific Coast Highway and a similar distance to the cities of both Rotorua and Tauranga, The Coromandel is one of New Zealand’s premier holiday destinations.

The Coromandel’s dramatic and unspoiled coast, with native pohutukawa trees and beautiful white sandy beaches offers endless opportunities for fishing, diving, snorkelling, kayaking, boating, surfing, sailing and swimming. Walk to dramatic Cathedral Cove. Enjoy the unique experience of nearby Hot Water Beach where at low tide you can dig in the sand, allowing the sulphur heated waters to rise to the top to create your very own thermal spa.

The Coromandel Ranges, cloaked in native rainforest present a haven for tramping and mountain biking or for those who simply wish to commune with nature.

Explore historic goldmining towns and the spectacular Karangahake Gorge. Follow the Art and craft trail and see how The Coromandel has become home to a vibrant arts community who gain inspiration from this special environment.

he Coromandel offers a wide range of accommodation and dining experiences. Whatever your budget or interest, whatever your taste senses may be, The Coromandel is waiting to indulge you.

<% 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 Coromandel 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 %>

 

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