<%@ Language=VBScript %>
<%
On Error Resume Next
Dim objCommerce 'AldaT Commerce Object
Dim objVolumePricing 'AldaT Volume Pricing Object
Dim locADORecords 'locRecordset
Dim locStatus 'Maintains state from menu
Dim ErrorFlag 'Flag if string error occurs
Dim ErrorNumber 'Err.number to error.asp
Dim ErrorDescription 'Err.description to error.asp
Dim ErrorSource 'Err.source to error.asp
Dim ErrorPage 'Error source page
Dim ErrorUser 'Error source user
Dim locProductline 'store productline name
Dim locAttrTypeID 'store attribute type id for loop condition
Dim TitleContent, AttributeContent, DescriptionContent 'create content strings
Dim PriceVariationsContent, NoteContent, ImageContent, LinkContent
Dim AttributeDesc 'concatenate attribute info
Dim NumAttributes 'count number of attribute types
Dim FirstLoopFlag
Dim AttributeSize, AttributeCount 'attribute delimiter count, attribute count
Dim Count
Dim sExistingVolumeContent
Dim dBasePrice, dAdjPrice, sPriceContent
Dim locProductID
Dim arrProductID 'list of products to be associated on this page; the first element is the master product which will be used to populate much of the content dynamically
Dim iArrSize 'size of arrProductID
Dim sDescription, sLongDescription, sVolConRow1, sVolConRow2
Dim iVolColumnCount
Dim iCount, iCount2
Dim arrProductIDSub 'products associated within a product heading
Dim objDictSubProducts 'products associated within a product heading
Dim arrDictKeys 'array of dictionary keys
Dim strKeyContains 'string to search key for
Set objCommerce = Server.CreateObject("aldatCommerce.Product")
Set objDictSubProducts = Server.CreateObject("Scripting.Dictionary")
objDictSubProducts.CompareMode = 0
Session("Submitted") = ""
AttributeContent = ""
DescriptionContent = ""
PriceVariationsContent = ""
LinkContent = " No Product Found "
Else
'TitleContent = Trim(locADORecords("Name"))
DescriptionContent = Trim(locADORecords("Description"))
End If
Else
If Not locADORecords.EOF Then
'TitleContent = Trim(locADORecords("Name"))
DescriptionContent = Trim(locADORecords("Description"))
While Not locADORecords.EOF
locAttrTypeID = locADORecords("AttrTypeID")
AttributeCount = AttributeCount + 1
If FirstLoopFlag = False Then
'add delimiter
AttributeDesc = AttributeDesc & "@"
AttributeSize = AttributeSize + 1
End If
AttributeContent = AttributeContent & "" & Trim(locADORecords("AttriTypeDescription")) &_
" :Select "
AttributeDesc = AttributeDesc & Trim(locADORecords("AttriTypeDescription"))
AttributeIDs = AttributeIDs & Trim(locADORecords("AttrTypeID"))
Do
AttributeContent = AttributeContent & "" &_
Trim(locADORecords("AttriDescription")) & " "
If CDbL(locADORecords("PriceCoeff")) <> 1.0 Then
PriceVariationsContent = PriceVariationsContent & Trim(locADORecords("AttriDescription")) & " - " & FormatCurrency((CDbl(locADORecords("BasePrice")) * CDbl(locADORecords("PriceCoeff")))) & "Log-in to an active account to access discounted pricing.
"
Else
sExistingVolumeContent = ""
Set objVolumePricing = Server.CreateObject("AldatVolumePricing.Admin")
For iCount = 0 to iArrSize
'BEGIN sub products per product in array
strKeyContains = "_" & arrProductID(iCount) & "_"
strSubProducts = "" & Chr(13)
For iCountSub = 0 to objDictSubProducts.Count -1
If InStr(1,arrDictKeys(iCountSub),strKeyContains,1)>0 Then
Set locADORecords = objCommerce.getProduct(Application("Company"),objDictSubProducts.Item(arrDictKeys(iCountSub)))
'BYVAL: vCompanyID OPTIONAL: vVolumePricingID, vProductID, vQty, vAcctType
If Err.number > 0 Then
Err.Clear
Else
strSubProducts = strSubProducts & ""
strSubProducts = strSubProducts & locADORecords("Name")
strSubProducts = strSubProducts & " "
End If
End If
Next
strSubProducts = strSubProducts & " " & Chr(13)
'END sub products per product in array
'initialize vars for entire pricing matrix
iVolColumnMax = 0
Set locADORecords = objCommerce.getProduct(Application("Company"),arrProductID(iCount))
'BYVAL: vCompanyID OPTIONAL: vVolumePricingID, vProductID, vQty, vAcctType
If Err.number > 0 Then
sDescription = ""
sLongDescription = ""
dBasePrice = 0
iProductID = 0
Else
sDescription = locADORecords("Name")
dBasePrice = locADORecords("BasePrice")
iProductID = locADORecords("ProductID")
If Session("AcctType") = "Dealer" Then
sLongDescription = sDescription & "Retail Price: " & FormatCurrency(dBasePrice) & " " & Chr(13) &_
"" & Chr(13) &_
" Description No Volume Pricing Available " & Chr(13) &_
"" & Chr(13) &_
" " & sDescription & " " & Chr(13) &_
" " & Chr(13) &_
" " & FormatCurrency(dBasePrice) & " " & Chr(13) &_
" " & Chr(13) &_
"" & Chr(13) &_
" " & Chr(13) &_
"
" & Chr(13) &_
"
" & Chr(13)
'"" & ExistingMinQty & " " & Chr(13)
sVolConRow2 = sVolConRow2 & " " & sPriceContent & " " & Chr(13)
locADORecords.MoveNext()
Wend
'If iVolColumnCount > iVolColumnMax Then
' iVolColumnMax = iVolColumnCount
'End If
sExistingVolumeContent = sExistingVolumeContent & "" & Chr(13) &_
"" & Chr(13) &_
" Description Min Qty " & Chr(13) &_
"" & Chr(13)
For iCount2 = 1 to iVolColumnCount
sExistingVolumeContent = sExistingVolumeContent & " Price/Item " & Chr(13) &_
"" & Chr(13) &_
" " & sLongDescription & " " & Chr(13) &_
sVolConRow1 &_
" " & Chr(13) &_
"" & Chr(13) &_
sVolConRow2 &_
" " & Chr(13) &_
"" & Chr(13) &_
" " & Chr(13) &_
"
" & Chr(13) &_
"
" & Chr(13)
'"<%=Application("CompanyDisplay")%> Item
<%=TitleContent%>
<%=LinkContent%>
<%=AttributeContent%>
<%=AdditionalNotesContent%>
<%=DescriptionContent%>
<%=NoteContent%>
<%=PriceVariationsContent%>
Parker Flex-Tip Endotracheal Tube, High Volume Low Pressure, Cuffed (PFHV) Parker Flex-Tip Endotracheal Tube, Low Profile, Cuffed (PFLP) Parker Flex-Tip Endotracheal Tube, Uncuffed (PFUO) Parker Flex-Tip Endotracheal Tube, Preformed Nasal, Cuffed (PFNC) Parker Flex-Tip Endotracheal Tube, Preformed, Nasal, Uncuffed (PFNU) Parker Flex-Tip Endotracheal Tube, Preformed, Oral, Cuffed (PFOC) Parker Flex-Tip Endotracheal Tube, Reinforced, Cuffed (PFRC) Parker Flex-Tip Endotracheal Tube, Reinforced, Uncuffed (PFRU) Parker Flex-Tip Endotracheal Tube, Easycurve, Articulating (PFEC)
Click here to download Product Literature Click here for Instructional Videos
<%=sExistingVolumeContent%>
<%
Set locADORecords = Nothing
Set objCommerce = Nothing
%>
