<%@LANGUAGE="VBSCRIPT"%>
<% if (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr(Request.Form("email"))
objCDO.To = "jhadfield@nationalpresort.com"
objCDO.CC = ""
objCDO.Subject = "Feedback Form"
objCDO.Body = "A feedback form has been submitted on nationalpresort.com from: " & chr(10) & chr(10) & "Email: " & cStr(Request("email")) & chr(10) & chr(10) & "Name: " & cStr(Request("name")) & chr(10) & chr(10) & "Company: " & cStr(Request("company")) & chr(10) & chr(10) & "Phone: " & cStr(Request("phone")) & chr(10) & chr(10) & "How satisifed are you with the service provided by NPI?: " & cStr(Request("service")) & chr(10) & chr(10) & "Were you able to contact us easily?: " & cStr(Request("contacteasily")) & chr(10) & chr(10) & "If placed on hold, how satisifed with the time to speak with a representative?: " & cStr(Request("holdtime")) & chr(10) & chr(10) & "If you contactacted us via email, how satisifed were you with our response time?: " & cStr(Request("emailresponse")) & chr(10) & chr(10) & "Telephone Repsentative" & chr(10) & "How satisifed were you with the telephone representative who answered your call?: " & cStr(Request("telephonerepresentative")) & chr(10) & chr(10)& "Professionalism and courtesy: " & cStr(Request("professionalism")) & chr(10) & chr(10) & "Ability to communicate clearly: " & cStr(Request("communication")) & chr(10) & chr(10) & "Treating you as a valued customer: " & cStr(Request("valuedcustomer")) & chr(10) & chr(10) & "Overall handling of the call: " & cStr(Request("callhandling")) & chr(10) & chr(10) & "Technician" & chr(10) & "Explanation of cause of problem: " & cStr(Request("problemexplanation")) & chr(10) & chr(10) & "Explanation of the work that was done to fix problem: " & cStr(Request("workexplanation")) & chr(10) & chr(10) & "Knowledge and competence: " & cStr(Request("knowledge")) & chr(10) & chr(10) & "Treating you as a valued customer: " & cStr(Request("treated")) & chr(10) & chr(10) & "Overall performance: " & cStr(Request("performance")) & chr(10) & chr(10) & "How likely would you be to recommend NPI Customer Service?: " & cStr(Request("recommendation")) & chr(10) & chr(10) & "RMA Process" & chr(10) & "Was your request for a RMA processed in a timely manner?: " & cStr(Request("rmarequest")) & chr(10) & chr(10) & "Once you shipped your part to NPI, were you satisifed with the time it took to receive a new/refurbished part?: " & cStr(Request("parttime")) & chr(10) & chr(10) & "Were you satisfied with the replacement part?: " & cStr(Request("replacementpart")) & chr(10) & chr(10) & "Overall, how satisfied are you with the NPI RMA process?: " & cStr(Request("rmaprocess")) & chr(10) & chr(10) & "New Parts" & chr(10) & "Did you receive what was ordered or needed?: " & cStr(Request("receive")) & "Was your request for a new part processed in a timely manner?: " & cStr(Request("partprocess")) & chr(10) & chr(10) & "Were you satisified with the time it took to receive the new parts? " & cStr(Request("partstime")) & chr(10) & chr(10) & "NPI Equipment" & chr(10) & "Overall, how satisfied are you with your NPI equipment?: " & cStr(Request("satisfied")) & chr(10) & chr(10) & "If you were to buy additional equipment in the future, how likely would you be to buy from NPI?: " & cStr(Request("additionalequipment")) & chr(10) & chr(10) & "How likely would you be to recommend NPI to someone you know?: " & cStr(Request("recommend")) & chr(10) & chr(10) & "Please indicate the name of any staff person you would like to commend: " & cStr(Request("commendstaff")) & chr(10) & chr(10) & "If you feel we fell short please describe: " & cStr(Request("problemdescription")) & chr(10) & chr(10) & "As a result of your experience with NPI, what service-related improvements can you recommend?: " & cStr(Request("improvements")) & chr(10) & chr(10)
objCDO.Send()
Set objCDO = Nothing
Response.Redirect("thankyou.htm")
End If
%>
NATIONAL PRESORT - ABOUT
Customer Feedback