Client site
Client site: Register
Please enter your details below to gain access. If you do not already have a password, please register below.

Username:
Password:

<% Dim strsurname, strfirst_name, strinitials, strposition, strcompany, straddress1, straddress2, strtown, strcounty, strpostcode, strhome, strwork, strmobile, strfax, strwebsite, stremail2, strmessage, strupdate strsurname = Trim(Request.Form("surname")) strfirst_name = Trim(Request.Form("first_name")) strinitials = Trim(Request.Form("initials")) strposition = Trim(Request.Form("position")) strcompany = Trim(Request.Form("company")) straddress1 = Trim(Request.Form("address1")) straddress2 = Trim(Request.Form("address2")) strtown = Trim(Request.Form("town")) strcounty = Trim(Request.Form("county")) strpostcode = Trim(Request.Form("postcode")) strhome = Trim(Request.Form("home")) strwork = Trim(Request.Form("work")) strmobile = Trim(Request.Form("mobile")) strfax = Trim(Request.Form("fax")) stremail2 = Trim(Request.Form("email")) strwebsite = Trim(Request.Form("website")) strmessage = Trim(Request.Form("message")) strupdate = Trim(Request.Form("update")) If (stremail2 > " " ) Then DIM objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "website@beacondawn.com" ObjMail.To = "dwsimpson@beacondawn.com" objMail.Subject = "Registration details" objMail.CC = " " objMail.Body ="Surname: " & strsurname & VbCrLf &_ "First Name: " & strfirst_name & VbCrLf &_ "Initials: " & strinitials & VbCrLf &_ "Position: " & strposition & VbCrLf &_ "Company: " & strcompany & VbCrLf &_ "Address1: " & straddress1 & VbCrLf &_ "Address2: " & straddress2 & VbCrLf &_ "Town/City: " & strtown & VbCrLf &_ "County: " & strcounty & VbCrLf &_ "Postcode: " & strpostcode & VbCrLf &_ "Home phone: " & strhome & VbCrLf &_ "Work phone: " & strwork & VbCrLf &_ "Mobile phone: " & strmobile & VbCrLf &_ "Fax: " & strfax & VbCrLf &_ "email: " & stremail2 & VbCrLf &_ "Website: " & strwebsite & VbCrLf &_ "Message: " & strmessage & VbCrLf &_ "Email me updates? (Blank if no): " & strupdate objMail.Send Response.Write "Thank you " & strfirst_name & strsurname & " for registering with Beacondawn." set objMail = Nothing Else %> Registration Form
">

Surname  
First name
Initials
Position
Company
Address Line
Address Line 2
Town/City
County
Postcode
Work phone
Mobile phone
 
Fax
 
Email:  
Web site:  
You are welcome to use this box, if you wish, to provide us with further details or to request further specific information
Please include me in you email update list
 
Policy of Confidentiality
Beacondawn Limited is registered under the Data Protection Act 1998 and complies with all confidentiality requirements regarding the use of personal information.
Beacondawn will not pass any information given on this form without prior permission.
<% End If %>