<% 'REQUEST FORM VALUES '------------------------------------------------------------------- Dim Name, Surname, Tel, Cell, Email Name = Request("Name") Surname = Request("Surname") Email = Request("Email") Tel = Request("Tel") Cell = Request("Cell") Arrivald = Request("Arrivald") Departd = Request("Departd") Nights = Request("Nights") 'E-MAIL ENQUIRY - Subroutine '------------------------------------------------------------------- Sub EmailEnquiry 'E-Mail Message Dim Message Message = "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & vbCrLf & _ "" & vbCrLf & vbCrLf & _ "

---

" & vbCrLf & _ "The following Reservation has just been sent via the " & conSiteTitle & " website." & vbCrLf & _ "

---

" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "

First Name:	" & Request("Name") & "
Surname:	" & Request("Surname") & "
E-mail:	" & Request("Email") & "
Tel:	" & Request("Tel") & "
Cell:	" & Request("Cell") & "
Lodge:	" & Request("Type") & "
Number of Guests:	" & Request("Guests") & "
Date of Arrival:	" & Request("Arrivald") & "
Date of Departure:	" & Request("Departd") & "
Number of nights:	" & Request("Nights") & "
Number of Rooms:	" & Request("Rooms") & "
Enquiries:	" & Request("Enquiries") & "

" & vbCrLf & _ "" & vbCrLf & _ "" 'Send E-Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = conMailHost Mail.From = Request("Email") Mail.FromName = Request("Name") & " " & Request("Surname") 'Mail.AddBcc "liana@wallstreet.co.za" Mail.AddAddress "reservations@keytoafrica.co.za" 'Mail.AddBcc "adam@air-ventures.co.za" 'Mail.AddBcc "lee@wallstreet.co.za" 'Mail.AddBcc "bruce@wallstreet.co.za" Mail.Subject = "Key to Africa - Reservation Details" Mail.Body = Message Mail.IsHTML = True On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description Response.End End If Set Mail = Nothing 'Create Message Title = "Enquiry" Msg = "Thank you " & Name & " " & Surname & ",

" & _ "Your Reservation Details has been sent successfully" 'Show Message in New Window and Redirect Page Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "

" & vbCrlf Response.Write Msg & vbCrlf Response.Write "

" & vbCrlf Response.Write "" & vbCrlf Response.Write "" End Sub 'FORM SUBMITTED - E-MAIL DETAILS '------------------------------------------------------------------- If Request("Process") = "True" Then Call EmailEnquiry 'FORM NOT SUBMITTED - SHOW THE FORM '------------------------------------------------------------------- Else %>

Name: Surname: Email: Tel: Mobile: Lodge: <Select Lodge> Hippo Bend Kgorogoro Lodge Number of guests: <Select Guests> 1 2 3 4 5 6 7 8 9 10 Date of arrival: <D> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 <M> 1 2 3 4 5 6 7 8 9 10 11 12 <Y> 2014 2015 2016 2017 Date of departure: <D> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 <M> 1 2 3 4 5 6 7 8 9 10 11 12 <Y> 2012 2013 Enquiries:

<% End If %>