<%Option Explicit%>
<!--#include file="shop$db.asp"-->
<!-- #include file="shopupsincludes.asp" -->
<!-- #include file="shopupsorigincountries.asp" -->
<%
dim action,upsrs
dim xMerchantCity, xMerchantCountry, xMerchantState, xMerchantPostcode, xzeroweightError, xAutoSeparatepackages, xAutoseparateWeight, UPS_Residentialind, xIndividualPackages, xcheckIndividualProduct, testmode, xTrace, xTraceXML, PackagingType, Pickuptype, xUseSupplierZip, UPS_UnitofMeasurement, UPS_WeightUnits, UPS_Dimensions, xml, xsuppliershipfield, xcheckIndividualProductField, xdimensionfield', gatewaylocation_register, gatewaylocation_license, gatewaylocation_payment, gatewaylocation_paymenttesting

ShopCheckAdmin ""
'*************************************************************
' Version 6.50
' view UPS Realtime configuration screen
' Sept 20 2005
'***************************************************************
AdminPageHeader
ShopOpenDatabase myconn
GenerateDisplayHeader "UPS Real-Time Configuration"
GenerateDisplayBodyHeader

if request("action")<>"" Then
     ProcessUserAction
	 shopwriteheader "Configuration Saved"
end if

GetData
DisplayForm

GenerateDisplayBodyFooter
ShopCloseDatabase myconn
AdminPageTrailer           

Sub GetData
	sql="select * from ups_config"
	set upsrs=myconn.execute(sql)

	if Not upsrs.eof then
		xMerchantCity = upsrs("xMerchantCity")
		xMerchantCountry = upsrs("xMerchantCountry")
		xMerchantState = upsrs("xMerchantState")
		xMerchantPostcode = upsrs("xMerchantPostcode")
		if xMerchantPostcode = "" then xMerchantPostcode = getconfig("xmerchantshipzip")
		xzeroweightError = upsrs("xzeroweightError")
		xAutoSeparatepackages = upsrs("xAutoSeparatepackages")
		xAutoseparateWeight = upsrs("xAutoseparateWeight")
		UPS_Residentialind = upsrs("UPS_Residentialind")
		xIndividualPackages = upsrs("xIndividualPackages")
		xcheckIndividualProduct = upsrs("xcheckIndividualProduct")
		testmode = upsrs("testmode")
		xTrace = upsrs("testmode")
		xTraceXML = upsrs("testmode")
		PackagingType = upsrs("PackagingType")
		Pickuptype = upsrs("Pickuptype")
		xUseSupplierZip = upsrs("xUseSupplierZip")
		UPS_UnitofMeasurement = upsrs("UPS_UnitofMeasurement")
		UPS_WeightUnits = upsrs("UPS_WeightUnits")
		UPS_Dimensions = upsrs("UPS_Dimensions")
'		gatewaylocation_register = upsrs("gatewaylocation_register")
'		gatewaylocation_license = upsrs("gatewaylocation_license")
'		gatewaylocation_payment = upsrs("gatewaylocation_payment")
'		gatewaylocation_paymenttesting = upsrs("gatewaylocation_paymenttesting")
		xml = upsrs("xml")
		xsuppliershipfield = upsrs("xsuppliershipfield")
		xcheckIndividualProductField = upsrs("xcheckIndividualProductField")
		xdimensionfield = upsrs("xdimensionfield")
	end if
	
	closerecordset upsrs
End Sub

SUB ProcessUserAction
	sql="select * from ups_config"
	Set upsrs= Server.CreateObject("ADODB.Recordset")
	upsrs.open sql, myconn, adOpenKeyset, adLockOptimistic, adcmdText

	if Not upsrs.eof then
		sql = "UPDATE ups_config SET "
		sql = sql & "xMerchantCity = '" & request("xMerchantCity") & "', "
		sql = sql & "xMerchantCountry = '" & request("xMerchantCountry") & "', "
		sql = sql & "xMerchantState = '" & request("xMerchantState") & "', "
		sql = sql & "xMerchantPostcode = '" & request("xMerchantPostcode") & "', "
		sql = sql & "xzeroweightError = '" & request("xzeroweightError") & "', "
		sql = sql & "xAutoSeparatepackages = '" & request("xAutoSeparatepackages") & "', "
		sql = sql & "xAutoseparateWeight = '" & request("xAutoseparateWeight") & "', "
		sql = sql & "UPS_Residentialind = '" & request("UPS_Residentialind") & "', "
		sql = sql & "xIndividualPackages = '" & request("xIndividualPackages") & "', "
		sql = sql & "xcheckIndividualProduct = '" & request("xcheckIndividualProduct") & "', "
		sql = sql & "testmode = '" & request("testmode") & "', "
		sql = sql & "xTrace = '" & request("testmode") & "', "
		sql = sql & "xTraceXML = '" & request("testmode") & "', "
		sql = sql & "PackagingType = '" & request("PackagingType") & "', "
		sql = sql & "Pickuptype = '" & request("Pickuptype") & "', "
		sql = sql & "xUseSupplierZip = '" & request("xUseSupplierZip") & "', "
		sql = sql & "UPS_WeightUnits = '" & request("UPS_WeightUnits") & "', "
		
		if request("UPS_WeightUnits") = "LBS" then
			sql = sql & "UPS_UnitofMeasurement = 'IN', "
		else
			sql = sql & "UPS_UnitofMeasurement = 'CM', "
		end if

		sql = sql & "UPS_Dimensions = '" & request("UPS_Dimensions") & "', "
		'upsrs("gatewaylocation_register") = request("gatewaylocation_register")
		'upsrs("gatewaylocation_license") = request("gatewaylocation_license")
		'upsrs("gatewaylocation_payment") = request("gatewaylocation_payment")
		'upsrs("gatewaylocation_paymenttesting") = request("gatewaylocation_paymenttesting")
		sql = sql & "xml = '" & request("xml") & "', "
		sql = sql & "xsuppliershipfield = '" & request("xsuppliershipfield") & "', "
		sql = sql & "xcheckIndividualProductField = '" & request("xcheckIndividualProductField") & "', "
		sql = sql & "xdimensionfield = '" & request("xdimensionfield") & "'"
		
		myconn.execute(sql)
	end if
	
	closerecordset upsrs
