<% '**************************************** 'Updates OrderInfo to DB '**************************************** Sub updateOrderHeaderInfo(customer_info) Dim lssql Dim liOrdersID Dim resultset 'p_ORDER_SET_HEADER_INFO @WebOrderID int, @IP varchar(225) '@KeyCode varchar(50), @SourceCode varchar(255), @CCTypeCode varchar(5), '@CCNumber varchar(50), @CCExipreMonth int, @CCExipreYear int, '@CCDigitCode varchar(10), @Comment1 varchar(100), @Comment2 varchar(100), @Comment3 varchar(100) liOrdersID = getOrderID lssql = "exec p_WP_ORDER_SET_HEADER_INFO " lssql = lssql & liOrdersID & "," 'WebOrderID lssql = lssql & getQuotedString(REMOTE_HOST) & "," 'IP lssql = lssql & getQuotedString( customer_info(24) ) & "," 'KeyCode lssql = lssql & getQuotedString( customer_info(25) ) & "," 'SourceCode lssql = lssql & getQuotedString( customer_info(19) ) & "," 'CCTypeCode lssql = lssql & getQuotedString( customer_info(20) ) & "," 'CCNumber if trim(customer_info(21))="" then 'maynot be required with GC lssql = lssql & "0,0," 'CCExipreMonth,'CCExipreYear else lssql = lssql & customer_info(21) & "," 'CCExipreMonth lssql = lssql & customer_info(22) & "," 'CCExipreYear end if lssql = lssql & getQuotedString( customer_info(23) ) & "," 'CCDigitCode lssql = lssql & getQuotedString( customer_info(2) ) & "," 'MACS USER ID lssql = lssql & getQuotedString( customer_info(3) ) & "," 'EncryptCustEdp lssql = lssql & getQuotedString( customer_info(4) ) & "," 'Customer Edp lssql = lssql & getQuotedString( customer_info(30) ) & "," 'GC1 lssql = lssql & getQuotedString( customer_info(31) ) & "," 'GC2 lssql = lssql & getQuotedString( customer_info(32) ) & "," 'GC3 lssql = lssql & getQuotedString( customer_info(33) ) & "," 'GC4 lssql = lssql & getQuotedString( customer_info(34) ) 'GC5 'Response.Write lssql 'Response.End resultset = getRecordSetList(lssql) if liOrdersID="0" then setCookie ORDERS_COOKIE, resultset(1)(1), ORDERS_DURATION end if End Sub '**************************************** 'Updates OrderInfo to DB '**************************************** Sub updateOrderAddressInfo(address_info, startindex, billShipSlNo) Dim lssql Dim liOrdersID Dim resultset 'p_ORDER_SET_ADDRESS_INFO '@WebOrderID int, @BillShipSlNo int, @Email varchar (255), '@Password varchar (50), @FirstName varchar (50), @MI varchar (1), '@LastName varchar (50), @Company varchar (255), @Address1 varchar (255), '@Address2 varchar (255), @City varchar (255), @zip varchar(50), @StateID int, '@CountryID int, @DayPhone varchar (50), @EveningPhone varchar (50), @ShippingMethodID int, '@GiftMessage1 varchar(100), @GiftMessage2 varchar(100), @ShiptoOption int liOrdersID = getOrderID lssql = "exec p_WP_ORDER_SET_ADDRESS_INFO " lssql = lssql & liOrdersID & "," 'WebOrderID lssql = lssql & billShipSlNo & "," 'BillShipSlNo lssql = lssql & getQuotedString( address_info(startindex) ) & "," 'Email lssql = lssql & getQuotedString( address_info(startindex+1) ) & "," 'Password lssql = lssql & getQuotedString( address_info(startindex+2) ) & "," 'FirstName lssql = lssql & getQuotedString( address_info(startindex+3) ) & "," 'MI lssql = lssql & getQuotedString( address_info(startindex+4) ) & "," 'LastName lssql = lssql & getQuotedString( address_info(startindex+5) ) & "," 'Company lssql = lssql & getQuotedString( address_info(startindex+6) ) & "," 'Address1 lssql = lssql & getQuotedString( address_info(startindex+7) ) & "," 'Address1 lssql = lssql & getQuotedString( address_info(startindex+8) ) & "," 'City lssql = lssql & getQuotedString( address_info(startindex+10) ) & "," 'Zip lssql = lssql & address_info(startindex+9) & "," 'StateID lssql = lssql & address_info(startindex+11) & "," 'CountryID lssql = lssql & getQuotedString( address_info(startindex+12) ) & "," 'DayPhone lssql = lssql & getQuotedString( address_info(startindex+13) ) & "," 'EveningPhone lssql = lssql & address_info(26) & "," 'Shipping Method ID lssql = lssql & getQuotedString( address_info(27) ) & "," 'GiftMessage1 lssql = lssql & getQuotedString( address_info(28) ) & "," 'GiftMessage2 lssql = lssql & getQuotedString( address_info(29) ) 'Ship to Option 'Response.Write LSSQL resultset = getRecordSetList(lssql) End Sub '**************************************** 'getOrderHeaderInfo from DB '**************************************** Sub getOrderHeaderInfo(ByRef customer_info, startindex) Dim resultset Dim liOrdersID Dim lssql liOrdersID = getOrderID lssql = "exec p_WP_ORDER_GET_HEADER_INFO " & liOrdersID resultset = getRecordSetList(lssql) customer_info(1) = "" customer_info(2) = trim(resultset(1)(8)) 'MACS USER ID from COMMENT1 customer_info(3) = trim(resultset(1)(9) ) 'EncryptCustEdp from COMMENT2 customer_info(4) = trim(resultset(1)(10)) 'Customer Edp from from COMMENT3 customer_info(19) = trim(resultset(1)(3)) 'CC type customer_info(20) = trim(resultset(1)(4)) 'CC # customer_info(21) = trim( resultset(1)(5) ) 'CC expiration month customer_info(22) = trim( resultset(1)(6) ) 'CC expiration year customer_info(23) = trim( resultset(1)(7) ) 'CC expiration year customer_info(24) = trim(resultset(1)(1)) 'KEYCODE customer_info(25) = trim(resultset(1)(2)) 'SOURCE_CODE customer_info(30) = trim(resultset(1)(11)) 'GC1 customer_info(31) = trim(resultset(1)(12)) 'GC2 customer_info(32) = trim(resultset(1)(13)) 'GC3 customer_info(33) = trim(resultset(1)(14)) 'GC4 customer_info(34) = trim(resultset(1)(15)) 'GC5 End Sub Sub getOrderAddressInfo(ByRef address_info, startindex, billShipSlNo, bFillShipInfo ) Dim resultset Dim liOrdersID Dim lssql Dim bToFillShipArray liOrdersID = getOrderID lssql = "exec p_WP_ORDER_GET_ADDRESS_INFO " & liOrdersID & "," & billShipSlNo resultset = getRecordSetList(lssql) address_info(29) = trim(resultset(1)(1)) 'SHIPTO_OPTION if address_info(29) = "" then address_info(29) = "0" bToFillShipArray = true if address_info(29) = "1" and cint(billShipSlNo) > 0 then bToFillShipArray = false end if if bFillShipInfo = true then 'override bToFillShipArray = true end if if bToFillShipArray = false then 'do not fill ship info else 'if cint(billShipSlNo) = 0 then address_info(startindex) = trim(resultset(1)(2)) 'EMAIL, address_info(startindex+1) = trim(resultset(1)(3)) 'PASSWORD, 'end if address_info(startindex+2) = trim(resultset(1)(4)) 'FIRST_NAME, address_info(startindex+3) = trim(resultset(1)(5)) 'MIDDLE_INITIAL, address_info(startindex+4) = trim(resultset(1)(6)) 'LAST_NAME, address_info(startindex+5) = trim(resultset(1)(7)) 'COMPANY, address_info(startindex+6) = trim(resultset(1)(8)) 'ADDRESS1, address_info(startindex+7) = trim(resultset(1)(9)) 'ADDRESS2, address_info(startindex+8) = trim(resultset(1)(10)) 'CITY, address_info(startindex+9) = trim(resultset(1)(12)) 'STATE_ID, address_info(startindex+10) = trim(resultset(1)(11)) 'ZIP, address_info(startindex+11) = trim(resultset(1)(13)) 'COUNTRY_ID, address_info(startindex+12) = trim(resultset(1)(14)) 'DAY_PHONE, address_info(startindex+13) = trim(resultset(1)(15)) 'EVENING_PHONE, end if IF cint(billShipSlNo) > 0 THEN address_info(26) = trim(resultset(1)(16)) 'SHIPPING_METHOD_ID, address_info(27) = trim(resultset(1)(17)) 'GIFT_MESSAGE1, address_info(28) = trim(resultset(1)(18)) 'GIFT_MESSAGE2 else address_info(27) = "" address_info(28) = "" END IF End Sub Function getBillShipDisplayInfo(address_info, startindex) Dim sReturn sReturn = addHTMLBR( address_info(startindex+2) & " " & address_info(startindex+3) & address_info(startindex+4) ) 'FIRST_NAME, MIDDLE_INITIAL,LAST_NAME sReturn = sReturn & addHTMLBR( address_info(startindex+5) ) 'COMPANY, sReturn = sReturn & addHTMLBR( address_info(startindex+6) ) 'ADDRESS1, sReturn = sReturn & addHTMLBR( address_info(startindex+7) ) 'ADDRESS2, sReturn = sReturn & addHTMLBR( address_info(startindex+8) ) 'CITY, sReturn = sReturn & addHTMLBR( getStateCode(address_info(startindex+9)) & "," & address_info(startindex+10) ) 'sReturn = sReturn & addHTMLBR( address_info(startindex+10) ) 'ZIP, sReturn = sReturn & addHTMLBR( getCountryDesc(address_info(startindex+11)) ) 'COUNTRY_ID, sReturn = sReturn & addHTMLBR( address_info(startindex+12) ) 'DAY_PHONE, sReturn = sReturn & addHTMLBR( address_info(startindex+13) ) 'EVENING_PHONE, getBillShipDisplayInfo = sReturn End Function Function addHTMLBR( str) if trim(str) = "" then addHTMLBR = str else addHTMLBR = str & "
" end if End Function '******************************************************************************** 'returns customer info array if exists '******************************************************************************** Sub getCustomerDataFromDB( customerinfo, ByRef returnCustomerInfo, iBillIndex, buserid, bpwd ) 'customerinfo input collection should have '************************************* '' 1=MacsUserID 2=Email ' 3=Password 4=First Name 5=Last Name ' 6=City 7=Zip 8=DayPhone '************************************* Dim resultset Dim lssql lssql = "exec p_WP_ORDER_GET_RETURN_CUSTOMER_INFO '" & buserid & "','" & bpwd & "'" resultset = getRecordSetList(lssql) returnCustomerInfo(1) = "N" If ISNULL(resultset) and ubound(resultset) = 0 then returnCustomerInfo(1) = "N" elseIf trim(resultset(1)(1)) <> "" then returnCustomerInfo(1) = "Y" returnCustomerInfo(2) = "" 'MACS USER ID returnCustomerInfo(3) = "" 'EncryptCustEdp returnCustomerInfo(4) = "" 'Customer Edp returnCustomerInfo(iBillIndex) = trim(resultset(1)(1)) 'Email returnCustomerInfo(iBillIndex+1) = trim(resultset(1)(2)) 'password returnCustomerInfo(iBillIndex+2) = trim(resultset(1)(3)) 'first name returnCustomerInfo(iBillIndex+3) = trim(resultset(1)(4)) 'MI returnCustomerInfo(iBillIndex+4) = trim(resultset(1)(5)) 'last name returnCustomerInfo(iBillIndex+5) = trim(resultset(1)(6)) 'Company name returnCustomerInfo(iBillIndex+6) = trim(resultset(1)(7)) 'street returnCustomerInfo(iBillIndex+7) = trim(resultset(1)(8)) 'ref1 returnCustomerInfo(iBillIndex+8) = trim(resultset(1)(9)) 'city returnCustomerInfo(iBillIndex+9) = trim(resultset(1)(10)) 'state ID returnCustomerInfo(iBillIndex+10) = trim(resultset(1)(11)) 'zip returnCustomerInfo(iBillIndex+11) = trim(resultset(1)(12)) 'country ID returnCustomerInfo(iBillIndex+12) = trim(resultset(1)(13)) 'day phone returnCustomerInfo(iBillIndex+13) = trim(resultset(1)(14)) 'eve phone end if End Sub %>