<%
' 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.
<%
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
%>

NEWS
| SEASON | VENUE | TICKETS
| EVENTS | CONTACT
Copyright © 2010 GEELONG REPERTORY THEATRE COMPANY
|