<% 'This code is copyright (c) Internet Business Solutions SL, all rights reserved. 'The contents of this file are protect under law as the intellectual property 'of Internet Business Solutions SL. Any use, reproduction, disclosure or copying 'of any kind without the express and written permission of Internet Business 'Solutions SL is forbidden. 'Author: Vince Reid, vince@virtualred.net if storesessionvalue="" then storesessionvalue="virtualstore" if Session("loggedon") <> storesessionvalue OR disallowlogin=TRUE then response.end Dim sSQL,rs,alldata,allzones,success,cnn,rowcounter,alloptions,errmsg,index,cena,tax sub writepos(id,pos) response.write "" response.write "" & yyAlphab & "" response.write ""&yyTop&"" response.write ""&yyTopTop&"" end sub sub writezone(id,zone) if IsArray(allzones) then response.write "" for index=0 to UBOUND(allzones,2) response.write ""&allzones(1,index)&"" next response.write "" else response.write "No Zones" end if end sub success=true Set rs = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN alreadygotadmin = getadminsettings() Session.LCID=1033 simpleShipping = (adminTweaks AND 1)=1 editzones = (shipType=2 OR shipType=5 OR alternateratesweightbased <> "") if request.form("posted")="1" then for index=1 to 300 if request.form("pos"&index)<>"" then cena=0 if request.form("ena"&index)<>"" then cena=1 fsa=0 if request.form("fsa"&index)<>"" then fsa=1 tax = request.form("tax"&index) if NOT IsNumeric(tax) then success=false errmsg = yyNum100 & " """ & yyTax & """." elseif tax > 100 OR tax < 0 then success=false errmsg = yyNum100 & " """ & yyTax & """." else if editzones then sSQL = "UPDATE countries SET countryEnabled="&cena&",countryTax="&tax&",countryFreeShip="&fsa&",countryOrder="&request.form("pos"&index)&",countryZone="&request.form("zon"&index)&" WHERE countryID="&index else sSQL = "UPDATE countries SET countryEnabled="&cena&",countryTax="&tax&",countryFreeShip="&fsa&",countryOrder="&request.form("pos"&index)&" WHERE countryID="&index end if cnn.Execute(sSQL) end if end if next if success then response.write "" end if else sSQL = "SELECT countryID,countryName,countryEnabled,countryTax,countryOrder,countryZone,countryFreeShip FROM countries ORDER BY countryOrder DESC,countryName" rs.Open sSQL,cnn,0,1 alldata=rs.getrows rs.Close sSQL = "SELECT pzID,pzName FROM postalzones WHERE pzName<>'' AND pzID<100" rs.Open sSQL,cnn,0,1 allzones="" if NOT rs.EOF then allzones=rs.getrows rs.Close end if if request.form("posted")="1" AND success then %>

<%=yyUpdSuc%> <%=yyNowFrd%> <%=yyNoAuto%> <%=yyClkHer%>.

<% elseif request.form("posted")="1" then %>

Some records could not be updated. <%=errmsg%> <%=yyClkBac%>

<% else %>

<% if simpleShipping then for rowcounter=0 to UBOUND(alldata,2) if bgcolor="#E7EAEF" then bgcolor="#FFFFFF" else bgcolor="#E7EAEF" %><% if editzones then foundzone=false response.write "" else response.write "" end if response.write "" next else for rowcounter=0 to UBOUND(alldata,2) if bgcolor="#E7EAEF" then bgcolor="#FFFFFF" else bgcolor="#E7EAEF" %> <% response.write "" %> <% next end if %>

<%=yyCntAdm%>
A "Home Country" is one where the states can be selected from the States drop down list on the checkout page.
<%=yyCntNam%>	<%=yyEnable%>	<%=yyTax%>	<%=yyFSA%>	<%=yyPosit%>	<% if editzones then response.write yyPZone else response.write " " end if %>
<%=alldata(1,rowcounter)%>	/>	%	/>	<%=yyAlphab%> ><%=yyTop%> ><%=yyTopTop%>	" if IsArray(allzones) then for index=0 to UBOUND(allzones,2) response.write ""&allzones(1,index)&""&vbCrLf next end if if NOT foundzone then response.write ""&yyUndef&"" response.write "
<%=alldata(1,rowcounter)%>	/>	%
<%=yyAdmHom%>

<% end if cnn.Close set rs = nothing set cnn = nothing %>