<%
Dim lCurrentProductData
Dim lDetailImage '8
Dim lItemNum '2
Dim lName '3
Dim lDescription '5
Dim lPrice '10
Dim lSalePrice '11
Dim lSampleImage '9
Dim lProductId '1
Dim lDisplayPrice
Dim lMsg
Dim lsSql
Dim liOrdersID
Dim retVal
Dim lVPProducts
Dim lVPCount
Dim iStart
Dim lVPLink
Dim lCSProducts
Dim lCSCount
Dim lTCProducts
Dim lTCCount
Dim lSkuCount
Dim sOptionText
lVPLink = HTTP_HOST & "templates/detail.asp?navID="
lVPCount = 0
lMsg = ""
'lCurrentProductData = getProductData(NAVID)
if Request.QueryString("scid") > "" then
' Coming into landing detail_landing page with a product
lsSql = "Exec p_WP_PRODUCT_DETAIL_LANDING " & NAVID
else
lsSql = "Exec p_WP_PRODUCT_DETAIL " & NAVID
end if
lCurrentProductData = getRecordSetList(lsSql)
lProductId = lCurrentProductData(1)(1)
lDetailImage = IMAGE_PATH & lCurrentProductData(1)(8)
lItemNum = lCurrentProductData(1)(2)
'lName = lCurrentProductData(1)(3)
lName = lCurrentProductData(1)(4)
lDescription = lCurrentProductData(1)(5)
lPrice = lCurrentProductData(1)(10)
lSalePrice = lCurrentProductData(1)(11)
lSampleImage = IMAGE_PATH & lCurrentProductData(1)(9)
If trim(lSalePrice)<>"" then
lDisplayPrice = FormatCurrency(lSalePrice,2)
end if
'lDisplayPrice = FormatCurrency(lSalePrice,2)
lSkuCount = cint(lCurrentProductData(1)(12))
if lSkuCount > 0 then
Dim roption
Dim roptCount
'options are available...build option drop down
if Request.QueryString("scid") > "" then
lsSql = "Exec P_WP_PRODUCT_DETAIL_OPTIONS_LANDING " & NAVID
else
lsSql = "Exec P_WP_PRODUCT_DETAIL_OPTIONS " & NAVID
end if
'Response.Write lsSql
roption = getRecordSetList(lsSql)
if lSkuCount = 0 then
sOptionText = ""
else
For roptCount =1 to Ubound (roption)
sOptionText = sOptionText & "