<%@ LANGUAGE = VBScript %>
<% 'Option Explicit %>
<% Response.Expires = -1 %>
<!--#include file="objConn_Open.inc"-->
<!--#include file="settings.asp"-->
<!--#include file="color_settings.asp"-->
<!--#include file="shipping_settings.asp"-->
<%
			
		Dim strUrl
		If strUseSecure = "Yes" Then
			strUrl = strSecureUrl
		Else
			strUrl = strCoUrl
		End If
		
		Dim strPage
		If (strGateway = "PayPal") Then
			strPage = "paypal_verify.asp"
		Else
			strPage = "cust_verify.asp"
		End If

		
		Dim strCity, strState, strZipCode, strCountryCode, strCartId, strResidential, strEmail, strPWD
		
		
		strCity 			= Request("City")
		strState 			= Request("State")
		strZipCode 		= Request("ZipCode")
		strCountryCode 	= Request("CountryCode")
		strCartId			= Request("CartId")
		strResidential	= Request("Residential")
		strEmail			= Request("Email")
		strPWD				= Request("PWD")
		
		Dim strShipCountryCode, strShipCountry
		
		
		Dim strShipAlternate
		strShipAlternate = Request.Form("ShipAlternate")
		Session("ShipAlternate") = strShipAlternate
		
		
		If Request.Form("B1") <> "" And Request.Form("ShipAlternate") = "No" Then
			Response.Redirect "error.asp?Error=You must choose Yes to alternate address if you use the Alternate Address Button."
			Response.End
		End If
		
		
		If strShipAlternate = "Yes" Then
			
						
			If Request.Form("ShipFName") = "" Then
			Response.Redirect "error.asp?Error=You must enter a First Name in the shipping area if you choose Yes to alternate address."
			Response.End
			
			ElseIf Request.Form("ShipLName") = "" Then
			Response.Redirect "error.asp?Error=You must enter a Last Name in the shipping area if you choose Yes to alternate address."
			Response.End
			
			ElseIf Request.Form("ShipAddress") = "" Then
			Response.Redirect "error.asp?Error=You must enter an Address in the shipping area if you choose Yes to alternate address."
			Response.End
			
			ElseIf Request.Form("ShipCity") = "" Then
			Response.Redirect "error.asp?Error=You must enter a City, Town or Province in the shipping area if you choose Yes to alternate address."
			Response.End
			
			ElseIf Request.Form("ShipState") = "Select State" Then
			Response.Redirect "error.asp?Error=You must enter a State in the shipping area if you choose Yes to alternate address."
			Response.End
			
			ElseIf Request.Form("ShipZipCode") = "" Then
			Response.Redirect "error.asp?Error=You must enter a Postal Code in the shipping area if you choose Yes to alternate address."
			Response.End
			End If
			
			
			' Alt Shipping Info
			Dim strFirstLetter,strLetterCase
			
				
			Dim strShipFName
			strShipFName = trim(Request.Form("ShipFName"))
			strShipFName = Replace(strShipFName,Chr(039),"")
			strShipFName = Replace(strShipFName,Chr(034),"")
			strFirstLetter = Left(strShipFName,1)
			strLetterCase = Ucase (strFirstLetter)
			strShipFName = Replace(strShipFName,strFirstLetter,strLetterCase,1,1)
			
			Dim strShipLName
			strShipLName = trim(Request.Form("ShipLName"))
			strShipLName = Replace(strShipLName,Chr(039),"")
			strShipLName = Replace(strShipLName,Chr(034),"")
			strFirstLetter = Left(strShipLName,1)
			strLetterCase = Ucase (strFirstLetter)
			strShipLName = Replace(strShipLName,strFirstLetter,strLetterCase,1,1)
			
			Dim strShipCoName
			strShipCoName = trim(Request.Form("ShipCoName"))
			strShipCoName = Replace(strShipCoName,Chr(039),"")
			strShipCoName = Replace(strShipCoName,Chr(034),"")
			strFirstLetter = Left(strShipCoName,1)
			strLetterCase = Ucase (strFirstLetter)
			strShipCoName = Replace(strShipCoName,strFirstLetter,strLetterCase,1,1)
			
			Dim strShipAddress
			strShipAddress = trim(Request.Form("ShipAddress"))
			strShipAddress = Replace(strShipAddress,Chr(039),"")
			strShipAddress = Replace(strShipAddress,Chr(034),"")
			strFirstLetter = Left(strShipAddress,1)
			strLetterCase = Ucase (strFirstLetter)
			strShipAddress = Replace(strShipAddress,strFirstLetter,strLetterCase,1,1)
			
			Dim strShipAddress2
			strShipAddress2 = trim(Request.Form("ShipAddress2"))
			strShipAddress2 = Replace(strShipAddress2,Chr(039),"")
			strShipAddress2 = Replace(strShipAddress2,Chr(034),"")
			strFirstLetter = Left(strShipAddress2,1)
			strLetterCase = Ucase (strFirstLetter)
			strShipAddress2 = Replace(strShipAddress2,strFirstLetter,strLetterCase,1,1)
			
			Dim strShipCity
			strShipCity = trim(Request.Form("ShipCity"))
			strShipCity = Replace(strShipCity,Chr(039),"")
			strShipCity = Replace(strShipCity,Chr(034),"")
			strFirstLetter = Left(strShipCity,1)
			strLetterCase = Ucase (strFirstLetter)
			strShipCity = Replace(strShipCity,strFirstLetter,strLetterCase,1,1)
			
			Dim strShipState
			strShipState = Request.Form("ShipState")
			
			Dim strShipZipCode
			strShipZipCode = trim(Request.Form("ShipZipCode"))
						
			Dim strArrayVal
			strArrayVal = split(Request.Form("ShipCountry"), ":", -1)
			strShipCountryCode			= strArrayVal(0)
			strShipCountry				= strArrayVal(1)
					
						
			If (strShipCountryCode <> "US" And Request("ShipState") <> "OutsideUSA") Then
				Response.Redirect "error.asp?Error=<br><br>You selected " & strShipCountry & " as your ship to Country." & _
				"<br><br>Please choose Outside USA from the State drop down box." & _
				"<br><br>Please use the back button to return."
				Response.End
			ElseIf (strShipCountryCode = "US" And Request("ShipState") = "OutsideUSA") Then
				Response.Redirect "error.asp?Error=<br><br>You selected " & strShipCountry & " as your ship to Country." & _
				"<br><br>Please choose a State from the State drop down box." & _
				"<br><br>Please use the back button to return."
				Response.End
			End If
		
		strCity 			= strShipCity
		strState 			= strShipState
		strZipCode 		= strShipZipCode
		strCountryCode 	= strShipCountryCode
		
			
		End If
			
		Session.Timeout = 60
			
			
	If strState = "OutsideUSA" Then
				strState = ""
	End If
					
			
			
	Dim strSelect, xmlhttp, xmldoc, xml_Response, Response_Element, UPS_Rates, RatedShipment_Element, Total_Elements, Rates
	Dim UPS_ServiceCode, UPS_Amount, UPS_Descript, strError

