Signature Leather - Style & Performance | How to become a Retail Partner

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim contact_name,contact_company_name, contact_email, contact_phone, contact_postcode, contact_country, contact_comment Dim intError, arrMessage(6) 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_postcode = Trim(request.Form("postcode")) contact_email = Trim(request.Form("email")) contact_phone = Trim(request.Form("phone")) contact_country = Trim(request.Form("country")) 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_address = "" Then arrMessage(intError) = "Your Address 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_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 / Become a Signature Retail Partner" MailBody = MailBody & VbCrLf & "Become Signature Retail Partner" & VbCrLf & VbCrLf MailBody = MailBody & "Contact Details: "& VbCr MailBody = MailBody & "-------------------------------------------------- " & VbCrLf MailBody = MailBody & "Name: " & contact_name & VbCrLf & VbCrLf If contact_company_name <> "" Then MailBody = MailBody & "Company Name: " & contact_company_name & VbCrLf End If MailBody = MailBody & "-------------------------------------------------- " & VbCrLf If contact_address <> "" Then MailBody = MailBody & "Address: " & contact_address & VbCrLf End If If contact_address <> "" Then MailBody = MailBody & "Postcode: " & contact_postcode & VbCrLf End If If contact_country <> "" Then MailBody = MailBody & "Country: " & contact_country & VbCrLf End If 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 MailTo = "tim@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("how_become_partner.asp?act=thanks") End If Else contact_name = "" contact_email = "" contact_phone = "" contact_title = "" contact_comment = "" End If %> Signature Leather - Style & Performance | How to become a Retail Partner

About us » How to become a Retail Partner

Submenu

How to become a Signature Retail Partner

Thank you for your interest in Signature Leather

Our Signature Leather Retail Partner Program is attracting new partners from all over the world. We are always looking to expand into new areas and regions. If you feel that our retail vision matches your current business profile or your plans for future business development we would like to hear from you and we invite you to complete 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 Leather Team

<% Else %> <% End If %>