<%@language="VBScript"%>
Fire Rated Duct,Ducting,Ductwork by Firth Sheet Metal Ltd of Scarborough approved to manufacture and install Fire Rated Ductwork by Durasteel, FIRMAC Continuous Girth Flanges, Flange Systems, General Sheet Metal Work
<%
dim command
command = Request("command")
dim forename
dim surname
dim email
dim telno
dim faxno
dim address
dim postcode
dim specify
dim frd
dim cgf
dim osm
dim sRequest
dim body
dim subject
if command <> "" then
forename = Request.Form("Forename")
surname = Request.Form("Surname")
email = Request.Form("Email")
telno = Request.Form("Telno")
faxno = Request.Form("Faxno")
address = Request.Form("Address")
postcode = Request.Form("Postcode")
specify = Request.Form("Specify")
frd = Request.Form("frd")
cgf = Request.Form("cgf")
osm = Request.Form("osm")
dim sError
sError = ""
sError = ValidateForm(forename,surname,address,postcode,email)
if Len(sError) > 0 then
formerror = sError
end if
if frd = "1" then
sRequest = "Text only link" & vbcrlf
elseif cfg = "1" then
sRequest = sRequest & "CGF Flange Range" & vbcrlf
elseif osm = "1" then
sRequest = sRequest & "Other Sheet Metal Work"
end if
subject = "Firthsm Brochure Request"
body = "Customer Brochure Request From " & forename & " " & surname & vbcrlf
body = body & "has requested a " & sRequest & vbcrlf & vbcrlf
body = body & "Address " & address & vbcrlf
body = body & "Postcode " & postcode & vbcrlf
body = body & "Email Address " & email & vbcrlf
body = body & "Telephone " & telno & vbcrlf & vbcrlf
body = body & "Fax " & faxno & vbcrlf & vbcrlf
body = body & "Other Information " & specify & vbcrlf
if Len(sError) = 0 then
'Call SendEmail(email,subject,body,sReturn)
Response.Redirect("infoReply.asp")
end if
end if
%>
Our Newsletter will be published soon.