Function ups_shipping_rates()
  
	
	
			DIM mySQL3, objRS3, strWeight
			Set objRS3 = Server.CreateObject("ADODB.Recordset")
			mySQL3 = "SELECT SUM(TotalWeight) AS Weight FROM Cart Where CartId = '"& strCartId &"'"
			objRS3.Open mySQL3, objConn

			strWeight = objRS3("Weight")
			If strWeight < 1 Then
			strWeight = 1
			End If
			
			'Response.Write strWeight
			'Response.End
			
			Dim strXML
				
			strXML="<?xml version='1.0'?><AccessRequest xml:lang='en-US'><AccessLicenseNumber>" & strXMLLicense & "</AccessLicenseNumber>"
			strXML=strXML & "<UserId>" & strUserId & "</UserId><Password>" & strPassword & " </Password></AccessRequest><?xml version='1.0'?>"
			strXML=strXML & "<RatingServiceSelectionRequest xml:lang='en-US'>"
			strXML=strXML & "<Request><TransactionReference><CustomerContext>Rating and Service</CustomerContext><XpciVersion>1.0001</XpciVersion></TransactionReference>"
			strXML=strXML & "<RequestAction>Rate</RequestAction>"
			strXML=strXML & "<RequestOption>Shop</RequestOption></Request>"
			strXML=strXML & "<PickupType><Code>" & strPickupTypeCode & "</Code></PickupType>"
			strXML=strXML & "<CustomerClassification><Code>" & strCustomerClassCode & "</Code></CustomerClassification>"
			strXML=strXML & "<Shipment><Shipper>"
			If strShipperNumber <> "" Then
  				strXML=strXML & "<ShipperNumber>" & strShipperNumber & "</ShipperNumber>"
			End If
			strXML=strXML & "<Address>"
			strXML=strXML & "<city>" & strCoCity & "</city>"
			strXML=strXML & "<StateProvinceCode>" & strCoState & "</StateProvinceCode>"
			strXML=strXML & "<PostalCode>" & strCoZip & "</PostalCode>"
			strXML=strXML & "<CountryCode>" & strCoCountryCode & "</CountryCode>"
			strXML=strXML & "</Address>"
			strXML=strXML & "</Shipper>"
			strXML=strXML & "<ShipTo><Address>"
			strXML=strXML & "<city>" & strCity & "</city>"
			strXML=strXML & "<StateProvinceCode>" & strState & "</StateProvinceCode>"
			strXML=strXML & "<PostalCode>" & strZipCode & "</PostalCode>"
			strXML=strXML & "<CountryCode>" & strCountryCode & "</CountryCode>"
			If strResidential = "Yes" Then
  			strXML=strXML & "<ResidentialAddressIndicator></ResidentialAddressIndicator>"
			End If	
			strXML=strXML & "</Address></ShipTo>"
			strXML=strXML & "<Service><Code>" & "11" & "</Code></Service>"
			strXML=strXML & "<Package><PackagingType><Code>" & strPackageTypeCode & "</Code>"
			strXML=strXML & "<Description>Package</Description></PackagingType>"
			strXML=strXML & "<Description>Rate Shopping</Description>"	
			strXML=strXML & "<PackageWeight><Weight>" & strWeight & "</Weight></PackageWeight></Package>"
			strXML=strXML & "<ShipmentServiceOptions>" & "" & "</ShipmentServiceOptions></Shipment></RatingServiceSelectionRequest>"
			
	strSelect = "<select name='UPSShippingRate'>"
		
	Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
	'xmlhttp.Open "POST","https://wwwcie.ups.com/ups.app/xml/Rate?",false
	xmlhttp.Open "POST","https://www.ups.com/ups.app/xml/Rate?",false
	xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	xmlhttp.send strXML
	
	xml_Response = xmlhttp.responseText
	
	
	Set xmldoc=Server.CreateObject("Microsoft.xmlDOM")
	xmldoc.loadxml(xml_Response)
	
			
	Set Response_Element = xmldoc.documentElement.selectNodes("Response")
	UPS_Rates = Response_Element.Item(0).selectSingleNode("ResponseStatusCode").Text
	
		
	if UPS_Rates <> 1 then 'Error
		'strError = "UPS Result: " & Response_Element.Item(0).selectSingleNode("ResponseStatusDescription").Text
		strError = "UPS Result: " & Response_Element.Item(0).selectSingleNode("Error/ErrorDescription").Text
		Response.Redirect "error.asp?Error=" & strError
		Response.End
		
		exit function
	else
		Set RatedShipment_Element = xmldoc.documentElement.selectNodes("RatedShipment")
		Total_Elements = RatedShipment_Element.length - 1
		
		Rates = 0
		Do While Rates <= Total_Elements
			UPS_ServiceCode = RatedShipment_Element.Item(Rates).selectSingleNode("Service/Code").Text
			UPS_Amount   = RatedShipment_Element.Item(Rates).selectSingleNode("TotalCharges/MonetaryValue").Text
						
			Select Case UPS_ServiceCode
					case "01"
					  UPS_Descript = "UPS Next Day Air"
					case "02"
					  UPS_Descript = "UPS 2nd Day Air"
					case "03"
					  UPS_Descript = "UPS Ground"
					case "07"
					  UPS_Descript = "UPS Worldwide ExpressSM"
					case "08"
					  UPS_Descript = "UPS Worldwide ExpeditedSM"
					case "11"
					  UPS_Descript = "UPS Standard UPS"
					case "12"
					  UPS_Descript = "UPS 3 Day Select"
					case "13"
					  UPS_Descript = "UPS Next Day Air Saver"
					case "14"
					  UPS_Descript = "UPS Next Day Air. Early A.M."
					case "54"
					  UPS_Descript = "UPS Worldwide Express PlusSM"
					case "59"
					  UPS_Descript = "UPS 2nd Day Air A.M."
			End Select
			
			
			
		strSelect = strSelect & "<option value='" & UPS_ServiceCode & "," & UPS_Amount & "," & UPS_Descript & "'>" &  UPS_Descript & " (" & FormatCurrency(UPS_Amount) & ")" & "</option>"
			
		
		Rates = Rates + 1
		
		Loop
		
		
	End If 
	
	strSelect = strSelect & "</select>"
		
	Response.Write strSelect
	  
