<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Basic CDO Mail from Web-Shorts.com
If Request.Form("Submit") <> "" Then
Const ws_Subject = "Enquiry from Education Network website"
Const ws_ToEmail = "school.groups@rdc.govt.nz"
Const ws_Redir = "thanks-enquiry.asp"
Dim ws_From
ws_From = Request.Form("FromAddress")
Dim ws_Body, ws_fieldName, ws_fieldValue, ws_i
For ws_i = 1 to Request.Form.Count
ws_fieldName = Replace(Request.Form.Key(ws_i),"_"," ")
ws_fieldValue = Request.Form.Item(ws_i)
ws_Body = ws_Body & ws_fieldName & ": " & ws_fieldValue & VbCrLf
Next
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "relay.activehost.com"
Mail.Port = 25
Mail.From = Request.Form("FromAddress")
Mail.FromName = Request.Form("ContactPerson")
Mail.AddAddress "school.groups@rdc.govt.nz", "School Groups"
Mail.AddBCC "adrian@rotoruaNZ.com", "Adrian Hodge"
Mail.Subject = "Enquiry from Education Network website"
Mail.Body = ws_Body
Mail.IsHTML = False
'Mail.AddAttachment "Physical path to file to be attached"
On Error Resume Next
Mail.Send
'Dim objCDO
'Set objCDO = Server.CreateObject("CDONTS.NewMail")
'objCDO.From = ws_From
'objCDO.To = ws_ToEmail
'objCDO.Subject = ws_Subject
'objCDO.Body = ws_Body
'objCDO.Send()
'Set objCDO = Nothing
Response.Redirect(ws_Redir)
End If
%>
<%
' *** 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 = "Contact Us"
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 Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
SubAreas_numRows = SubAreas_numRows + Repeat1__numRows
%>
Education Network » Rotorua's Official Website
<% 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
%>
