51001/9100 16' Climbing Stick

<%@LANGUAGE="VBSCRIPT"%> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> 51001/9100 16' Climbing Stick

Step 3 of 3

The first page of your instruction manual is a contents page of the parts you are to find in your box. Below the claim form is also a picture of the parts list. You will see a letter next to each part which identifies the part. If the part is a nut or washer there is no letter. Find the part letter you are missing and fill in the form below. Please allow 72 hours for processing time and allow 12 business days for your part to deliver before calling customer service to inquire about delivery of the part. ALL orders are shipped UPS Ground.

You will receive a confirmation after submitting the form below acknowledging we have received your claim.

If there are any problems in processing your claim or further information is needed, a customer service rep will contact you directly prior to the part shipping. In some instances part shipments can take 21 days if the part is not available in the USA and must ship direct from the factory.

All fields are required in order to process your customer service claim.

Full Name:

Email address:

Confirm email:

Street Address:
(Cannot ship to PO Boxes)

City: State: Zip:

Phone No. :

Model No.: Year Manf:

Date Purchased:

Part Number: Quantity needed:
(If no part letter, enter description only below)

Description:
(Description as it appears on contents page)

Reason for replacement:

Change Image
Type the characters you see in the picture above:
<% if not IsEmpty(Request.Form("btnTest")) then Response.Write("") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then Response.Write("The code you entered is verified.") '--- Create an instance of the AspMail object --- set Mailer = Server.CreateObject("SMTPsvg.Mailer") '--- Set all the properties of the e-mail header --- Mailer.FromName = Request.Form("name") Mailer.FromAddress = "service@treestandcustomerservice.com" Mailer.RemoteHost = "si68.webexpert.net" Mailer.AddRecipient "Tree Stands", "service@treestandcustomerservice.com" Mailer.Subject = "Customer Service Email" '--- Loop through each item sent from the HTML form --- '--- and put it into variable with carriage returns --- For Each Item in Request.Form strMsgInfo = strMsgInfo & Item & ": " & Request.Form(Item) & vbCrLf Next '--- Add visual formatting elements to the e-mail --- strMsgHeader = "Form information follows:" & vbCrLf strMsgHeader = strMsgHeader & "*************" & vbCrLf strMsgFooter = "*************" '--- Assemble the header, form data and footer then --- '--- assign them to the body of the AspMail message --- Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter '--- If the message sends, print some useful output --- '--- to the browser or redirect user to success URL --- If Mailer.SendMail Then Set Mailer = Nothing ' Use either these four print statements, or the ' redirect statement below them (commented out) 'Response.Write "The message was sent!

" 'Response.Write "The body of the message was:

" 'Response.Write "

" & strMsgHeader & "
" & strMsgInfo
'Response.Write "
" & strMsgFooter & "

" Response.Redirect "http://treestandcustomerservice.com/confirmation.htm" '--- If the AspMail object did not send the message --- '--- then print any error(s) it found to the browser --- Else Response.Write "" & vbCrLf Response.Write "An error has occurred.
" & vbCrLf Response.Write "The error was " & Mailer.Response & vbCrLf Response.Write "

Please directly email service@treestandcustomerservice.com or click your back button to return to the form and enter the missing information" & vbCrLf Response.Write "

Click here to return to customer service" & vbCrLf Set Mailer = Nothing End If else Response.Write("You entered the wrong code.") end if Response.Write("" & vbCrLf) end if %>

Click Below for Instructions