<% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "Name~address~postcode~country~email~phone~comments~How_find" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "website@jeffteasdale.com" objCDO.To = "jeff@jeffteasdale.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Website Enquiry" BodyString = Replace("","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "thank.html" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Jeff Teasdale-Designs on Art
Jeff Teasdale-Designs on Art
Education & Workshops

Drawing Workshops
Painting Workshops
Sculpture Workshops

Gallery of work
Profile

Diary

Contact me for more information

‘Rock Mount’
114 Prestbury Road
Macclesfield Cheshire
SK10 3BN
Tel : 01625 420765

Email:

 

04 : CONTACT: Enquiry form

This web site represents only a small part of my work. If you would like to know more, please phone or email me. Alternatively, you can fill in the form below with your details and i will get back to you.
  Name:    

  Address:  

   Your Postal or Zip Code
Your Country
   Your Email
 Your Phone Number
Please state the nature of your enquiry?

How did you find this site?