<% '######## Process Form ######## dim errorsList dim uiName, uiEmail, uiCompany, uiAddress, uiPhone, uiMobile, uiFax, uiComments dim errorName, errorEmail uiName = Request("uiName") uiEmail = Request("uiEmail") uiCompany = Request("uiCompany") uiAddress = Request("uiAddress") uiPostcode = Request("uiPostcode") uiPhone = Request("uiPhone") uiMobile = Request("uiMobile") uiFax = Request("uiFax") uiComments = Request("uiComments") if(Request("uiFormSubmit") = "true") then if(validateForm()=true) then sendEmail() Response.Redirect("contact-v-one.asp?submitted=true") end if end if function validateForm() if uiName = "" then errorsList = errorsList & "
  • Name
    • " errorName = " class='error-field'" end if if not ValidEmail(uiEmail) then errorsList = errorsList & "
  • E-mail
    • " errorEmail = " class='error-field'" end if if(errorsList<>"") then errorsList = "

    Please check the following mandatory field(s)

    " validateForm = false else validateForm = true end if end function function sendEmail() Dim emailBody emailBody = "The following form has been submitted from the V-One website contact form." & vbcrlf & vbcrlf emailBody = emailBody & "Name: " & uiName & vbcrlf emailBody = emailBody & "Email: " & uiEmail & vbcrlf emailBody = emailBody & "Company: " & uiCompany & vbcrlf emailBody = emailBody & "Address: " & uiAddress & vbcrlf emailBody = emailBody & "Phone: " & uiPhone & vbcrlf emailBody = emailBody & "Mobile: " & uiMobile & vbcrlf emailBody = emailBody & "Fax: " & uiFax & vbcrlf emailBody = emailBody & "Comments: " & uiComments & vbcrlf & vbcrlf emailBody = emailBody & "Submission time/date: " & Now() Dim objMsg Set objMsg = CreateObject("CDO.Message") objMsg.To = "sales@v1air.com" objMsg.From = uiEmail objMsg.Subject = "contact-v-one.htm" objMsg.TextBody = emailBody objMsg.Send end function function ValidEmail(inputString) 'returns a boolean Set regEx = New RegExp regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" regEx.IgnoreCase = True if not regEx.Test(inputString) then validEmail = false else validEmail = true end if end function '########################################## %> contact-v-one.htm about private air charter for personal luxury or your business needs // V-One Aviation

    UK 24 hour tel: 0800 505 0606
    International 24 hour tel: 00 49 511 3747 399
    Email: sales@v1air.com

     

    CONTACT V-ONE emergency time critical logistics

    <%if Request("submitted") = "true" then %>

    Thank you. We will be in touch shortly.

    <% else %>
    <%=errorsList%>
    />
    />





    Submit

    Fields marked * are mandatory

    <% end if %>
    Client Testimonial

    Exel

    “They are incredibly professional and always respond to our enquiries in a positive manner with nothing too much trouble“.