<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init ""
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
formValidation.addField "first_name", true, "text", "", "", "50", "Please enter your first name."
formValidation.addField "last_name", true, "text", "", "", "50", "Please enter your last name."
formValidation.addField "email", true, "text", "email", "", "75", "Please enter a valid email address."
formValidation.addField "phone", true, "regexp", "/^\d{10}$/", "", "", "Please enter a 10 digit phone number."
formValidation.addField "type", true, "text", "", "", "", "Please select an accommodation type."
formValidation.addField "arrival", true, "date", "date", "", "", "Please enter an arrival date."
formValidation.addField "departure", true, "date", "date", "", "", "Please enter a departure date."
formValidation.addField "adults", true, "numeric", "int", "0", "10", "Please enter the number of adults."
formValidation.addField "children", false, "numeric", "int", "", "", "Please enter the number of children."
tNGs.prepareValidation formValidation
' End trigger
%>
<%
'start Trigger_SendEmail trigger
'remove this line if you want to edit the code by hand
Function Trigger_SendEmail (ByRef tNG)
Dim emailObj: Set emailObj = new tNG_Email
emailObj.Init tNG
emailObj.setFrom "{email}"
emailObj.setTo "info@lornehotel.com.au"
emailObj.setCC ""
emailObj.setBCC ""
emailObj.setSubject "Online Accommodation Booking"
'FromFile method
emailObj.setContentFile "email_blank_accom.html"
emailObj.setEncoding "ISO-8859-1"
emailObj.setFormat "HTML/Text"
emailObj.setImportance "Normal"
Set Trigger_SendEmail = emailObj.Execute()
End Function
'end Trigger_SendEmail trigger
%>
<%
' Make an insert transaction instance
Dim ins_tblbookings: Set ins_tblbookings = new tNG_insert
ins_tblbookings.init MM_lorne_hotel_STRING
tNGs.addTransaction ins_tblbookings
' Register triggers
ins_tblbookings.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1")
ins_tblbookings.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
ins_tblbookings.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "thankyou.htm")
ins_tblbookings.registerTrigger Array("AFTER", "Trigger_SendEmail", 40)
' Add columns
ins_tblbookings.setTable "tblbookings"
ins_tblbookings.addColumn "first_name", "STRING_TYPE", "POST", "first_name", ""
ins_tblbookings.addColumn "last_name", "STRING_TYPE", "POST", "last_name", ""
ins_tblbookings.addColumn "email", "STRING_TYPE", "POST", "email", ""
ins_tblbookings.addColumn "phone", "STRING_TYPE", "POST", "phone", ""
ins_tblbookings.addColumn "type", "STRING_TYPE", "POST", "type", ""
ins_tblbookings.addColumn "arrival", "DATE_TYPE", "POST", "arrival", ""
ins_tblbookings.addColumn "departure", "DATE_TYPE", "POST", "departure", ""
ins_tblbookings.addColumn "adults", "NUMERIC_TYPE", "POST", "adults", ""
ins_tblbookings.addColumn "children", "NUMERIC_TYPE", "POST", "children", ""
ins_tblbookings.addColumn "enquiry", "STRING_TYPE", "POST", "enquiry", ""
ins_tblbookings.addColumn "enquiry_date", "DATE_TYPE", "POST", "enquiry_date", "{NOW}"
ins_tblbookings.setPrimaryKey "booking_id", "NUMERIC_TYPE", "", ""
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rstblbookings
Dim rstblbookings_numRows
Set rstblbookings = tNGs.getRecordset("tblbookings")
rstblbookings_numRows = 0
%>
Lorne Hotel
<% Response.Write tNGs.displayValidationRules()%>
The simplest way to book is to call the Lorne Hotel on (03) 5289 1409 or complete the form below and submit it to us.
We'll get back to you by phone or email within 24 hours.
<%
Response.Write tNGs.getErrorMsg()
%>
Please phone after 48 hours if your booking has not been acknowledged or confirmed.
