Home » Launch

Launch Party

<% If Request.Form("formaction") = "new" Then Dim info If Not Validate(info) Then %>

There were errors in the form. Please fill in all fields.

<% =Form() %> <% Else Process %>

Thank you for submitting the form. We will contact you shortly with further details! See you at the launch.

<% End If Else %>

Come along to the launch of Guide to Living and Working in the UK and Ireland.

The book will be launched by the British Consul-General, Tim Holmes. The Consul-General of Ireland, Patrick Scullion will also attend.

Meet the author and talk to like-minded people about your travel plans.

DateTuesday, 19 February 2008
PlaceSydney

Enter your full details below and we will send you more information. We need to know your address so that we can send the invite out to you. The number of invites is limited so first in best dressed.

<% =Form() %> <% End If %>

Home | Buy | Contents | Contact | About | Publicity | Blog

<% Function Form() Form = _ "
" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
Full Name
Email
Address
" & _ "
" End Function Function Validate(info) Validate = True If Request.Form("name")="" Then Validate = False info = info & "
  • Name is blank.
    • " End If If Request.Form("email")="" Then Validate = False info = info & "
  • Email is blank.
    • " ElseIf InStr(Request.Form("email"), "@") = 0 Then Validate = False info = info & "
  • Badly formed email.
    • " End If If Request.Form("address")="" Then Validate = False info = info & "
  • Address is blank.
    • " End If End Function Function Process() Dim oSendMail:Set oSendMail = CreateObject("CDO.Message") With oSendMail .From = """Living and Working in the UK Website"" " '.To = "mwoodman@hotmail.com" .To = "andreawoodman@hotmail.com" If Not IsNull(sCC) Then .CC = "andrea@andreawoodman.com" End If .Subject = "Invite acceptance: " & Request.Form("name") .TextBody = Now() & VbCrLf & VbCrLf & _ Request.Form("name") & VbCrLf & VbCrLf & _ Request.Form("email") & VbCrLf & VbCrLf & _ Request.Form("address") & VbCrLf & VbCrLf .Send End With Set oSendMail = Nothing End Function %>