<%
' Comersus BackOffice Lite
' e-commerce ASP Open Source
' Comersus Open Technologies LC
' 2005
' http://www.comersus.com 
%>

<!--#include file="../includes/settings.asp"-->    
<!--#include file="../includes/databaseFunctions.asp"-->    
<!--#include file="../includes/getSettingKey.asp"--> 
<!--#include file="../includes/sessionFunctions.asp"--> 
<!--#include file="../includes/stringFunctions.asp"-->

<% 
on error resume next 

dim mySQL, conntemp, rstemp

pRunInstallationWizard 	= getSettingKey("pRunInstallationWizard")

if pRunInstallationWizard<>"-1" then response.redirect "comersus_backoffice_message.asp?message="&Server.UrlEncode("Sorry, the Installation Wizard is disabled")

pPayPalMerchantEmail		= getUserInput(request.form("pPayPalMerchantEmail"),50)
p2CheckoutSID			= getUserInput(request.form("p2CheckoutSID"),50)
pUseOffLineCreditCards  	= getUserInput(request.form("pUseOffLineCreditCards"),5)
pChecks				= getUserInput(request.form("pChecks"),5)
pChecksComments			= getUserInput(request.form("pChecksComments"),100)
pWireTransfer			= getUserInput(request.form("pWireTransfer"),5)
pWireComments			= getUserInput(request.form("pWireComments"),100)

if pPayPalMerchantEmail<>"" then
  mySQL1="UPDATE settings SET settingValue='" &pPayPalMerchantEmail& "' WHERE settingKey='pPayPalMerchantEmail' AND idStore=" &pIdStore
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
  
  mySQL1="INSERT INTO payments (paymentDesc, redirectionUrl, quantityUntil, weightUntil, priceUntil, idCustomerType, idStore) VALUES ('PayPal','comersus_gatewayPayPal.asp',9999,9999,999999,NULL," &pIdStore& ")"
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
  
end if

if p2CheckoutSID<>"" then
  mySQL1="UPDATE settings SET settingValue='" &p2CheckoutSID& "' WHERE settingKey='p2CheckoutSID' AND idStore=" &pIdStore
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
  
  mySQL1="INSERT INTO payments (paymentDesc, redirectionUrl, quantityUntil, weightUntil, priceUntil, idCustomerType, idStore) VALUES ('Credit Cards with 2Checkout','comersus_gateway2CheckOut.asp',9999,9999,999999,NULL,"&pIdStore&")"
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
end if

' other settings

if pUseOffLineCreditCards="-1" then

 ' check if the payment method is already inserted
 mySQL1="SELECT idPayment FROM payments WHERE redirectionURL='comersus_offLinePaymentForm.asp' AND idStore=" &pIdStore
 call getFromDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
 
 if rstemp.eof then
  ' the payment method is not inserted
  mySQL1="INSERT INTO payments (paymentDesc, redirectionUrl, quantityUntil, weightUntil, priceUntil, idCustomerType, idStore) VALUES ('Credit Cards','comersus_offLinePaymentForm.asp',9999,9999,999999,NULL,"&pIdStore&")"
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
 end if
 
 ' cards accepted
 pOffLineCardsAccepted=""
 if request.form("vi")="-1" then pOffLineCardsAccepted=pOffLineCardsAccepted&"VI, "
 if request.form("ma")="-1" then pOffLineCardsAccepted=pOffLineCardsAccepted&"MA, "
 if request.form("am")="-1" then pOffLineCardsAccepted=pOffLineCardsAccepted&"AM, "
 if request.form("din")="-1" then pOffLineCardsAccepted=pOffLineCardsAccepted&"DIN, "
 if request.form("dis")="-1" then pOffLineCardsAccepted=pOffLineCardsAccepted&"DIS, "
 if request.form("jc")="-1" then pOffLineCardsAccepted=pOffLineCardsAccepted&"JC, "
 
 if pOffLineCardsAccepted<>"" then
  mySQL1="UPDATE settings SET settingValue='" &pOffLineCardsAccepted& "' WHERE settingKey='pOffLineCardsAccepted' AND idStore=" &pIdStore
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
 end if

end if

if pChecks<>"" and pChecksComments<>"" then
  mySQL1="INSERT INTO payments (paymentDesc, emailText, quantityUntil, weightUntil, priceUntil, idCustomerType, idStore) VALUES ('Checks','" &pChecksComments& "',9999,9999,999999,NULL,"&pIdStore&")"
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
end if

