About Us Contact Us Brochure Request Products Area Covered Home

 

Feedback...

It is important to us that as a visitor to our site you find it easy to navigate and find the information you require. We are also keen to know what products and/or services you require but have been unable to find on the site. We need you to help us to help you, so please feel free to express your views using the form below.

<% Dim intLoop Dim intProcess Dim strSalutation Dim strSurname Dim strCompany Dim strAdr1 Dim strAdr2 Dim strAdr3 Dim strCity Dim strCounty Dim strZip Dim strCountry Dim strPhone1 Dim strFax1 Dim strEmail1 Dim strComment strSalutation = Request.Form("salutation") strFirstName = Request.Form("first") strSurname = Request.Form("surname") strCompany = Request.Form("company") strAdr1 = Request.Form("adr1") strAdr2 = Request.Form("adr2") strAdr3 = Request.Form("adr3") strCity = Request.Form("city") strCounty = Request.Form("county") strZip = Request.Form("zip") strCountry = Request.Form("country") strPhone1 = Request.Form("Phone1") strFax1 = Request.Form("Fax1") strEmail1 = Request.Form("E_Mail1") strComment = Request.Form("Comment Memo") intLoop = Request.Form("Loop") + 1 intProcess = FALSE if intLoop > 1 then Response.Write "

" if strEmail1 = "" then Response.Write "Please enter your EMAIL address" else intProcess = TRUE end if Response.Write "

" end if if intProcess = FALSE then Response.Write "
" Response.Write "

Please enter your name:

" Response.Write "

Mr/Mrs/Miss: First name: Surname:

" Response.Write "

Please give us your mailing address:

" Response.Write "

Company Name: (if applicable)

" Response.Write "

Address 1:

" Response.Write "

Address 2:

" Response.Write "

Address 3:

" Response.Write "

City:

" Response.Write "

County: Postal Code:

" Response.Write "

Country:

" Response.Write "

Phone: Fax:

" Response.Write "

E-mail:

" Response.Write "

Please share your comments or questions with us:
" Response.Write "" Response.Write "

" Response.Write "

" Response.Write "
" else Dim myCDO Dim strForm Set myCDO = Server.CreateObject("CDONTS.NewMail") strForm = "---------------------------------------------------------------------- " + Chr(13) strForm = strForm + strSalutation + " " + strFirstName + " " + strSurname + Chr(13) strForm = strForm + strEmail1 + Chr(13) strForm = strForm + "---------------------------------------------------------------------- " + Chr(13) strForm = strForm + "Company : " + strCompany + Chr(13) strForm = strForm + "Address : " + strAdr1 + Chr(13) strForm = strForm + " : " + strAdr2 + Chr(13) strForm = strForm + " : " + strAdr3 + Chr(13) strForm = strForm + "City : " + strCity + Chr(13) strForm = strForm + "County : " + strCounty + Chr(13) strForm = strForm + "Postal Code : " + strZip + Chr(13) strForm = strForm + Chr(13) strForm = strForm + "Phone : " + strPhone1 + Chr(13) strForm = strForm + "Fax : " + strFax1 + Chr(13) strForm = strForm + "---------------------------------------------------------------------- " + Chr(13) strForm = strForm + strComment + Chr(13) strForm = strForm + "---------------------------------------------------------------------- " + Chr(13) myCDO.Send strEmail1, "enquiries@smith-fencing.co.uk", "Feedback Form from " + strFirstName + " " + strSurname, strForm Set myCDO = nothing Response.Write "" Response.Write "" Response.Write "

Thankyou, your comments have been submitted.

" end if %>

 

R.M.Smith Fencing Ltd
Established 1963

Copyright © 2000. R.M.Smith Fencing Ltd
Revised: 2000.03.02
Webmaster: Janine Eady
URL: http://www.smith-fencing.co.uk/feedback.html