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.
If you'd like to talk to us about a cinema visit, please click here to contact our Guest Experience team.
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("
" '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
%>
") Response.Write("We will respond as quickly as possible.