end sub

Sub DisplayForm
	%>
	<table width="90%" cellpadding=3 border="0">
          <tr>
            <td><table width="100%"  border="0" cellpadding="3">
              <tr>
                <td valign='top'><div align="center"  style="background-color:#ffffff; border: 2px #cccccc solid"><img src="images/ups_logo_small.gif"></div></td>
                <td width="83%">
				<form name="ups_configure" action="shopa_ups_configure.asp" method="post">
				  <table width="100%"  border="0">
                    <tr bgcolor="#9C9ACE">
                      <td colspan="2"><font face='Tahoma, Verdana' size=2 color='#FFFFFF'><b>Merchant Details</b></font></td>
                    </tr>
                    <tr>
                      <td width="45%"><span style="font-weight: bold">City</span></td>
                      <td><input name="xmerchantcity" type="text" id="xmerchantcity" value="<%=xmerchantcity%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">State</span></td>
                      <td><input name="xmerchantstate" type="text" id="xmerchantstate" value="<%=xmerchantstate%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Zipcode</span></td>
                      <td><input name="xmerchantpostcode" type="text" id="xmerchantpostcode" value="<%=xMerchantPostcode%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Country</span></td>
                      <td><%ShopOriginCountries "xmerchantcountry", xmerchantcountry%></td>
                    </tr>
                    <tr>
                      <td>&nbsp;</td>
                      <td>&nbsp;</td>
                    </tr>
                    <tr bgcolor="#9C9ACE">
                      <td colspan="2"><font face='Tahoma, Verdana' size=2 color='#FFFFFF'><b>Options</b></font></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Zero-weight error</span></td>
                      <td><input name="xzeroweighterror" type="radio" value="Yes" <% if xzeroweighterror = "Yes" then response.write " checked"%>>
                        Yes
                          <input name="xzeroweighterror" type="radio" value="No" <% if xzeroweighterror <> "Yes" then response.write " checked"%>>
                          No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Auto-separate packages </span></td>
                      <td><input name="xautoseparatepackages" type="radio" value="Yes" <% if xautoseparatepackages = "Yes" then response.write " checked"%>>
Yes
  <input name="xautoseparatepackages" type="radio" value="No" <% if xautoseparatepackages <> "Yes" then response.write " checked"%>>
No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Auto-separate weight</span></td>
                      <td><input name="xautoseparateweight" type="text" id="xautoseparateweight" value="<%=xautoseparateweight%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Delivery address is residential? </span></td>
                      <td><input name="UPS_Residentialind" type="radio" value="Yes" <% if UPS_Residentialind = "Yes" then response.write " checked"%>>
Yes
  <input name="UPS_Residentialind" type="radio" value="No" <% if UPS_Residentialind <> "Yes" then response.write " checked"%>>
No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Allow certain products to be shipped separately? </span></td>
                      <td><input name="xcheckIndividualProduct" type="radio" value="Yes" <% if xcheckIndividualProduct = "Yes" then response.write " checked"%>>
    Yes
      <input name="xcheckIndividualProduct" type="radio" value="No" <% if xcheckIndividualProduct <> "Yes" then response.write " checked"%>>
    No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Ship all products separately? </span></td>
                      <td><input name="xIndividualPackages" type="radio" value="Yes" <% if xIndividualPackages = "Yes" then response.write " checked"%>>
    Yes
      <input name="xIndividualPackages" type="radio" value="No" <% if xIndividualPackages <> "Yes" then response.write " checked"%>>
    No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Test mode </span></td>
                      <td><input name="testmode" type="radio" value="Yes" <% if xtrace = "Yes" then response.write " checked"%>>
