<%@ Page language="vb" AutoEventWireup="false" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Net" %> <%@ Import Namespace="System.Net.Mail" %> <%@ Import Namespace="System.Web.Script.Serialization" %> <%@ Import Namespace="System.text" %> Hoyts Cinema Technology Group – Contact Us

We're passionate about the development of the cinema industry in Australia and New Zealand. We'd love to talk to you about your next project.

HOYTS GUEST EXPERIENCE

If you'd like to talk to us about a cinema visit, please click here to contact our Guest Experience team.

GET IN TOUCH

Please fill out the form below and we will contact you

Our team of experts are always happy to have a chat to understand
more about your requirements and what you are interested in.


<% If Not IsPostBack() Then%>
<% 'If the form has been submitted execute the following code Else ''receive the form values 'Dim sName, sEmail, sPhone, sFeedback 'sName = Request.Form("name") 'sEmail = Request.Form("email") 'sPhone = Request.Form("number") 'sFeedback = Request.Form("feedback") '' create the HTML formatted email text 'Dim sEmailText 'sEmailText = sEmailText & "" 'sEmailText = sEmailText & "" 'sEmailText = sEmailText & "HTML Email" 'sEmailText = sEmailText & "" 'sEmailText = sEmailText & "" 'sEmailText = sEmailText & "Feedback message from: " & sName & "
" 'sEmailText = sEmailText & "Contact Number: " & sPhone & "
" 'sEmailText = sEmailText & "Message:" & sFeedback & "
" 'sEmailText = sEmailText & "Date & Time:" & Now() & "
" 'sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") 'sEmailText = sEmailText & "" 'sEmailText = sEmailText & "" ''create the mail object 'Dim mm = New MailMessage() 'mm.From = New MailAddress(sEmail) 'mm.To.Add(New MailAddress("info@ctg.hoyts.com.au")) 'mm.Subject = "Website Inquiry" 'mm.Body = sEmailText 'mm.IsBodyHtml = True 'Dim smtp = New SmtpClient("localhost") 'smtp.Send(mm) 'New REST API Method Dim jname, jemail, jphone, jmessage jname = Request.Form("name") jemail = Request.Form("email") jphone = Request.Form("number") jmessage = Request.Form("feedback") Dim JsonData As String = “[{“”name”":" + jname + ",””email””:” + jemail + ”,””number””:” + jphone + ”,””message””:” + jmessage + ”}]” Dim objhttpWebRequest As HttpWebRequest Try Dim httpWebRequest = DirectCast(WebRequest.Create("https://ctscontact.azurewebsites.net/api/CTSContact"), HttpWebRequest) httpWebRequest.ContentType = "text/json" httpWebRequest.Method = "POST" Using streamWriter = New StreamWriter(httpWebRequest.GetRequestStream()) streamWriter.Write(JsonData) streamWriter.Flush() streamWriter.Close() End Using objhttpWebRequest = httpWebRequest Catch ex As Exception Response.Write("Error: " + ex.Message) End Try Response.Write("
Thank you for sending your inquiry.
") Response.Write("We will respond as quickly as possible.
") End If %>

HEAD OFFICE LOCATIONS

Australia

Level 50, 680 George St
Sydney, NSW, 2000

info@ctg.hoyts.com.au

New Zealand

286 Mt Wellington Highway
Mt Wellington 1644

info@ctg.hoyts.co.nz

SERVICE AREAS

We provide service and support to all areas of Australia and New Zealand with field offices in all the major cities.

map