%@LANGUAGE="VBSCRIPT"%>
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Mail form as Text format SYS ***
If (CStr(Request("FX_sendForm")) = "cust_form") Then
names = ""
top = "\r\n"
body = "\r\n"
exclude = "Submit,Submit.x,Submit.y,FX_sendForm,MM_insert,MM_update"
reqArray = split(CStr(Request.Form),"&")
For i=0 To UBound(reqArray)
name = Left(reqArray(i),InStr(reqArray(i),"=")-1)
if (InStr(exclude,name) = 0) Then
if (InStr(names,name & ",") = 0) Then
body = body & UCase(name) & ": " & CStr(Request.Form(name)) & "\r\n"
names = names & name & ","
End If
End If
Next
bottom = "\r\n"
message = Replace(top & body & bottom, "\r\n", vbCrLf)
' send all
set objCDO = Server.CreateObject("CDO.Message")
set objConf = Server.CreateObject("CDO.Configuration")
set Flds = objConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "hol-web-01"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 26
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Update
objCDO.Configuration = objConf
objCDO.From = CStr(Request.Form("email"))
objCDO.To = "marketing@holidaysonlocation.com"
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = "Brochure Order - German Holidays"
objCDO.TextBody = message
objCDO.Send
set objCDO = Nothing
' redirecting
body = Server.URLEncode(Replace(body, "\r\n", " "))
redirect = "Brochure_thanks.html"
If (redirect <> "") Then Response.Redirect(redirect) End If
End If
%>
Electronic Brochure now available via the web here
Select the brochure or brochures you would like us to mail to you. You may like to download the electronic version here.
If you're not sure where to find what you're looking for, let us know and one of our travel specialists can assist you to plan the trip of your dreams. Ask us now!
Alternatively, you can view all the itinerary information on this website, and download the itineraries as PDFs, print them off, and email them to a friend.
* Required fields needs to be entered to ensure no delays in delivering your brochures