Contact Us - Geelong Repertory Theatre Company

<% ' Use an ASP command to check to see if data has been submitted to this page If request.form = "" then ' no data was submitted to the form, so display the form to the user %>

Want to tell us what you thought of our latest show, subscribe to the season, audition or just say hello?

Then send us your thoughts. We welcome all of your comments and suggestions.

What kind of comment would you like to send?

Complaint Problem Suggestion Praise

What about us do you want to comment on?

Other:

Enter your comments in the space provided below:

Tell us how to get in touch with you:

Name _______
E-mail_ ____
Tel ..______
FAX_______

<% else ' Data was submitted to this form, so send the results via email Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.pipeline.com.au" Mail.From = Request.Form("Email") Mail.FromName = Request.Form("RealName") Mail.AddAddress "info@geelongrep.com.au" Mail.Subject = "Geelong Repertory Feedback Form " Mail.Body = "Message type : " & Request.Form ("MessageType") & vbCRLF Mail.Body = Mail.Body & "Subject : " & Request.Form ("Subject") & vbCRLF Mail.Body = Mail.Body & "Subject Other: " & Request.Form ("SubjectOther") & vbCRLF Mail.Body = Mail.Body & "Comments : " & Request.Form ("Comments") & vbCRLF Mail.Body = Mail.Body & "Name : " & Request.Form ("RealName") & vbCRLF Mail.Body = Mail.Body & "Email : " & Request.Form ("Email") & vbCRLF Mail.Body = Mail.Body & "Tel : " & Request.Form ("UserTel") & vbCRLF Mail.Body = Mail.Body & "Fax : " & Request.Form ("UserFax") & vbCRLF Mail.Body = Mail.Body & "Time Sent : " & FormatDateTime(Now()) & vbCRLF Mail.Body = Mail.Body & "Senders IP : " & Request.ServerVariables("REMOTE_ADDR") & vbCRLF On Error Resume Next Mail.Send If Err = 0 Then Response.Write "Your message was sent successfully!" else Response.Write "Message was not sent, an error encountered: " & Err.Description End If On Error Goto 0 Set Mail = Nothing end if %>