Bespoke handmade furniture makers and designers - 101fs

Menu

 Home

 Video

 Contact

 Enquiry form

 Comments

E-mail
info@101fs.co.uk

Tel:
0115 9879631
Bespoke contemporary furniture designers and manufacturers - 101fs
  <%if lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then 'capture data from form dim strTypeOffice, strTypeTables, strTypeCabinets, strTypeBedroom, strTypeSpecials, strName, strCompany, strEmail, strTelephone, strPrivate, strArchitect, strDesigner dim strCustMail, strShorMail, strFormContents, htmlFormContents, htmlHeader, htmlFooter, htmlEmail strTypeOffice = Trim(Request.Form("office")) strTypeTables = Trim(Request.Form("tables")) strTypeCabinets = Trim(Request.Form("cabinets")) strTypeBedroom = Trim(Request.Form("bedroom")) strTypeSpecials = Trim(Request.Form("specials")) strCompany = Trim(Request.Form("company")) strTelephone = Trim(Request.Form("telephone")) strDesigner = Trim(Request.Form("designer")) strArchitect = Trim(Request.Form("architect")) strPrivate = Trim(Request.Form("private")) shorehamEmail = "info@101fs.co.uk" htmlHeader = "101fs" 'style definitions htmlHeader = (htmlHeader & "") htmlHeader = (htmlHeader & "
") htmlFormContents = "" htmlFormContents=(htmlFormContents & "") strFormContents = "Name:" & vbtab & vbtab & vbtab & vbtab & strName & vbcrlf htmlFormContents=(htmlFormContents & "") strFormContents = (strFormContents & "Company:" & vbtab & vbtab & vbtab & strCompany & vbcrlf) htmlFormContents=(htmlFormContents & "") strFormContents = (strFormContents & "Email:" & vbtab & vbtab & vbtab & vbtab & strEmail & vbcrlf) htmlFormContents=(htmlFormContents & "") strFormContents = (strFormContents & "Telephone:" & vbtab & vbtab & vbtab & vbtab & strTelephone & vbcrlf) htmlFormContents=(htmlFormContents & "
I am a:") strFormContents = (strFormContents & "I am a:" & vbcrlf) if strDesigner <> "" then htmlFormContents=(htmlFormContents & "" & strDesigner & "
") strFormContents = (strFormContents & strDesigner & vbcrlf) strName = Trim(Request.Form("name")(1)) strEmail = Trim(Request.Form("email")(1)) end if if strArchitect <> "" then htmlFormContents=(htmlFormContents & "" & strArchitect & "
") strFormContents = (strFormContents & strArchitect & vbcrlf) strName = Trim(Request.Form("name")(1)) strEmail = Trim(Request.Form("email")(1)) end if if strPrivate <> "" then htmlFormContents=(htmlFormContents & "" & strPrivate & "
") strFormContents = (strFormContents & strPrivate & vbcrlf) strName = Trim(Request.Form("name")(2)) strEmail = Trim(Request.Form("email")(2)) end if htmlFormContents = (htmlFormContents & "
Name:" & strName & "
Company:" & strCompany & "
Email:" & strEmail & "
Telephone:" & strTelephone & "
I am interested in:") strFormContents = (strFormContents & "I am interested in:" & vbcrlf) if strTypeOffice <> "" then htmlFormContents=(htmlFormContents & "" & strTypeOffice & "
") strFormContents = (strFormContents & strTypeOffice & vbcrlf) end if if strTypeTables <> "" then htmlFormContents=(htmlFormContents & "" & strTypeTables & "
") strFormContents = (strFormContents & strTypeTables & vbcrlf) end if if strTypeCabinets <> "" then htmlFormContents=(htmlFormContents & "" & strTypeCabinets & "
") strFormContents = (strFormContents & strTypeCabinets & vbcrlf) end if if strTypeBedroom <> "" then htmlFormContents=(htmlFormContents & "" & strTypeBedroom & "
") strFormContents = (strFormContents & strTypeBedroom & vbcrlf) end if if strTypeSpecials <> "" then htmlFormContents=(htmlFormContents & "" & strTypeSpecials & "
") strFormContents = (strFormContents & strTypeSpecials & vbcrlf) end if htmlFormContents=(htmlFormContents & " ") htmlFooter = ("
") 'build email for shoreham htmlEmail = htmlHeader & "

The following response was placed on the website on " & longEnglishDate(Date()) & ".

" & htmlFormContents & htmlFooter strShorMail="The following response was placed on the website on " & longEnglishDate(Date()) & chr(10) & chr(10) & strFormContents 'send emails call sendMultipartMail(shorehamEmail,strEmail,"101fs Enquiry",htmlEmail,strShorMail,"",false) 'call sendMultipartMail("andrei@senior.co.uk",strEmail,"Website enquiry",htmlEmail,strShorMail,"",false) 'build email for user htmlEmail = htmlHeader & "

Dear " & strName & "

Thank you for your enquiry placed on the website on " & longEnglishDate(Date()) & ". Please find below a copy of the message you sent, and we will contact you shortly.

" & htmlFormContents & "

Regards From

101fs

" & htmlFooter strShorMail="Dear " & strNameOne & "," & vbcrlf & vbcrlf & "Thank you for your enquiry placed on the website on " & longEnglishDate(Date()) & chr(10) & chr(10) & strFormContents & vbcrlf & vbcrlf & "Regards From"& vbcrlf & vbcrlf &"101fs" if strEmail <> "" then call sendMultipartMail(strEmail,shorehamEmail,"Your 101fs Enquiry",htmlEmail,strShorMail,"",false) end if %>
michael williamson -- designer and manufacturer of unique furniture for unique people

Thank you for your enquiry. We will be in touch with you shortly, and you will receive a copy of your response in your email.

<%else%>
" onSubmit="return validEnquiry(this);"id="form">

michael williamson -- designer and manufacturer of unique furniture for unique people

Please send me information on 101fs bespoke furniture design services.

I am a:

Name:
Company:
Telephone:
Email*:
Name:
Email:
 

I am interested in:

<%end if%>