End Function

	
%>
<html>
<head>

<title>UPS Shipping Rates</title>

</head>
<body <%= strPageBG %> text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">
<p align="center"><!--#include file="header.asp"-->
<b><font face="Verdana"> Shipping Rates provided by UPS</font></b><font face="Verdana">Ž</font>
<p align="center"><b><font face="Verdana">
<img border="0" src="images/LOGO_L.gif">
<br></font></b><br>
<p align="center">
<font face="Verdana"><b>Please choose a shipping option.</b></font>
<Form method="POST" action="<%= strURL %>/scart/<%= strPage %>" name="UPS">
<p><center><% Call ups_shipping_rates() %>
<input type="submit" value="Submit" name="B2" style="border: 1 solid #<%= strFormBorders %>; font-family:arial; color:#<%= strFormText %>; font-size: 10pt; background-color:#<%= strFormBG %>;"></center></p>
<input type="hidden" name="CartId" value="<%= strCartId %>">
<input type="hidden" name="Email" value="<%= strEmail %>">
<input type="hidden" name="PWD" value="<%= strPWD %>">
<input type="hidden" name="ShipAlternate" value="<%= strShipAlternate %>">
<input type="hidden" name="ShipFName" value="<%= strShipFName %>">
<input type="hidden" name="ShipLName" value="<%= strShipLName %>">
<input type="hidden" name="ShipCoName" value="<%= strShipCoName %>">
<input type="hidden" name="ShipAddress" value="<%= strShipAddress %>">
<input type="hidden" name="ShipAddress2" value="<%= strShipAddress2 %>">
<input type="hidden" name="ShipCity" value="<%= strShipCity %>">
<input type="hidden" name="ShipState" value="<%= strShipState %>">
<input type="hidden" name="ShipZipCode" value="<%= strShipZipCode %>">
<input type="hidden" name="ShipCountry" value="<%= strShipCountryCode %>:<%= strShipCountry %>">
</form>

<p align="center"><font size="1" face="Verdana">UPSŽ, UPS &amp; Shield DesignŽ
and UNITED PARCEL SERVICEŽ are registered trademarks of United Parcel Service
of America, Inc.</font>
</body>
</html>