<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim contact_name, contact_company_name, contact_address, contact_postcode, contact_email, contact_phone, contact_country , contact_comment Dim intError, arrMessage(7) intError = 0 If request.Form("Send") = "contact" Then contact_name = Trim(request.Form("name")) contact_company_name = Trim(request.Form("companyName")) contact_address = Trim(request.Form("address")) contact_email = Trim(request.Form("email")) contact_postcode = Trim(request.Form("postcode")) contact_phone = Trim(request.Form("phone")) contact_country = Trim(request.Form("country")) contact_comment = Trim(request.Form("comment")) If contact_name = "" Then arrMessage(intError) = "Your Name is empty or invalid." intError = intError+1 End If If contact_company_name = "" Then arrMessage(intError) = "Your Company Name is empty or invalid." intError = intError+1 End If If contact_email = "" Or IsValidEmail(contact_email) = false Then arrMessage(intError) = "Invalid Email address." intError = intError+1 End If If contact_address = "" Then arrMessage(intError) = "Your Address is empty or invalid." intError = intError+1 End If If contact_postcode= "" Then arrMessage(intError) = "Your Postcode is empty or invalid." intError = intError+1 End If If contact_phone = "" Then arrMessage(intError) = "Your Phone number is empty." intError = intError+1 End If If contact_country = "" Then arrMessage(intError) = "Your Country is empty." intError = intError+1 End If If intError = 0 Then 'Send email with information to the owner Dim Temp, MailSubject, MailBody, MailTo, MailExtraTo, MailFrom, MailAttachment MailSubject = "Website Enquiry" MailBody = MailBody & VbCrLf & "SIGNATURE LEATHER ENQUIRY" & VbCrLf & VbCrLf MailBody = MailBody & "Contact Details: "& VbCr MailBody = MailBody & "-------------------------------------------------- " & VbCrLf MailBody = MailBody & "Name: " & contact_name & VbCrLf & VbCrLf MailBody = MailBody & "Company Name: " & contact_company_name & VbCrLf & VbCrLf MailBody = MailBody & "-------------------------------------------------- " & VbCrLf MailBody = MailBody & "Address: " & contact_address & VbCrLf & VbCrLf MailBody = MailBody & "Postcode: " & contact_postcode & VbCrLf & VbCrLf MailBody = MailBody & "Country: " & contact_country & VbCrLf & VbCrLf MailBody = MailBody & "-------------------------------------------------- " & VbCrLf If contact_email <> "" Then MailBody = MailBody & "Email: " & contact_email & VbCrLf End If If contact_phone <> "" Then MailBody = MailBody & "Phone: " & contact_phone & VbCrLf End If MailBody = MailBody & VbCrLf & VbCrLf If contact_comment <> "" Then MailBody = MailBody & "Comment: "& VbCr MailBody = MailBody & "-------------------------------------------------- " & VbCrLf MailBody = MailBody & contact_comment & VbCrLf & VbCrLf End If MailTo = "partner.enquiry@signature-leather.com" MailExtraTo = "nico@babblecom.co.uk" If contact_email <> "" Then MailFrom = contact_email Else MailFrom = "noEmail@signature-leather.com" End If call SendMail() response.Redirect("contact_us.asp?act=thanks") End If Else contact_name = "" contact_email = "" contact_phone = "" contact_title = "" contact_comment = "" End If %> Signature Leather - Style & Performance | Press Release

Contact us » Contact Details

Contact us

If you’re interested in becoming a Signature Leather Retail Partner or require further information on our products please fill in the form below:

<% If request.QueryString("act") = "thanks" Then %>

Successful...

Thank you for your enquiry,
we will get back to you as soon as possible.

Regards,

The Signature Team

<% Else %>
Form
<% If intError <> 0 Then response.Write("
" & intError & " error(s) must be fixed: ") For intCount = 0 to intError-1 response.Write("
" & intCount+1 & " - " & arrMessage(intCount) & vbCr) Next response.Write("
") End If %>

<% End If %>