Hi,

Here's my question - our customer has been happily using NB Store for many months.  She has recently purchased web-based software that promises to track "affiliate" purchases from her store (for calculating commissions for consultants who have that customer).  The software company is IDevAffiliate, http://www.idevdirect.com.  This company promises integration with many different kinds of shopping carts.

She has asked me to set up the integration between her NB Store cart (with PayPal, perhaps) and this separate affiliate software.

IDevAffiliate supposedly works with PayPal payment systems, and only requires that I add a "tracking pixel" to an asp.net .aspx page with the "Buy Now" PayPal button - here are the two lines they say I need to add to a standard.aspx page tp make their software work:

<input type="hidden" name="notify_url" value="http://www.settoateaaffiliates.com/paypal_ipn_buynow.php">
<input type="hidden" name="custom" value="<%=Request.ServerVariables("REMOTE_ADDR")%>">

My question - is there a way to add these lines to the NB Store application?  I'm not at all familiar with how NB Store is interfacing with PayPal, but while looking through the source code, I found this in the GatewayPayPal.vb page, below, from the sub "SetBankRemotePost" - looks as if you are setting the PayPal parameters there.  Can I integrate the IDevAffiliate hidden input parameters here?  Can I modify NB Store's "notify URL" parameter for use with the IDevAffililate software?  Can you recommend a better way?

Public Overrides Sub SetBankRemotePost(ByVal PortalID As Integer, ByVal OrderID As Integer, ByVal Lang As String, ByVal Request As System.Web.HttpRequest)

            Dim RPost As New RemotePost

            'test if Paypal button has been clicked
            If Not Request.form.Item("PAYPAL.x") Is Nothing Then
                Dim objSCtrl As New SettingsController
                Dim objSInfo As NB_Store_SettingsInfo
                objSInfo = objSCtrl.GetSetting(PortalID, "PayPal.gateway", "None")
                If Not objSInfo Is Nothing Then

                    Dim setParams As Hashtable = createSettingsTable(objSInfo.SettingValue)

                    Dim returnURL As String = setParams("ReturnURL")
                    Dim cancelURL As String = setParams("ReturnCancelURL")
                    Dim notifyURL As String = setParams("ReturnNotifyURL")

                    Dim payPalURL As String = setParams("paymentURL")

                    Dim PayPalID As String = setParams("PayPalID")
                    Dim PayPalCartName As String = setParams("CartName")
                    Dim PayPalButtonURL As String = setParams("ButtonImageURL")
                    Dim PayPalCurrency As String = setParams("Currency")
                    Dim PayPalMerchantLanguage As String = setParams("MerchantLanguage")

                    Dim objOCtrl As New OrderController
                    Dim oInfo As NB_Store_OrdersInfo = objOCtrl.GetOrder(OrderID)

                    If Not oInfo Is Nothing Then

                        returnURL = Replace(returnURL, "[ORDERID]", oInfo.OrderID.ToString)
                        cancelURL = Replace(cancelURL, "[ORDERID]", oInfo.OrderID.ToString)
                        notifyURL = Replace(notifyURL, "[ORDERID]", oInfo.OrderID.ToString)
                        PayPalCartName = Replace(PayPalCartName, "[CARTID]", CurrentCart.GetCurrentCart(PortalID).CartID)

                        payPalURL += "?business=" & HTTPPOSTEncode(PayPalID)
                        payPalURL += "&item_name=" & HTTPPOSTEncode(PayPalCartName)
                        payPalURL += "&item_number=" & HTTPPOSTEncode(oInfo.OrderID.ToString)
                        payPalURL += "&quantity=1"
                        payPalURL += "&custom=" & GetCurrentCulture()
                        payPalURL += "&amount=" & HTTPPOSTEncode(Replace(oInfo.CartTotal.ToString("0.00"), ",", "."))
                        payPalURL += "&shipping=" & HTTPPOSTEncode(Replace(oInfo.ShippingCost.ToString("0.00"), ",", "."))
                        payPalURL += "&tax=" & HTTPPOSTEncode(Replace(oInfo.AppliedTax.ToString("0.00"), ",", "."))
                        payPalURL += "&currency_code=" & HTTPPOSTEncode(PayPalCurrency)
                        payPalURL += "&bn=" & HTTPPOSTEncode("NB_Store")
                        payPalURL += "&return=" & HTTPPOSTEncode(returnURL)
                        payPalURL += "&cancel_return=" & HTTPPOSTEncode(cancelURL)
                        payPalURL += "&notify_url=" & HTTPPOSTEncode(notifyURL)
                        payPalURL += "&undefined_quantity=0&no_note=1&no_shipping=1"

Thank you so much for any help you can provide!

Lisa