| " if blnAdmin then s = s & " | Part # | " else s = s & "" end if s = s & " | Item | " s = s & "Sub-Total | " if blnCanEdit then s = s & "" end if s = s & " | " & PhotoURL & " | " else s = s & "" end if ' if blnAdmin then s = s & " | " & iif(blnAdmin,rsLineItem("vchPartNumber"),"") & " | " ' else ' s = s & "" ' end if s = s & " | " & rsLineItem("vchItemName") & " | " if blnCanEdit then s = s & "" & replace(iif(rsLineItem("chrType") = "I", strAuxMsgItem, iif(rsLineItem("chrType") = "R", strAuxMsgReturn, strAuxMsgNote)), "$ID$", rsLineItem("intID")) & " | " end if s = s & "" '--------------------show details for EXSWest--------------------------- s = s & "" s = s & " | Price/unit: " & SafeFormatCurrency(" ", rsLineItem("mnyUnitPrice"), 2) & " | " s = s & "S/H: " & SafeFormatCurrency(" ", rsLineItem("mnyShipPrice"), 2) & " | " s = s & "Qty: " & iif(IsNull(rsLineItem("intQuantity")), " ", rsLineItem("intQuantity")) & " | " s = s & "" s = s & "" '--------------------------------------- if rsLineItem("chrType") = "I" or rsLineItem("chrType") = "R" then s = s & " | " & iif(rsLineItem("chrType") = "R", "RETURNED", " ") & " | " s = s & "Price/unit: " & SafeFormatCurrency(" ", rsLineItem("mnyUnitPrice"), 2) & " | " s = s & "S/H: " & SafeFormatCurrency(" ", rsLineItem("mnyShipPrice"), 2) & " | " s = s & "Qty: " & iif(IsNull(rsLineItem("intQuantity")), " ", rsLineItem("intQuantity")) & " | " s = s & "" & SafeFormatCurrency(" ", rsLineItem("mnyPrice"), 2) & " | " if blnCanEdit then s = s & "" end if s = s & "" end if rsLineItem.MoveNext wend if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " s = s & " | " s = s & " | " if blnCanEdit then s = s & " | " end if s = s & "" ' Shipping: xx ' Nontaxable Subtotal: xx ' Taxable Subtotal: xx ' Tax: xx ' Total: xx dim mnyTaxSubTotal, mnyNonTaxSubTotal, mnyTaxAmount, mnyShipAmount if not IsNull(rsOrder("mnyNonTaxSubtotal")) then mnyNonTaxSubTotal = rsOrder("mnyNonTaxSubtotal") else mnyNonTaxSubTotal = 0 end if if not IsNull(rsOrder("mnyTaxSubtotal")) then mnyTaxSubTotal = rsOrder("mnyTaxSubTotal") else mnyTaxSubTotal = 0 end if if not IsNull(rsOrder("mnyTaxAmount")) then mnyTaxAmount = rsOrder("mnyTaxAmount") else mnyTaxAmount = 0 end if if not IsNull(rsOrder("mnyShipAmount")) then mnyShipAmount = rsOrder("mnyShipAmount") else mnyShipAmount = 0 end if if mnyShipAmount > 0 then if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " 's = s & " | (" & GetArrayValue(rsOrder("intShipOption"), dctShipOption) & ") + S/H: | " s = s & "S/H: | " s = s & "" & SafeFormatCurrency("$0.00", rsOrder("mnyShipAmount"), 2) & " | " if blnCanEdit then s = s & "" end if s = s & "" end if ' -- shipping is non-taxable for this site 'if mnyNonTaxSubTotal > mnyShipAmount and mnyNonTaxSubTotal > 0 ' mnyNonTaxSubTotal = mnyNonTaxSubTotal - mnyShipAmount 'end if if mnyTaxSubTotal = 0 or mnyNonTaxSubTotal = 0 then ' only one subtotal--we'll list it as "Subtotal" if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " '---------- customozation for EXSWest --------------- s = s & " | " s = s & " | " 's = s & " | Subtotal: | " 's = s & "" & FormatCurrency(mnyTaxSubTotal + mnyNonTaxSubTotal, 2) & " | " '-------------------------------------------------- if blnCanEdit then s = s & "" end if s = s & "" else if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " s = s & " | Taxable Subtotal: | " s = s & "" & FormatCurrency(mnyTaxSubtotal, 2) & " | " if blnCanEdit then s = s & "" end if s = s & "" if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " s = s & " | Non-Taxable Subtotal: | " s = s & "" & FormatCurrency(mnyNonTaxSubtotal, 2) & " | " if blnCanEdit then s = s & "" end if s = s & "" end if if mnyTaxAmount <> 0 then if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " s = s & " | (" & GetTaxZoneName(rsOrder("intTaxZone")) & ") Tax @ " & SafeFormatNumber("0", rsOrder("fltTaxRate") * 100, 2) & "%: | " s = s & "" & SafeFormatCurrency("n/a", mnyTaxAmount, 2) & " | " if blnCanEdit then s = s & "" end if s = s & "" end if if strColor = "" then strColor = " BGCOLOR=""#EEEEEE""" else strColor = "" s = s & " | " s = s & " | Total: | " s = s & "" & SafeFormatCurrency("$0.00", rsOrder("mnyGrandTotal"), 2) & " | " if blnCanEdit then s = s & "" end if s = s & "" s = s & " |
" 's = s & "
"
's = s & "
" 's = s & "
"
'end if
GetMerchant_DrawOrderCart = s
end function
'--------------------------------------------
' rkonvalin - added Brand_DrawOrderCart 2/7/03
' does not show dollar amounts on orders so Brand (Partner) can see/fill/ship items on orders by brand
sub Brand_DrawOrderCart(rsOrder, rsLineItem, blnCanEdit, strAuxMsgItem, strAuxMsgNote, strAuxMsgReturn, byVal cBGColor, byVal cBGShipColor)
response.write GetBrand_DrawOrderCart(rsOrder, rsLineItem, blnCanEdit, strAuxMsgItem, strAuxMsgNote, strAuxMsgReturn, cBGColor, cBGShipColor)
end sub
'--------------------------------------------
function GetBrand_DrawOrderCart(rsOrder, rsLineItem, blnCanEdit, strAuxMsgItem, strAuxMsgNote, strAuxMsgReturn, byVal cBGColor, cBGShipColor)
dim s
s = ""
if cBGColor = "" then
cBGColor = cVLtYellow
end if
s = s & "Comments:
"
's = s & " " & strGiftMessage & ""
's = s & "" 's = s & "
" if len(lCurWord) > 0 then isGood = true For j = 0 to UBound(checkArr) if lCurWord = checkArr(j) then isGood = false exit For end if Next if isGood then tempArray(lCount) = lCurWord lCount = lCount + 1 end if end if Next if lCount > 0 then lCount = lCount - 1 end if ReDim Preserve tempArray(lCount) getRealWords = tempArray End function '-------------------------------------------- function Inventory_GetItemsFromFolder(intParentID, blnGetFolders, blnGetItems) dim strSQL strSQL = "SELECT intParentID, intID, chrType, chrStatus, intMinQty, intStock, vchImageURL, intImageHeight, intImageWidth, mnyItemPrice, mnyShipPrice, chrSoftFlag, vchItemName, vchPartNumber, fltShipWeight, vchSize, vchPack, vchUnit, txtDescription" strSQL = strSQL & " FROM " & STR_TABLE_INVENTORY strSQL = strSQL & " WHERE chrStatus='A' AND chrParentStatus='A' AND (intParentID=" & intParentID & " OR intID=" & intParentID & ")" if blnGetFolders and not blnGetItems then strSQL = strSQL & " AND chrType='A'" elseif not blnGetFolders and blnGetItems then strSQL = strSQL & " AND chrType='I'" end if strSQL = strSQL & " ORDER BY chrType, intSortOrder" 'if intParentID = 4 then ' response.write strSQL & " " 'end if set Inventory_GetItemsFromFolder = gobjConn.execute(strSQL) end function '-------------------------------------------- function Inventory_GetItemsByKeyword(byVal strKeywords) dim strSQL strKeywords = SQLEncode(strKeywords) strSQL = "SELECT intParentID, intID, chrType, chrStatus, intStock, vchImageURL, intImageHeight, intImageWidth, mnyItemPrice, mnyShipPrice, chrSoftFlag, vchItemName, vchPartNumber, fltShipWeight, vchSize, vchPack, vchUnit, txtDescription" strSQL = strSQL & " FROM " & STR_TABLE_INVENTORY strSQL = strSQL & " WHERE chrStatus='A' and chrParentStatus='A'" strSQL = strSQL & " AND chrType='I'" strSQL = strSQL & " AND (vchItemName LIKE '%" & strKeywords & "%'" strSQL = strSQL & " OR vchPartNumber LIKE '%" & strKeywords & "%'" strSQL = strSQL & " OR txtDescription LIKE '%" & strKeywords & "%'" & ")" strSQL = strSQL & " ORDER BY intSortOrder" set Inventory_GetItemsByKeyword = gobjConn.execute(strSQL) end function '-------------------------------------------- sub Custom_GetGlobalInventoryFolders(intParentID) if IsObject(gobjConn) then set grsInvFolders = Inventory_GetItemsFromFolder(intParentID, true, false) end if end sub '-------------------------------------------- sub Inventory_GetFolderInfo(intParentID, strPageTitle, intParentUpID) intParentUpID = 0 strPageTitle = "" dim strSQL, rsTemp strSQL = "SELECT intParentID, vchItemName FROM " & STR_TABLE_INVENTORY & " WHERE intID=" & intParentID & " AND chrStatus='A'" ' response.write strSQL & " " set rsTemp = gobjConn.execute(strSQL) if not rsTemp.eof then intParentUpID = rsTemp("intParentID") strPageTitle = rsTemp("vchItemName") end if rsTemp.close set rsTemp = nothing end sub '-------------------------------------------- sub Inventory_GetItemInfo(intID, intParentID, strItemName, strPartNumber, intStock, strImageURL, mnyItemPrice, mnyShipPrice, blnTaxFlag, fltShipWeight, vchSize, vchPack, vchUnit, blnFreeShip, strOptionList1, strOptionList2, strDescription) intParentID = 0 strItemName = "" strPartNumber = "" intStock = 0 strImageURL = "" mnyItemPrice = 0 mnyShipPrice = 0 blnTaxFlag = false blnFreeShip = false fltShipWeight = 0 strOptionList1 = "" strOptionList2 = "" vchSize = "" vchPack = "" vchUnit = "" strDescription = "" dim strSQL, rsTemp strSQL = "SELECT intParentID, vchItemName, vchPartNumber, intStock, vchImageURL, mnyItemPrice, mnyShipPrice, chrTaxFlag, chrSoftFlag, fltShipWeight, vchSize, vchPack, vchUnit, vchOptionList1, vchOptionList2, txtDescription FROM " & STR_TABLE_INVENTORY & " WHERE intID=" & intID & " AND chrStatus='A'" ' if intID = 4 then ' response.write strSQL & " " ' end if set rsTemp = gobjConn.execute(strSQL) if not rsTemp.eof then intParentID = rsTemp("intParentID") strItemName = rsTemp("vchItemName") & "" strPartNumber = rsTemp("vchPartNumber") & "" intStock = rsTemp("intStock") strImageURL = rsTemp("vchImageURL") & "" mnyItemPrice = rsTemp("mnyItemPrice") mnyShipPrice = rsTemp("mnyShipPrice") blnTaxFlag = (rsTemp("chrTaxFlag") = "Y") fltShipWeight = rsTemp("fltShipWeight") vchSize = rsTemp("vchSize") vchPack = rsTemp("vchPack") vchUnit = rsTemp("vchUnit") strOptionList1 = rsTemp("vchOptionList1") & "" strOptionList2 = rsTemp("vchOptionList2") & "" strDescription = rsTemp("txtDescription") & "" end if rsTemp.close set rsTemp = nothing end sub '-------------------------------------------- sub Inventory_UpdateHitCount(intID) dim strSQL strSQL = "UPDATE " & STR_TABLE_INVENTORY & " SET intHitCount=intHitCount+1 WHERE intID=" & intID ConnExecute strSQL end sub '-------------------------------------------- sub Inventory_ResetHitCount(intID) dim strSQL strSQL = "UPDATE " & STR_TABLE_INVENTORY & " SET intHitCount=0, dtmHitReset=getdate() WHERE intID=" & intID ConnExecute strSQL end sub '-------------------------------------------- sub SendInvoiceMail(rsInput, strMessage, strEmail1, strEmail2, strEmail3) dim s, strEmailAddress strEmailAddress = strEmail1 if strEmail2 <> "" then if strEmailAddress <> "" then strEmailAddress = strEmailAddress & ";" strEmailAddress = strEmailAddress & strEmail2 end if if strEmail3 <> "" then if strEmailAddress <> "" then strEmailAddress = strEmailAddress & ";" strEmailAddress = strEmailAddress & strEmail3 end if s = GetInvoiceHTML(rsInput, strMessage) if lcase(strServerHost) = "awsdev" then ' running from internal s = s & vbcrlf & "To: " & strEmailAddress & vbcrlf & vbcrlf strEmailAddress = "dde@americanwebservices.com" end if SendHTMLMail STR_MERCHANT_EMAIL, strEmailAddress, "", "", "Copy of Invoice - Order #" & STR_MERCHANT_TRACKING_PREFIX & rsInput("intID"), s end sub '-------------------------------------------- function GetInvoiceHTML(rsInput, strMessage) dim s, strSQL dim rsLineItem, rsShopper, strColor dim blnErrors, dctErrorList dim strStatus, strStatusText, strStatusCode strStatusCode = rsInput("chrStatus") strStatus = GetArrayValue(strStatusCode, dctOrderStatusInvoiceValues) select case rsInput("chrStatus") case "0","1","2","3","4","5","6","7","8", "P", "9": ' in progress strStatusText = "This order has not yet been submitted." case "S", "A", "Z", "V", "E": ' submitted strStatusText = "This order has been submitted for processing." case "X", "H": ' deposited strStatusText = "This order has been shipped." case "C": ' credited strStatusText = "Funds have been returned to purchaser." case "B": ' abandoned case "K": ' declined end select s = "" ' HTML Header s = s & "" s = s & "" s = s & "" s = s & "
|