<%
			
			DIM mySQLShipping, objRSShipping
			Set objRSShipping = Server.CreateObject("ADODB.Recordset")
			mySQLShipping = "SELECT * FROM Shipping Where Id = '1'"
			objRSShipping.Open mySQLShipping, objConn
			
			
			Dim strShippingMethod
			strShippingMethod = objRSShipping("ShippingMethod")
			
			Dim strXMLLicense
			strXMLLicense = objRSShipping("XMLLicense")
			
			Dim strHTMLLicense
			strHTMLLicense = objRSShipping("HTMLLicense")
			
			Dim strUserId
			strUserId = objRSShipping("UserId")
			
			Dim strPassword
			strPassword = objRSShipping("Password")
			
			Dim strShipperNumber
			strShipperNumber = objRSShipping("ShipperNumber")
			
			Dim strPickupTypeCode
			strPickupTypeCode = objRSShipping("PickupTypeCode")
			
			Dim strCustomerClassCode
			strCustomerClassCode = objRSShipping("CustomerClassCode")
			
			Dim strPackageTypeCode
			strPackageTypeCode = objRSShipping("PackageTypeCode")
			
						
%>