Yes
  <input name="testmode" type="radio" value="No" <% if xtrace <> "Yes" then response.write " checked"%>>
No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Packaging type </span></td>
                      <td><select name="packagingtype" size="1" id="packagingtype">
                        <option value="00" <% if packagingtype = "00" then response.write " selected"%>>UnkNown</option>
                        <option value="01" <% if packagingtype = "01" then response.write " selected"%>>UPS Letter</option>
                        <option value="02" <% if packagingtype = "02" then response.write " selected"%>>Package</option>
                        <option value="03" <% if packagingtype = "03" then response.write " selected"%>>UPS Tube</option>
                        <option value="04" <% if packagingtype = "04" then response.write " selected"%>>UPS Pak</option>
                        <option value="21" <% if packagingtype = "21" then response.write " selected"%>>UPS Express Box</option>
						<option value="25" <% if packagingtype = "24" then response.write " selected"%>>UPS 10KG Box</option>
                        <option value="24" <% if packagingtype = "24" then response.write " selected"%>>UPS 25KG Box</option>
                      </select></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Pick-up type </span></td>
                      <td><select name="pickuptype" size="1" id="pickuptype">
                        <option value="01" <% if pickuptype = "01" then response.write " selected"%>>Daily Pickup</option>
                        <option value="03" <% if pickuptype = "03" then response.write " selected"%>>Customer Counter</option>
                        <option value="11" <% if pickuptype = "11" then response.write " selected"%>>Suggested Retail Rate (UPS Store)</option>
					</select></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Use supplier zip? </span></td>
                      <td><input name="xusesupplierzip" type="radio" value="Yes" <% if xusesupplierzip = "Yes" then response.write " checked"%>>
Yes
  <input name="xusesupplierzip" type="radio" value="No" <% if xusesupplierzip <> "Yes" then response.write " checked"%>>
No</td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Weight units </span></td>
                      <td><select name="UPS_WeightUnits" size="1" id="UPS_WeightUnits">
                        <option <%if UPS_WeightUnits = "LBS" then response.write " selected"%>>LBS</option>
                        <option <%if UPS_WeightUnits = "KGS" then response.write " selected"%>>KGS</option>
                                            </select></td>
                    </tr>
                    <tr>
                      <td>&nbsp;</td>
                      <td>&nbsp;</td>
                    </tr>
                    <tr bgcolor="#9C9ACE">
                      <td colspan="2"><font face='Tahoma, Verdana' size=2 color='#FFFFFF'><b>Advanced</b></font></td>
                    </tr>
<!--                    <tr>
                      <td><span style="font-weight: bold">License Gateway URL </span></td>
                      <td><input name="gatewaylocation_license" type="text" id="gatewaylocation_license" value="<%'=gatewaylocation_license%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Registration Gateway URL</span></td>
                      <td><input name="gatewaylocation_register" type="text" id="gatewaylocation_register" value="<%'=gatewaylocation_register%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Test Payment Gateway URL </span></td>
                      <td><input name="gatewaylocation_paymenttesting" type="text" id="gatewaylocation_paymenttesting" value="<%'=gatewaylocation_paymenttesting%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Payment Gateway URL </span></td>
                      <td>    <input name="gatewaylocation_payment" type="text" id="gatewaylocation_payment" value="<%'=gatewaylocation_register%>" style="width: 90%"></td>
                    </tr>-->
                    <tr>
                      <td><span style="font-weight: bold">XML Version </span></td>
                      <td><select name="xml" size="1" id="select2">
                        <option <% if xml = "XML2" then response.write " selected"%>>XML2</option>
                        <option <% if xml = "XML3" then response.write " selected"%>>XML3</option>
                        <option <% if xml = "XML4" then response.write " selected"%>>XML4</option>
                        <option <% if xml = "ASPTEAR" then response.write " selected"%>>ASPTEAR</option>
                        <option <% if xml = "DYNUHTTP" then response.write " selected"%>>DYNUHTTP</option>
                                            </select></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Supplier Ship Field </span></td>
                      <td><input name="xsuppliershipfield" type="text" id="xsuppliershipfield" value="<%=xsuppliershipfield%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Check Individual Product Field </span></td>
                      <td><input name="xcheckIndividualProductField" type="text" id="xcheckIndividualProductField" value="<%=xcheckIndividualProductField%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td><span style="font-weight: bold">Dimension Product Field </span></td>
                      <td><input name="xdimensionfield" type="text" id="xdimensionfield" value="<%=xdimensionfield%>" style="width: 90%"></td>
                    </tr>
                    <tr>
                      <td>&nbsp;</td>
                      <td><div align="right">
                        <input type="submit" name="action" value="Submit">
                      </div></td>
                    </tr>
                  </table>
				  </form>  
				  <p>UPS, UPS brandmark, and the Color Brown are trademarks of United Parcel Service of America, Inc. All Rights Reserved.</p>                </td>
              </tr>
            </table></td>
          </tr>
        </table>
<%	
End Sub

%>