if pWireTransfer<>"" and pWireComments<>"" then
  mySQL1="INSERT INTO payments (paymentDesc, emailText, quantityUntil, weightUntil, priceUntil, idCustomerType, idStore) VALUES ('Wire Transfer','" &pWireComments& "',9999,9999,999999,NULL, "&pIdStore&")"
  call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp") 
end if

%>
<!--#include file="header.asp"--> 
<!--#include file="./includes/settings.asp"-->

<br><font size="3"><b>Installation Wizard</b></font><br>

<br>Step 5a - Shipping Zones<br><br>
<form method="post" name="install5a" action="comersus_backoffice_install5b.asp">
<table width="418" border="0">

    <tr> 
      <td colspan=2><b>Zone 1</b></td>
    </tr>
    <tr> 
      <td width="189">Zone Name</td>
      <td width="219">
        <input type=text name="zoneDesc1">        
      </td>
    </tr>
    <tr> 
      <td width="189">Zip</td>
      <td width="219">
		<input type=text name="zip1">	
      </td>
    </tr>
    <tr> 
    <td width="189">State</td>
      <td width="219">  
        <%
    
      ' get stateCodes
      mySQL="SELECT * FROM stateCodes"
      
      call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") 
      %>
	      <select name=stateCode1 size=1>
		      <option value="">All</option>
		      <%do while not rstemp2.eof
		      pStateCode2=rstemp2("stateCode")%>
		        <option value="<%=pStateCode2%>"><%=rstemp2("stateName")%>
		      <%rstemp2.movenext
		      loop%>
	  	      	</option>
	      </select>
      </td>      
    </tr>
     <tr> 
      <td width="189">Country</td>
      <td width="219">                 
        <%
      ' get CountryCodes
      mySQL="SELECT * FROM countryCodes"

      call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") 
      
      %>
	      <select name=countryCode1>
		      <option value="">All</option>
		      <%do while not rstemp2.eof
		      pCountryCode2=rstemp2("countryCode")%>
		        <option value="<%=pCountryCode2%>"<%
		        if pCountryCode=pCountryCode2 then
		            response.write "selected"           
		        end if
		        %>><%=rstemp2("countryName")%>
		      <%rstemp2.movenext
		      loop%>
		      </option>
	      </select>       
      </td>      
    </tr>
    <tr> 
      <td colspan=2><i>If you leave zip unset, the zone will apply to all zips for this state & country.</i></td>            
    </tr>      
	<tr><td colspan=2>
		&nbsp;
	</td></tr>
	<tr><td colspan=2>
		<b>Zone 2</b>
	</td></tr>

    <tr> 
      <td width="189">Zone Name</td>
      <td width="219">
        <input type=text name="zoneDesc2">        
      </td>
    </tr>
    <tr> 
      <td width="189">Zip</td>
      <td width="219">
		<input type=text name="zip2">	
      </td>
    </tr>
    <tr> 
    <td width="189">State</td>
      <td width="219">  
        <%
    
      ' get stateCodes
      mySQL="SELECT * FROM stateCodes"
      
      call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") 
      %>
	      <select name=stateCode2 size=1>
		      <option value="">All</option>
		      <%do while not rstemp2.eof
		      pStateCode2=rstemp2("stateCode")%>
		        <option value="<%=pStateCode2%>"><%=rstemp2("stateName")%>
		      <%rstemp2.movenext
		      loop%>
	  	      	</option>
	      </select>
      </td>      
    </tr>
     <tr> 
      <td width="189">Country</td>
      <td width="219">                 
        <%
      ' get CountryCodes
      mySQL="SELECT * FROM countryCodes"

      call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_addShipmentExec.asp") 
      
      %>
	      <select name=countryCode2>
		      <option value="">All</option>
		      <%do while not rstemp2.eof
		      pCountryCode2=rstemp2("countryCode")%>
		        <option value="<%=pCountryCode2%>"<%
		        if pCountryCode=pCountryCode2 then
		            response.write "selected"           
		        end if
		        %>><%=rstemp2("countryName")%>
		      <%rstemp2.movenext
		      loop%>
		      </option>
	      </select>       
      </td>      
    </tr>
    <tr> 
      <td colspan=2><i>If you leave zip unset, the zone will apply to all zips for this state & country.</i></td>            
    </tr>      
    <tr> 
      <td colspan="2"> 
        <br>
        <input type="submit" name="Submit" value="Continue">
      </td>
    </tr>
</table>    
</form>

<br>Additional information 
<br>(1) Here you can configure some basic off line shipping quotes. You can add more shipping quotes from BackOffice and you can also configure online shipping quotation methods. 
<!--#include file="footer.asp"-->
<%call closeDb()%>