Intelligent Financial Advice Ltd

<% ' set the var doStage based on the value of the action var in the querystring DoStage = Request("action") 'if the dosatge is empty the form has not been submitted so it must be the first stage we need to do so set as 1 if isEmpty(DoStage) then DoStage = 1 end if ' set a select to do different actions based on DoStage vars value select case DoStage case 1 %>

Make an Appointment

I would like to:	Make an appointment to see an advisor Attend a seminar
I am:	An Existing Client of Intelligent Finance Advice Not a current client of Intelligent Financial Advice
My details are:
Name
Address
Contact telephone number
Reason for appointment	Review Seminar Inheritance Tax planning Pension advice Mortgage advice Corporate Financial Planning Other
If existing client, what is the name of your current advisor.

We will endeavour to contact you within 24 hours after recieving your e-mail

<% case 2 '///////////////////////////////////////////////////////////////////////////////////////// 'Send An Email with the attachment '///////////////////////////////////////////////////////////////////////////////////////// 'get vars frompost Dim LikeTo, Iam, CName, Address, ContactNum, Reason, AdvisorName, EmailBody LikeTo = Request("LikeTo") Iam = Request("Iam") CName = Request("Name") Address = Request("Address") ContactNum = Request("ContactNum") Reason = Request("Reason") AdvisorName = Request("AdvisorName") 'make email body from vars EmailBody = "The following was entered into the online make appointment form." & vbcrlf & vbcrlf & "I would like to: " & LikeTo & vbcrlf & vbcrlf & "I am: " & Iam & vbcrlf & vbcrlf & "Name: " & CName & vbcrlf & "Address: " & Address & vbcrlf & "Contact telephone number: " & ContactNum & vbcrlf & "Reason for appointment: " & Reason & vbcrlf & vbcrlf & "My Current Advisor is: " & AdvisorName ' CDO mail object Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") '///////////////////////////////////////////////////////////////////////////////////////// 'This section provides the configuration information for the remote SMTP server. '///////////////////////////////////////////////////////////////////////////////////////// 'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). 'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.swisp.co.uk" 'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) 'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" 'objMessage.Configuration.Fields.Update '//////////////////////////////////////////////////////////////////////////////////////// 'End remote SMTP server configuration section '//////////////////////////////////////////////////////////////////////////////////////// ' CDO mail setttings 'with objMessage objMail.Subject = "Online make appointment form submission" objMail.From = "feedback@ifalimited.co.uk" objMail.To = "d.gunningham@ifalimited.co.uk" '.To = "d.gunningham@ifalimited.co.uk" ' set the body to the content of the text field on the form objMail.Body = EmailBody 'send the mail objMail.Send 'end with ' destroy object, free memory set objMail = nothing '///////////////////////////////////////////////////////////////////////////////////////// 'END EMAIL CODE '///////////////////////////////////////////////////////////////////////////////////////// response.redirect ("makeappointment.asp?action=3") %>

Sending Mail

<% case 3 %>

Thankyou, a member of the team will review your correspondence shortly, and respond in due course.

We will endeavour to contact you within 24 hours after recieving your e-mail

<% End Select %>