<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Customer Maintenance ' Product : CandyPress Store Administration ' Version : 2.5 ' Modified : February 2004 ' Copyright: Copyright (C) 2004 CandyPress.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@candypress.com '************************************************************************* Option explicit Response.Buffer = true const adminLevel = 1 %> <% 'Database dim mySQL, cn, rs, rs2 'Customer dim idCust dim status dim dateCreated dim dateCreatedInt dim name dim lastName dim customerCompany dim phone dim email dim password dim address dim city dim locState dim locState2 dim locCountry dim zip dim paymentType dim shippingName dim shippingLastName dim shippingPhone dim shippingAddress dim shippingCity dim shippingLocState dim shippingLocState2 dim shippingLocCountry dim shippingZip dim futureMail dim generalComments dim taxExempt dim affiliate dim commPerc 'Work Fields dim action dim orderCount dim affCount '************************************************************************* 'Open Database Connection call openDB() 'Store Configuration if loadConfig() = false then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Could not load Store Configuration settings.") end if %>

Customer Maintenance

<% 'Get action action = trim(Request.QueryString("action")) if len(action) = 0 then action = trim(Request.Form("action")) end if action = lCase(action) if action <> "edit" and action <> "del" then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Invalid Action Indicator.") end if 'Get idCust idCust = trim(Request.QueryString("recId")) if len(idCust) = 0 then idCust = trim(Request.Form("recId")) end if if idCust = "" or not isNumeric(idCust) then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Invalid Record ID.") end if 'Get customer record mySQL = "SELECT status,dateCreated,password,name,lastName," _ & " customerCompany,phone,email,address,city," _ & " locState,locState2,locCountry,zip,shippingName," _ & " shippingLastName,shippingPhone,shippingAddress,"_ & " shippingCity,shippingLocState,shippingLocState2," _ & " shippingLocCountry,shippingZip,paymentType," _ & " futureMail,taxExempt,affiliate,commPerc," _ & " generalComments " _ & "FROM customer " _ & "WHERE idCust=" & idCust set rs = openRSexecute(mySQL) if rs.eof then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Invalid Record ID.") else generalComments = trim(rs("generalComments")) status = trim(rs("status")) dateCreated = rs("dateCreated") password = trim(EnDeCrypt(Hex2Ascii(rs("password")),rc4Key)) Name = trim(rs("name")) LastName = trim(rs("LastName")) CustomerCompany = trim(rs("CustomerCompany")) Phone = trim(rs("Phone")) Email = trim(rs("Email")) Address = trim(rs("Address")) City = trim(rs("City")) locState = trim(rs("locState")) locState2 = trim(rs("locState2")) locCountry = trim(rs("locCountry")) Zip = trim(rs("Zip")) shippingName = trim(rs("shippingName")) shippingLastName = trim(rs("shippingLastName")) shippingPhone = trim(rs("shippingPhone")) shippingAddress = trim(rs("shippingAddress")) ShippingCity = trim(rs("ShippingCity")) shippingLocState = trim(rs("shippingLocState")) shippingLocState2 = trim(rs("shippingLocState2")) shippingLocCountry = trim(rs("shippingLocCountry")) shippingZip = trim(rs("shippingZip")) paymentType = trim(rs("paymentType")) futureMail = trim(rs("futureMail")) taxExempt = trim(rs("taxExempt")) affiliate = trim(rs("affiliate")) commPerc = trim(rs("commPerc")) end if call closeRS(rs) 'Get number of Orders for this Customer mySQL = "SELECT COUNT(*) AS orderCount " _ & "FROM cartHead " _ & "WHERE idCust=" & idCust & " " set rs = openRSexecute(mySQL) orderCount = rs("orderCount") call closeRS(rs) 'Get number of Affiliate Sales for this Customer mySQL = "SELECT COUNT(*) AS affCount " _ & "FROM cartHead " _ & "WHERE idAffiliate=" & idCust & " " set rs = openRSexecute(mySQL) affCount = rs("affCount") call closeRS(rs) if len(trim(Request.QueryString("msg"))) > 0 then %> <%=Request.QueryString("msg")%>

<% end if if action = "del" then %> Delete Customer  <%call maintNavLinks()%>

Name <%=name & " " & lastName%> 
Company <%=customerCompany%> 
Email <%=email%> 
<% end if if action = "edit" then %> Edit Customer  <%call maintNavLinks()%>

Customer <%=name & " " & lastName%>  Cust ID : <%=idCust%>
Email Created : <%=formatTheDate(dateCreated)%>
Status Orders : <%=orderCount%>   (List)
Tax Exempt?     Mailing List?   Affiliate Sales : <%=affCount%>   (List)
Affiliate?    Comm. %   " onKeyPress="return(disableEnter());"> - " onKeyPress="return(disableEnter());">
  Billing Shipping
First Name
Last Name
Phone
Address
City
State/Province <%listStates "locState",locState,locCountry%> <%listStates "shippinglocState",shippinglocState,shippingLocCountry%>
 
Zip/Postal Code
Country <%listCountries "locCountry",locCountry%> <%listCountries "shippinglocCountry",shippinglocCountry%>
Company
Payment Type
Password
Comments
Not viewable by Customer



<% end if if action = "edit" then %>
Help and Instructions :
Customer Status - To prevent a customer from logging on to their account and viewing their Orders, set the Status to "InActive".

Tax Exempt - If set to "Yes", taxes will NOT be calculated on orders placed by this customer. If set to "No", taxes will be calculated as normal.

Mailing List - If set to "Yes", the customer will be included in newsletter distributions. This is also known as 'Opted In'.

Affiliate - If set to "Yes", the customer will be able to use their customer ID for affiliate sales. You will also need to enter a commission percentage for the customer. If the field shows "Applied", it means the customer applied to become an affiliate and is awaiting approval.

Affiliate Report - Enter a Start/End date to generate an affiliate sales report for this customer. Only paid orders are included in the report. Totals exclude taxes and shipping.

Affiliate Link - To allow an affiliate to link to your store and receive commission for the referral, the link must be constructed in a specific way. Notably, the link must include the variable "idAff", with the Affiliate ID as the value of this variable. The Affiliate ID is the same as the Customer ID. For example, for this customer, the link would be :

     <%=urlNonSSL%>default.asp?idAff=<%=idCust%>

Comments - These are private "notes" on the Customer. Any text entered into this field can NOT be viewed by the Customer.

Other Fields - You can modify other customer information including their billing and shipping address (optional). For maximum flexibility, the form is only checked to ensure that any mandatory fields are entered.

<% end if call closedb() %> <% '********************************************************************* 'Create Navigation Links '********************************************************************* sub maintNavLinks() %> [ List Customers | Edit | Delete | ">Email ] <% end sub '********************************************************************* 'Create drop-down for states '********************************************************************* sub listStates(fieldName,fieldVal,fieldVal2) dim mySQL,rs %> <% end sub '********************************************************************* 'Create drop-down for countries '********************************************************************* sub listCountries(fieldName,fieldVal) dim mySQL,rs %> <% end sub %>