<%@ LANGUAGE='VBSCRIPT' %> <% Option Explicit %> <% 'Kohls Department Stores Public Interaction Website 'Written by: Paul Barto Interactive Solutions LLC ' %> <% %> <% %> <% ' On Error Resume Next ' ================================================================= ' = Define Program Default Settings Here ' ================================================================= Const Title = "KOHL'S Customer Service" Const BodyBgColor = "#ffffff" Const BodyTextColor = "#000000" Const PageFont = "" Const StyleSheet = "kohls1.css" Const CloseThankyouWindowTime = "5" Const EfaqWebsite = "http://khelp.kohls.com/default.asp" 'PROD Const EmailWebsite = "http://www.kohlscorporation.com/ecom/customerservice/email/default.asp" Const KohlsCorporationWebsite = "http://www.kohlscorporation.com/ecom/customerservice/" 'DEV 'Const EmailWebsite = "http://kohlscorporation-dev.kohls.com/ecom/customerservice/email/default.asp" 'Const KohlsCorporationWebsite = "http://kohlscorporation-dev.kohls.com/ecom/customerservice/" Const ForceEfaq = True Const EfaqList = "Customer Service;" Const EfaqGrade = "2.5" Const DefaultSection = "how-to" Const ChatQueue = "ECMiscQueue" Dim conn Dim rs Dim FirstName Dim LastName Dim From Dim EmailTypes Dim EmailValues Dim StateNames Dim StateAbbrevs EmailTypes = array("Select One","College Recruiting","Community Relations","Corporate Gift Cards","Fundraising Gift Cards","Future Store Locations","Gift Cards","Gift Registry","Human Resources","Investor Relations","Kohls.com Account, Password, or Sales Alerts","Technical Issues","Kohl's Merchandise","Order Accuracy or Damaged Item","Modify Order","Price Adjustments Promo Codes","Shipping and Tracking Question","Shopping Kohls.com","Store Feedback","Vendor Relations","My Kohl's Charge","My Kohl's Charge","All Other, please specify") EmailValues = array("","college.recruiter@kohls.com","community.relations@kohls.com","corp.giftcards@kohls.com","kck@kohls.com","real.estate@kohls.com","gift.cards@kohls.com","gift.registry.help@kohls.com","human.resources@kohls.com","investor.relations@kohls.com","myaccount.help@kohls.com","technical.help@kohls.com","merchandise.help@kohls.com","order.accuracy.help@kohls.com","modify.order.help@kohls.com","pricing.help@kohls.com","shipping.help@kohls.com","shopping.help@kohls.com","credit@kohls.com","vendor.relations@kohls.com","kohls.account.help@kohls.com","mykohlscharge@kohls.com","general.help@kohls.com") StateNames = array("Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut","Delaware","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa","Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan","Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire","New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio","Oklahoma","Oregon","Pennsylvania","Rhode Island","South Carolina","South Dakota","Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virgina","Wisconsin","Wyoming") StateAbbrevs = array("AL","AK","AZ","AR","CA","CO","CT","DE","FL","GA","HI","ID","IL","IN","IA","KS","KY","LA","ME","MD","MA","MI","MN","MS","MO","MT","NE","NV","NH","NJ","NM","NY","NC","ND","OH","OK","OR","PA","RI","SC","SD","TN","TX","UT","VT","VA","WA","WV","WI","WY") ' ================================================================= ' = Check for user information and cookies ' ================================================================= If Request("FirstName") <> "" Or Request("LastName") <> "" Or Request("Email") <> "" Or Request("From") <> "" Or Request("Phone") <> "" Then Call InspectCookies() End If ' ================================================================= ' = Process requested user action ' ================================================================= Select Case Request("a") Case "e-faqs" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Case "e-faqs-results" Session("Question") = CleanInput(Request("Question")) Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Call ProcessEfaq() Case "e-mail" If Request("Question") <> "" Then Session("Question") = CleanInput(Request("Question")) End If Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Case "e-mail_credit" If Request("Question") <> "" Then Session("Question") = Request("Question") End If Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Case "realestate_choice" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Case "realestate_suggestion" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Case "e-mail-choosepath" If Request("Topic.x") <> "" Then if request("To") = "credit@kohls.com" then response.Redirect "default.asp?a=e-mail_credit" end if if request("To") = "Select One" then response.Redirect "default.asp?a=e-mail&Question=" end if if request("To") = "store.feedback@kohls.com" then response.Redirect "default.asp?a=e-mail-choosepath&f=storeexperience" end if Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% End If If Request("f") = "faq" Then Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% End If If Request("f") = "storeexperience" Then Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% Call GetConnection(conn) %> <% Call CloseConnection(conn) End If If Request("get_answer_now.x") <> "" Then Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% Call GetConnection(conn) Select Case Request("get_answer_now_select") Case "beautyonly" %> <% Case "creditcardauthorization" %> <% Case "giftregistry" %> <% Case "accountorpassword" %> <% Case "siteorsystemerror" %> <% Case "merchandiserelated" %> <% Case "orderaccuracyordamage" %> <% Case "ordermodification" %> <% Case "mykohlscharge" %> <% Case "orderpriceadjustment" %> <% Case "shippingtracking" %> <% Case "shoppingKohlscom" %> <% Case "storerelatedissue" %> <% Case "" %> <% End Select Call CloseConnection(conn) End If Case "e-mail-state" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% Call GetConnection(conn) %> <% Call CloseConnection(conn) Case "e-mail-location" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% Call GetConnection(conn) %> <% Call CloseConnection(conn) Case "e-mail-location-comments" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% Case "contactstore-location" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% Call GetConnection(conn) %> <% Call CloseConnection(conn) Case "contactstore-location-info" Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% Call GetConnection(conn) %> <% Call CloseConnection(conn) Case "sendmail" Dim ThankYouPage Dim Subject Dim Body Select Case Request("To") Case "customer.service@kohls.com" ThankYouPage = "emailthankyou_48" Case "credit@kohls.com" ThankYouPage = "emailthankyou_48" Case "store.customerservice@kohls.com" ThankYouPage = "emailthankyou_store" Case "real.estate@kohls.com" ThankYouPage = "emailthankyou_realestate" ' Case "kevin.nicholson@kohls.com" ' ThankYouPage = "emailthankyou_realestate" Case Else ThankYouPage = "emailthankyou_soon" End Select If Request("To") = "store.customerservice@kohls.com" Then Subject = "Comments about " & Request("location") & " location - #" & Request("storenumber") Else Subject = Request("Subject") End If Body = "Name: " & Request("FirstName") & " " & Request("LastName") & vbcrlf & "E-mail: " & Request("From") & vbcrlf & vbcrlf & Request("Body") Call SendMail(Request("To"),Request("From"),Subject,Body,ThankYouPage) Case "emailthankyou_48" Call Header(Title,BodyBgColor) %> <% %> <% %> <% Case "emailthankyou_soon" Call Header(Title,BodyBgColor) %> <% %> <% %> <% Case "emailthankyou_store" Call Header(Title,BodyBgColor) %> <% %> <% %> <% Case "emailthankyou_realestate" Call Header(Title,BodyBgColor) %> <% %> <% %> <% Case "thankyou" Call ThankyouHeader(Title,BodyBgColor) %> <% Case "closethankyou" Call CloseThankyou(Title,BodyBgColor) Case Else ' same as eFAQ Call HeaderScript(Title) %> <% Call StartBody(BodyBgColor) %> <% %> <% %> <% End Select Call Footer() Function CleanInput(ByVal dirty) 'As String CleanInput = Replace(dirty, "