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

GNZTR - Taupo Hot Deals

Situated only a short distance from a number of international gateways, and right in the heart of the North Island, Lake Taupo is fresh thinking, and in the centre of it all.

Home to New Zealand’s largest fresh water lake, volcanic wonderlands, a World Heritage Park and the famous Huka Falls, Lake Taupo is truly blessed with world class natural assets.

Hand on heart, the Lake Taupo region is simply stunningly beautiful. Don’t just take our word for it though, think for a minute about why this is the destination of choice for so many world famous people. They come for the beautiful scenery, precious cultural experiences, and action packed adventure.

It’s also the type of place where the people are genuinely friendly, where gidday in the street can lead to an impromptu dinner invitation, where you arrive as a visitor but leave as a friend.

These rates are to be used ONLY for the Tourism New Zealand What’s On Autumn Campaign 2008, and are not to be used with any other offer or to be publicised. All offers are valid March to May 2008. All offers are subject to availability, and are inclusive of GST unless otherwise advised.

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