<%@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-RUA%' 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-RUA%' 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 Ruapehu (GNZTR) Deals - RotoruaNZ.com » Rotorua's Official Website

GNZTR - Ruapehu Hot Deals

The Ruapehu District takes its name from the sacred Mt Ruapehu (rua “pit”, pehu “to explode”), which at 2797 metres is the highest mountain in the North Island. The district is home to the Tongariro National Park, the Whanganui National Park and the middle and upper reaches of the Whanganui River. The area includes some of the most diverse landscape in New Zealand – deserts, mountains, lakes, pristine rivers, active volcanoes, rich farm land and native flora and fauna are all part of this unique district, which is steeped in Maori and European history. 

Whanganui River and Whanganui National Park

The Whanganui River, New Zealand’s longest navigable river has its origin high on Mt Tongariro starting as an alpine stream gathering waters from Mt Ngauruhoe and Mt Ruapehu. It descends through the central volcanic plateau towards Taumarunui and then continues for more than 200 kilometres southward winding its way through the verdant Whanganui National Park.

<% 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 Ruapehu 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
Coromandel Packages
Hawkes Bay Packages
Rotorua Packages
Taupo Packages
Takarangi
<% Recordset1.Close() Set Recordset1 = Nothing %>