<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_EdNetwork_STRING MM_editTable = "Pages" MM_editColumn = "PageID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "success.asp" MM_fieldsStr = "PageName|value|PageAddress|value|PageCategory|value|PagePublish|value|ShowOnHomePage|value|editor1|value" MM_columnsStr = "PageName|',none,''|PageAddress|',none,''|PageCategory|none,none,NULL|PagePublish|none,Yes,No|ShowOnHomePage|none,Yes,No|PageHTML|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim MainArea__MMColParam MainArea__MMColParam = "Year 11 Geography" If (Request("MM_EmptyValue") <> "") Then MainArea__MMColParam = Request("MM_EmptyValue") End If %> <% Dim MainArea Dim MainArea_numRows Set MainArea = Server.CreateObject("ADODB.Recordset") MainArea.ActiveConnection = MM_EdNetwork_STRING MainArea.Source = "SELECT PageID, PageName, PageAddress, PageCategory, PageHTML, PagePublish, ShowOnHomePage FROM Pages WHERE PagePublish = True AND PageName = '" + Replace(MainArea__MMColParam, "'", "''") + "'" MainArea.CursorType = 0 MainArea.CursorLocation = 2 MainArea.LockType = 1 MainArea.Open() MainArea_numRows = 0 %> <% Dim SubAreas Dim SubAreas_numRows Set SubAreas = Server.CreateObject("ADODB.Recordset") SubAreas.ActiveConnection = MM_EdNetwork_STRING SubAreas.Source = "SELECT PageName, PageAddress FROM Pages WHERE ShowOnHomePage = True AND PagePublish = True" SubAreas.CursorType = 0 SubAreas.CursorLocation = 2 SubAreas.LockType = 1 SubAreas.Open() SubAreas_numRows = 0 %> <% Dim Cats Dim Cats_numRows Set Cats = Server.CreateObject("ADODB.Recordset") Cats.ActiveConnection = MM_EdNetwork_STRING Cats.Source = "SELECT * FROM Categories ORDER BY CatName ASC" Cats.CursorType = 0 Cats.CursorLocation = 2 Cats.LockType = 1 Cats.Open() Cats_numRows = 0 %> <% Dim YearLinks__MMColParam YearLinks__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then YearLinks__MMColParam = Request("MM_EmptyValue") End If %> <% Dim YearLinks Dim YearLinks_numRows Set YearLinks = Server.CreateObject("ADODB.Recordset") YearLinks.ActiveConnection = MM_EdNetwork_STRING YearLinks.Source = "SELECT PageName, PageAddress, PageCategory FROM Pages WHERE PageCategory = " + Replace(YearLinks__MMColParam, "'", "''") + "" YearLinks.CursorType = 0 YearLinks.CursorLocation = 2 YearLinks.LockType = 1 YearLinks.Open() YearLinks_numRows = 0 %> <% Dim Resources__MMColParam Resources__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then Resources__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Resources Dim Resources_numRows Set Resources = Server.CreateObject("ADODB.Recordset") Resources.ActiveConnection = MM_EdNetwork_STRING Resources.Source = "SELECT ResID, ResCategory, ResName, ResDescrip, ResAddress, ResPublish FROM Resources WHERE ResCategory = " + Replace(Resources__MMColParam, "'", "''") + " AND ResPublish = True" Resources.CursorType = 0 Resources.CursorLocation = 2 Resources.LockType = 1 Resources.Open() Resources_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 SubAreas_numRows = SubAreas_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Resources_numRows = Resources_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 YearLinks_numRows = YearLinks_numRows + Repeat2__numRows %> Education Network » Rotorua's Official Website

Home > Rotorua > Information > Education > Rotorua Education Network > <%=(MainArea.Fields.Item("PageName").Value)%>
<% If Not MainArea.EOF Or Not MainArea.BOF Then %> <% if Session("MyEdit") <> True then ' Adv Conditional Region %>

<%=(MainArea.Fields.Item("PageName").Value)%>

<%=(MainArea.Fields.Item("PageHTML").Value)%>

<% MM_authorizedUsers="" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true 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 %>

">

<% End If ' *** Show If User Logged In %>
<% Else %>
Page Name " size="65">
Page Address " size="65">
Category
Publish name="PagePublish" type="checkbox" id="PagePublish2" value="True"> Show on Home Page name="ShowOnHomePage" type="checkbox" id="ShowOnHomePage2" value="True">
">Edit Off
">
<% end if ' Session("MyEdit") <> True %> <% End If ' end Not MainArea.EOF Or NOT MainArea.BOF %> <% If MainArea.EOF And MainArea.BOF Then %>

This page is currently unavailable

Please try again soon, as we may be updating this page as you read.
Or try selecting another link from this page
 
<% End If ' end MainArea.EOF And MainArea.BOF %>
i-SITE
i-SITE is Rotorua's Official Travel and Information Centre.
Our friendly staff can help you with  accommodation, sightseeing, activities and onward bookings in Rotorua... more>
 
Google
WWW RotoruaNZ.com

<% If Not YearLinks.EOF Or Not YearLinks.BOF Then %>
Year 11 Links
<% While ((Repeat2__numRows <> 0) AND (NOT YearLinks.EOF)) %> "><%=(YearLinks.Fields.Item("PageName").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 YearLinks.MoveNext() Wend %>
 
<% End If ' end Not YearLinks.EOF Or NOT YearLinks.BOF %> <% If Not Resources.EOF Or Not Resources.BOF Then %>
Year 11 Resources
<% While ((Repeat3__numRows <> 0) AND (NOT Resources.EOF)) %>

" target="_blank"><%=(Resources.Fields.Item("ResName").Value)%>
<%=(Resources.Fields.Item("ResDescrip").Value)%> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Resources.MoveNext() Wend %>

 
<% End If ' end Not Resources.EOF Or NOT Resources.BOF %> <% If Not SubAreas.EOF Or Not SubAreas.BOF Then %>
Related Links

<% While ((Repeat1__numRows <> 0) AND (NOT SubAreas.EOF)) %> "><%=(SubAreas.Fields.Item("PageName").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 SubAreas.MoveNext() Wend %>

<% End If ' end Not SubAreas.EOF Or NOT SubAreas.BOF %>
 
Activity Links

Activities Directory
Adventure
Culture & Heritage
Family Fun
Geothermal Wonders
Spa & Wellness
Lakes & Fishing
Scenic Flights
Sightseeing
Tours & Daytrips

 
Viewing Links
Publication Downloads
Quick Pics
Panoramas
Video Clips
 
Useful Links

Accommodation Directory
Trade & Media
Events Calendar
Dining and Entertainment

 

Home | Activities | Accommodation | Dining & Entertainment | Events & Calendars | Information | Trade & Media
Search  | Sitemap | Privacy Policies

© 2004 - All Rights Reserved - Destination Rotorua Tourism Marketing, Rotorua District Council

Destination Rotorua Marketing
<% MainArea.Close() Set MainArea = Nothing %> <% SubAreas.Close() Set SubAreas = Nothing %> <% Cats.Close() Set Cats = Nothing %> <% YearLinks.Close() Set YearLinks = Nothing %> <% Resources.Close() Set Resources = Nothing %>