") End If %>
<% Dim cmd Dim contact, fdate, fvenue, num, budget, phone, email, comment cmd = Trim(Request.Form("cmd")) If Len(cmd) = 0 Then %>
") Response.write("") Else Response.write("Please fill the required field(s).
") Response.write("") End If Response.write("") Else Dim mail Dim HTML tag = Request.Form("tag") contact = Request.Form("contact") fdate = Request.Form("fdate") fvenue = Request.Form("fvenue") num = Request.Form("num") budget = Request.Form("budget") menu = Request.Form("menu") nature = Request.Form("nature") phone = Request.Form("phone") email = Request.Form("email") comment = Request.Form("comment") Set mail = CreateObject("CDONTS.NewMail") HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Request response" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

We thank you for the opportunity given to us to submit our menus and other services for your perusal. Please submit your enquiries by completing the following:-

 
Particulars

Name*:

Function Date *:

Function Venue*:

No. Of Person*:

Budget (price per person) *:

Menu Type :

Nature Of Function :

Telephone No*:

E-mail address:

Special Details:

* Required

                       

To submit the enquiry please press the button below.

Thank for visiting our site!

         

<% ElseIf cmd = "confirm" Then Response.write("
") tag = Request.Form("tag") contact = Request.Form("contact") fdate = Request.Form("fdate") fvenue = Request.Form("fvenue") num = Request.Form("num") budget = Request.Form("budget") menu = Request.Form("menu") nature = Request.Form("nature") phone = Request.Form("phone") comment = Request.Form("comment") email = Request.Form("email") Response.write("") Response.write("

We ensured you for our best service all the time. We shall revert to you as soon as possible.
Thank you for visiting our site!

") Response.write("Please verify the following information. Click Accept button to send.") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & tag & "
Particulars
Name*:" & contact & "
Function Date*:" & fdate & "
Function Venue*:" & fvenue & "
No. Of Person*:" & num & "
Budget (price per person)*:" & budget & "
Menu Type:" & menu & "
Nature Of Function:" & nature & "
Phone*:" & phone & "
Email:" & email & "
Special Details:" & comment & "
") If Len(contact) > 2 and Len(phone) > 5 Then Response.write("
") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
Date:" & Now & "
Particulars
Name:" & contact & "
Function Date:" & fdate & "
Function Venue:" & fvenue & "
No. Of Person:" & num & "
Budget (price per person):" & budget & "
Menu Type:" & menu & "
Nature Of Function:" & nature & "
Phone:" & phone & "
Email:" & email & "
Special Details:" & comment & "
" HTML = HTML & "" HTML = HTML & "" mail.From="Enquiry" mail.To="enquiry@dinerscaterers.com.my" mail.Subject="Incoming Enquiries" mail.BodyFormat=0 mail.MailFormat=0 mail.Body=HTML mail.Send Set mail= Nothing Response.write("
") Response.write("") Response.write("

Request send successful.

Thank you!

") Response.write("