<%@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 = "Call a Consultant - Austria" objCDO.TextBody = message objCDO.Send set objCDO = Nothing ' redirecting body = Server.URLEncode(Replace(body, "\r\n", "
")) redirect = "callThanks.htm" If (redirect <> "") Then Response.Redirect(redirect) End If End If %> Enquire Now - Vienna For All Seasons
Vienna in Summer  
   VIENNA - Enquiries                                                  

 
Enquire Now

Thank you for visiting “ Vienna for all Seasons “ a monthly news letter published by Austrian Holidays. Our aim is to provide you with up to the minute information on the City of Vienna, with musical events, concerts and sightseeing and many other offers and opportunities to assist you in planning your next visit.

Please complete your responses to the form below indicating the nature of your enquiry and what you would like to achieve on your next visit.

Title* Mrs.
First Name*
Family Name*
Your Email address*
Your Country of Residence *
   
Destination City
Proposed date of Arrival
   
1. Other Austrian Cities
Proposed date of Arrival
2. Other Austrian Cities
Proposed date of Arrival
   
Details of your enquiry*  
 

Number of person / family members/ relatives or friends planning to accompany you on this trip:

     
 
* indicates required field  



 
 
 
_______________________________________________________________________________________________________________________

Last modified:
Austrian Holidays | Vienna City Stays | Austrian Rail Holidays | Sacher Torte | Vienna Sightseeing

© 2010 Holidays on Location - ABN 52 005 586 121 Australia
Austrian Holidays™ is operated by Holidays on Location T/A Licence 30186