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 strName, strEmail, strComments dim strCustMail, strShorMail, strFormContents, htmlFormContents, htmlHeader, htmlFooter, htmlEmail strName = Trim(Request.Form("name")) strEmail = Trim(Request.Form("email")) strComments = Trim(Request.Form("comments")) 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 & "Email:" & vbtab & vbtab & vbtab & vbtab & strEmail & vbcrlf) htmlFormContents=(htmlFormContents & "
Name:" & strName & "
Email:" & strEmail & "

Your Comments:
" & strComments & "

") strFormContents = (strFormContents & "Your Comments:" & vbtab & vbtab & vbtab & vbtab & strComments & vbcrlf) 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 Comments",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 comments 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 comments 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 Comments",htmlEmail,strShorMail,"",false) end if %>

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

Thank you for your comments. 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

We value your opinions, and welcome your comments/suggestions.

<%end if%>