<%@ Language=VBScript %> <% Option Explicit %> <% 'Const ORGANISER_EMAIL = "marywilson@confluenceevents.co.uk" Const ORGANISER_EMAIL = "graeme@active-answer.co.uk" Const ORGANISER_COMPANY = "Confluence Events web enquiry" Const MAILHOST = "smtpmail" 'Const MAILHOST = relay.hostinguk.net Const FM_ENTER = 0 ' Enter the form Const FM_CHECK = 1 ' Checking contents Const FM_EMAIL_SENT = 2 ' Email has been sent Const FM_EMAIL_ERROR = 3 ' Error Sending Email Const FM_FORM_ERROR = 4 ' Error in the form ' Check on the form mode Dim FMode ' Form Mode Dim NxMode ' Next Form Mode Dim Name ' Name on form Dim Email ' Email on form Dim Tel ' Telephone on form Dim Comp ' Company name on the form Dim PostCode ' Postcode on the form Dim Enquiry ' Company on the form Dim Title ' title Dim Surname ' Surname Dim Comptitle ' Company titel Dim CompAddOne ' Contact Address One Dim CompAddTwo ' Contact Address Two Dim CompAddThree ' Contact Address Three Dim CompAddFour ' Contact Address Four Dim CompAddFive 'Contact Address Five Dim ContactEmail ' Contact Email Dim ContactTel ' Contact Telephone Dim ContactPost ' Contact Post Dim FindOut 'dropFindOut Dim HowFindOutText 'dropFind TextBox Dim EventsDinners 'Events Awards and Dinners check box Dim EventsConference ' Events Meetings and confreences check box Dim EventsSummerParties ' Events Summer Parties check box Dim EventsChristmasParties ' Event Chritsmas parties check box Dim EventsCorpHospitality ' Event Corporate hospitiality check box Dim EventRestaurant ' Event Restaurant and private room bookings check box Dim EventTeamBuilding ' Event Team Building and Activities check box Dim EventProductLaunch ' Event Product Launch check box Dim EventOther ' Event Other Text box Dim OrganisePerYear ' Events orgainsised per year Drop Down box Dim EventParties ' Events Parties check box Dim LocationLondon ' Location City of London check box Dim CentralLondon ' Location Other Central London check box Dim WithinM25 ' Location Within M25 check box Dim ThroughoutUK ' Location Throughout UK check box Dim Regions ' Location Scotland, Wales, Ireland check box Dim OverSeas ' Location Overseas check box Dim EnquiryYearly ' Nature of Enquiry : yearly event management check box Dim EnquiryOneOff ' Nature of Enquiry : one off event management check box Dim Specialist ' Nature of Enquiry : Specialist check box Dim eMsg ' Error Message Dim dbConn1, rs1 ' Database Access Data ' ********************************** ' Checks for a valid email address ' ' Returns: true email address is good ' false email address is bad ' ********************************** Function checkEmail(emStr) Dim r1, r2 ' Regular expression objects Set r1 = new RegExp r1.Pattern = "(@.*@)|(\.\.)|(@\.)|(^\.)" Set r2 = new RegExp r2.Pattern = "^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$" If Not(r1.Test(emStr)) and r2.Test(emStr) Then checkEmail = true Else checkEmail = false End If End Function ' ******************************** ' Read the form details ' ******************************** Sub ReadForm() Name = Request.Form("txtName") Comp = Request.Form("txtCompany") Tel = Request.Form("txtTel") Email = Request.Form("txtEmail") Enquiry = Request.Form("txtEnquiry") PostCode = Request.Form("txtPostCode") Title = Request.Form("txtTitle") Surname = Request.Form("txtSurname") Comptitle= Request.Form("txtCompTitle") CompAddOne = Request.Form("txtCompanyOne") CompAddTwo = Request.Form("txtCompanyTwo") CompAddThree = Request.Form("txtCompanyThree") CompAddFour = Request.Form("txtCompanyFour") CompAddFive = Request.Form("txtCompanyFive") ContactEmail = Request.Form("chkSendEmail") ContactTel = Request.Form("chkSendTel") ContactPost = Request.Form("chkSendPost") FindOut = Request.Form("dropFindOut") HowFindOutText = Request.Form("txtHowFindOut") EventsDinners = Request.Form("chkEventsDinners") EventsConference = Request.Form("chkEventsConference") EventsSummerParties = Request.Form("chkEventsSummerParties") EventsChristmasParties = Request.Form("chkEventsChristmasParties") EventsCorpHospitality = Request.Form("chkEventsCorpHospitality") EventRestaurant = Request.Form("chkEventRestaurant") EventTeamBuilding = Request.Form("chkEventTeamBuilding") EventProductLaunch = Request.Form("chkEventProductLaunch") EventParties = Request.Form("chkEventParties") EventOther = Request.Form("txtEventOther") OrganisePerYear = Request.Form("dropPerYear") LocationLondon = Request.Form("chkLocationLondon") CentralLondon = Request.Form("chkCentralLondon") WithinM25 = Request.Form("chkWithinM25") ThroughoutUK = Request.Form("chkThroughoutUK") Regions = Request.Form("chkRegions") OverSeas = Request.Form("chkOverSeas") EnquiryYearly = Request.Form("chkEnquiryYearly") EnquiryOneOff = Request.Form("chkEnquiryOneOff") Specialist = Request.Form("chkSpecialist") End Sub ' ************************************************************ ' Attempts to store the client data in a cookie dictionary ' ************************************************************ Sub fetchClientInfo ' ******************************* ' Check if the cookies exist ' ******************************* If Request.Cookies("Confluence Events").HasKeys() = True Then Name = Request.Cookies("Confluence Events")("Name") Comp = Request.Cookies("Confluence Events")("Comp") Tel = Request.Cookies("Confluence Events")("Tel") Email = Request.Cookies("Confluence Events")("Email") PostCode = Request.Cookies("Confluence Events")("PostCode") Title = Request.Cookies("Confluence Events") ("Title") Surname = Request.Cookies("Confluence Events")("Surname") Comptitle= Request.Cookies("Confluence Events")("Comptitle") CompAddOne = Request.Cookies("Confluence Events")("CompAddOne") CompAddTwo = Request.Cookies("Confluence Events")("CompAddTwo") CompAddThree = Request.Cookies("Confluence Events")("CompAddThree") CompAddFour = Request.Cookies("Confluence Events")("CompAddFour") CompAddFive = Request.Cookies("Confluence Events")("CompAddFive") ContactEmail = Request.Cookies("Confluence Events")("ContactEmail") ContactTel = Request.Cookies("Confluence Events")("ContactTel") ContactPost = Request.Cookies("Confluence Events")("ContactPost") FindOut = Request.Cookies("Confluence Events")("FindOut") HowFindOutText = Request.Cookies("Confluence Events")("HowFindOutText") EventsDinners = Request.Cookies("Confluence Events")("EventsDinners") EventsConference = Request.Cookies("Confluence Events")("EventsConference") EventsSummerParties = Request.Cookies("Confluence Events")("EventsSummerParties") EventsChristmasParties = Request.Cookies("Confluence Events")("EventsChristmasParties") EventsCorpHospitality = Request.Cookies("Confluence Events")("EventsCorpHospitality") EventRestaurant = Request.Cookies("Confluence Events")("EventRestaurant") EventTeamBuilding = Request.Cookies("Confluence Events")("EventTeamBuilding") EventProductLaunch = Request.Cookies("Confluence Events")("EventProductLaunch") EventParties = Request.Cookies("Confluence Events")("EventParties") EventOther = Request.Cookies("Confluence Events")("EventOther") OrganisePerYear = Request.Cookies("Confluence Events")("OrganisePerYear ") Enquiry = Request.Cookies("Confluence Events")("Enquiry") LocationLondon = Request.Cookies("Confluence Events")("LocationLondon") CentralLondon = Request.Cookies("Confluence Events")("CentralLondon") WithinM25 = Request.Cookies("Confluence Events")("WithinM25") ThroughoutUK = Request.Cookies("Confluence Events")("ThroughoutUK") Regions = Request.Cookies("Confluence Events")("Regions") OverSeas = Request.Cookies("Confluence Events")("OverSeas") EnquiryYearly = Request.Cookies("Confluence Events")("EnquiryYearly") EnquiryOneOff = Request.Cookies("Confluence Events")("EnquiryOneOff") Specialist = Request.Cookies("Confluence Events")("Specialist") End If End Sub ' ******************************* ' check the values on the form ' ******************************* Function checkForm() eMsg = "" 'If Len(Name) = 0 Then 'emsg = emsg & wrErr("Please enter your name.") ' End If ' If Len(Enquiry) = 0 Then ' emsg = emsg & wrErr("Please enter some enquiry details.") ' End If If checkEmail(Email) = False Then emsg = emsg & wrErr("Please enter a valid email address.") End If If Len(Emsg) > 0 then checkForm = False Else checkForm = True End If End Function ' ***************************************** ' Format the error code ' ***************************************** Function wrErr(Str) wrErr = "
  • " & Str & "
    • " & vbCrLf End Function ' ****************************************************** ' Send the Message notification email ' ****************************************************** Function sendEmail() Dim StrMessHdr ' Header for the message string Dim StrMessFtr ' Header for the message string Dim StrMess ' Message string Dim Mailer ' Mailer Object ' Create the mailer object Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' Set the Mail From Information Mailer.FromName = Name Mailer.FromAddress = Email Mailer.RemoteHost = MAILHOST ' ******************************** ' Set up the recipient address '' ******************************** Mailer.AddRecipient ORGANISER_COMPANY, ORGANISER_EMAIL Mailer.Subject = "Confluence Events Website Enquiry Notice" StrMessHdr = VbCrLf & "---------------- Confluence Events Website Enquiry Notice ------------------" & VbCrlf & VbCrlf StrMess = "Date: " & FormatDateTime(Now(), 1) & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "PERSONAL INFORMATION: " & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "Name: " & Name & vbCrLf StrMess = StrMess & "Salutation: " & Title & vbCrLf StrMess = StrMess & "Surname " & Surname & vbCrLf & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "COMPANY INFORMATION: " & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "Job title " & Comptitle & vbCrLf StrMess = StrMess & "Company name: " & Comp & vbCrLf StrMess = StrMess & "Address 1: " & CompAddOne & vbCrLf StrMess = StrMess & "Address 2: " & CompAddTwo & vbCrLf StrMess = StrMess & "Address 3: " & CompAddThree & vbCrLf StrMess = StrMess & "Address 4: " & CompAddFour & vbCrLf StrMess = StrMess & "Address 5: " & CompAddFive & vbCrLf StrMess = StrMess & "Postcode: " & PostCode & vbCrLf StrMess = StrMess & "Telephone: " & Tel & vbCrLf StrMess = StrMess & "Email: " & Email & vbCrLf & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "CONTACT METHOD CHOICE: " & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "How to be contacted - via: " & ContactEmail & ContactTel & ContactPost & vbCrLf StrMess = StrMess & "How did you find us: " & FindOut & vbCrLf StrMess = StrMess & "Other: " & HowFindOutText & vbCrLf & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "TYPES OF EVENTS ORGANISED " & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "Awards/Large Dinners: " & EventsDinners & vbCrLf StrMess = StrMess & "Meetings and Conferences: " & EventsConference & vbCrLf StrMess = StrMess & "Summer Parties: " & EventsSummerParties & vbCrLf StrMess = StrMess & "Christmas Parties: " & EventsChristmasParties & vbCrLf StrMess = StrMess & "Corporate Hospitality: " & EventsCorpHospitality & vbCrLf StrMess = StrMess & "Restaurant & Room Bookings: " & EventRestaurant & vbCrLf StrMess = StrMess & "Team Building Activities: " & EventTeamBuilding & vbCrLf StrMess = StrMess & "Product Launches: " & EventProductLaunch & vbCrLf StrMess = StrMess & "Parties: " & EventParties & vbCrLf StrMess = StrMess & "Other: " & EventOther & vbCrLf StrMess = StrMess & "Events Organised per year: " & OrganisePerYear & vbCrLf& vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "LOCATION OF EVENTS " & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "City of London: " & LocationLondon & vbCrLf StrMess = StrMess & "Other Central London locations: " & CentralLondon & vbCrLf StrMess = StrMess & "Within the M25: " & WithinM25 & vbCrLf StrMess = StrMess & "Throughout the UK: " & ThroughoutUK & vbCrLf StrMess = StrMess & "Scotland, Wales, Ireland & Jersey: " & Regions & vbCrLf StrMess = StrMess & "Overseas: " & OverSeas & vbCrLf & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "NATURE OF ENQUIRY " & vbCrLf StrMess = StrMess & "----------------------------------------------------------------" & vbCrLf StrMess = StrMess & "Yearly Event Management Package: " & EnquiryYearly & vbCrLf StrMess = StrMess & "One Off Event Management: " & EnquiryOneOff & vbCrLf StrMess = StrMess & "Specialist Services: " & Specialist & vbCrLf & vbCrLf StrMess = StrMess & "Additional Comments: " & Enquiry & vbCrLf StrMessFtr = VbCrLf & "-------------------------------- End -------------------------------------" & VbCrlf ' Fill in the body text from the form Mailer.BodyText = StrMessHdr & StrMess & StrMessFtr if not Mailer.SendMail then sendEmail = FM_EMAIL_ERROR else sendEmail = FM_EMAIL_SENT end if set Mailer = nothing End Function If Request.Form("fEnter") = "" Then FMode = FM_ENTER NxMode = FM_CHECK fetchClientInfo Else FMode = Cint(Request.Form("fEnter")) If FMode = FM_CHECK Then ' Read the contents of the form ReadForm ' Check the Form If checkForm() = False Then FMode = FM_FORM_ERROR NxMode = FM_CHECK Else ' Send the Emails FMode = sendEmail() NxMode = FM_CHECK End If End If End If %> Confluence Events
     
     
    Confluence events management
    one st Georges lane, london EC3R 8DJ
    0208 871 2379
     
    Bespoke One Fee Idea Pasts Events Contacts Index
     

    CONTACT US
    Complete the form below to contact us or call us on: 0208 871 2379.

    Address: No. 1 St Georges Lane, London EC3R 8DJ.

     
    <% If (FMode = FM_ENTER) OR (FMode = FM_FORM_ERROR)Then %> <% If FMode = FM_FORM_ERROR Then %>

    The form is incomplete, please enter the following:<%=eMsg%> <% End If%>

     
      Personal details    
     
               
    Title: First Name:  Surname:
       
      Company information
       
     
    Job Title: 
     Company Name:
     
    Company Address 1: 
     Company Address 2:
     
    Company Address 3: 
     Town:
     
    Country/State: 
     Post/ZIPcode:
           
      Telephone & Email    
             
     
    Telephone: 
     Email address: 
       
      How would you like to be contacted?  
     
    Email: Telephone: Post:
         
    		 
      How did you find out about us?
      Choose from:    
      Found us from other:  
         
      What type of Events do you organise?  
     
    Tick as appropriate    
               
    Awards/Large Dinners:   Meetings & Conferences:   Summer Parties:
    Christmas Parties:   Corporate Hospitality:   Restaurant & Private Room Bookings: 
    Team Building & Activities: Product Launches:   Parties:
       
    Tell us if you organise events other than those specified above:
         
      How many events do you organise a year?
       
      Choose from:    
         
      Where do you usually hold your events?  
     
    Tick as appropriate    
           
    City of London:   Other Central London locations:    
    Within the M25: Throughout England   
    Scotland, Wales, Ireland, & Jersey Overseas 
         
      Nature of Enquiry?  
      Tick as appropriate
     
     
    Yearly Event Management Package       
    One off Event Management:      
    Specialist Services:      
       
     

    Additional Comments:

    		  
       
     
         
          
     

    <% ElseIf FMode = FM_EMAIL_SENT Then %>

    Thank you for your enquiry.
    We will be contacting you as soon as it is possible.

    <% Else %> There has been an error sending the email. Please try again later. We thank you for your patience. <% End If %>
     

    Bespoke One Fee Idea Pasts Events Contacts Index

     
     
    Sports
    Eating Experience
    Corporate
    Team
    Seasonal
     
    .............................................................................................................................................................................................
    Confluence Event Management Limited 0208 871 2379 .................................................................... marywilson@confluenceevents.co.uk