<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Location 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 'Locations dim idLocation dim locName dim locCountry dim locState dim locTax dim locShipZone dim locStatus 'Work Fields dim I dim item dim count dim pageSize dim totalPages dim showArr dim sortField dim curPage dim showField dim showStart dim showTax dim showZone '************************************************************************* '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 'Set Row Colors dim rowColor, col1, col2 col1 = "#DDDDDD" col2 = "#EEEEEE" 'Set Number of Items per Page pageSize = 50 'Get Page to show curPage = Request.Form("curPage") 'Form if len(curPage) = 0 then curPage = Request.QueryString("curPage") 'QueryString end if 'Get showField showField = Request.Form("showField") 'Form if len(showField) = 0 then showField = Request.QueryString("showField") 'QueryString end if 'Get showStart showStart = Request.Form("showStart") 'Form if len(showStart) = 0 then showStart = Request.QueryString("showStart") 'QueryString end if 'Get showTax showTax = Request.Form("showTax") 'Form if len(showTax) = 0 then showTax = Request.QueryString("showTax") 'QueryString end if 'Get showZone showZone = Request.Form("showZone") 'Form if len(showZone) = 0 then showZone = Request.QueryString("showZone") 'QueryString end if 'Check if a Cookie Reset was requested if Request.QueryString("resetCookie") = "1" then Response.Cookies("LocSearch").expires = Date() - 30 else 'Check if a Cookie Recall was requested if Request.QueryString("recallCookie") = "1" then for each item in Request.Cookies if item = "LocSearch" then showArr = Split(Request.Cookies(item),"*|*") curPage = showArr(0) showField = showArr(1) showStart = showArr(2) showTax = showArr(3) showZone = showArr(4) end if next else 'Save Search Criteria in a Cookie Response.Cookies("LocSearch") = navCookie(curPage) Response.Cookies("LocSearch").expires = Date() + 30 end if end if 'After attempting to retrieve the search criteria through the various 'mechanisms above (Form/QueryString/Cookie), check that some of the 'critical values are valid. If not, set to default values. if len(curPage) = 0 or not isNumeric(curPage) then curPage = 1 else curPage = CLng(curPage) end if if len(showField) = 0 then showField = "locName" end if 'Check what we will be sorting the results on sortField = Request.Form("sortField") 'Form if len(sortField) = 0 then sortField = Request.QueryString("sortField") 'QueryString end if if len(sortField) = 0 then sortField = "locName" end if %>

Location & Tax Maintenance

<% if len(trim(Request.QueryString("msg"))) > 0 then %> <%=Request.QueryString("msg")%>

<% end if %>
Add New Country
Show Countries where    begins with   
Show Countries where Tax    and Shipping Zone =   

<% 'Specify fields and table mySQL="SELECT idLocation,locCountry,locName,locTax,"_ & " locShipZone,locStatus " _ & "FROM Locations " _ & "WHERE (locState IS NULL OR locState = '') " 'Countries Only 'Field Start if len(showStart) > 0 then mySQL = mySQL & "AND " & showField & " LIKE '" & showStart & "%' " end if 'Tax - Yes if showTax = "Y" then mySQL = mySQL & "AND locTax > 0 " end if 'Tax - No if showTax = "N" then mySQL = mySQL & "AND locTax = 0 " end if 'Zone if len(showZone) > 0 then mySQL = mySQL & "AND locShipZone = " & showZone & " " end if 'Sort Order mySQL = mySQL & "ORDER BY " & sortField set rs = openRSopen(mySQL,0,adOpenStatic,adLockReadOnly,adCmdText,pageSize) if rs.eof then %> <% else rs.MoveFirst rs.PageSize = pageSize totalPages = rs.PageCount rs.AbsolutePage = curPage %> <% rowColor = col1 %> <% rowColor = col2 do while not rs.eof and count < rs.pageSize %> <% count = count + 1 rs.movenext 'Switch Row Color if rowColor = col2 then rowColor = col1 else rowColor = col2 end if loop %> <% end if call closeRS(rs) %>

No Locations matched search criteria.

<% call pageNavigation("selectPageTop") %> Sort :
Code Country Tax % Zone Status States/Provinces  
<%=rs("locCountry")%>  <%=rs("locName")%>  <%=formatnumber(rs("locTax"),2)%>  <%=rs("locShipZone")%>  <%=rs("locStatus")%>  <% mySQL = "SELECT locState, locName " _ & "FROM locations " _ & "WHERE locCountry = '" & rs("locCountry") & "' " _ & "AND NOT(locState IS NULL OR locState = '') " _ & "ORDER BY locName " set rs2 = openRSexecute(mySQL) if not rs2.eof then Response.Write "" else Response.Write "None" end if call closeRS(rs2) %> [ ">edit ] ">
<% call pageNavigation("selectPageBot") %> Delete Selected Locations?

Help and Instructions :
Add Country - Click on the Add New Country button, and complete the form as indicated. Once you have added the Country, you will be able to Add States or Provinces for that Country.

Find Country(s) - You have several options for finding a specific Country.

1. You can list all Countries where the Country Name or Country Code fields start with the specified Alphabetic or Numeric value.

2. You can list al Countries with the selected Tax and/or Shipping Zone assignments.

With all the searches above, you may have to page through the list of Countries if a sufficient number of Countries satisified the search criteria you specified.

Edit Country - Click to change Country's information. You can also Add, Remove and Edit States/Provinces for that Country from the Country Edit page.

Delete Country - Check the box next to the countries you want to delete, and click "Yes". When you Delete a country, any related State and Province records will also be deleted.

<% call closedb() %> <% '********************************************************************* 'Make QueryString for Paging '********************************************************************* function navQueryStr(pageNum) navQueryStr = "?curPage=" & server.URLEncode(pageNum) _ & "&showField=" & server.URLEncode(showField) _ & "&showStart=" & server.URLEncode(showStart) _ & "&showTax=" & server.URLEncode(showTax) _ & "&showZone=" & server.URLEncode(showZone) end function '********************************************************************* 'Make Cookie Value for Paging '********************************************************************* function navCookie(pageNum) navCookie = pageNum & "*|*" _ & showField & "*|*" _ & showStart & "*|*" _ & showTax & "*|*" _ & showZone end function '********************************************************************* 'Display page navigation '********************************************************************* sub pageNavigation(formFieldName) Response.Write "Page " Response.Write " of " & TotalPages & "  " Response.Write "[ " if curPage > 1 then Response.Write "Back" else Response.Write "Back" end if Response.Write " | " if curPage < TotalPages then Response.Write "Next" else Response.Write "Next" end if Response.Write " ]" end sub %>