<%
'****************************************
'returns a DB connection
'****************************************
Sub OpenConnection(ByRef conConnection)
'Dim conConnection
' set conConnection = Server.CreateObject("ADODB.Connection")
conConnection.ConnectionTimeout = 15
conConnection.CommandTimeout = 30
conConnection.Open DB_STRING
'Response.Write "
Connection Opened
"
'OpenConnection = conConnection
End Sub
'****************************************
'returns a record set
'****************************************
Sub OpenRecordset( in_conConnection, in_strCommandTXT, Byval rsTemp )
Dim cmdTemp
'Dim rsTemp
'Response.Write in_strCommandTXT
'Response.End
set cmdTemp = Server.CreateObject("ADODB.Command")
'set rsTemp = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = in_strCommandTXT
cmdTemp.CommandType = 1
cmdTemp.ActiveConnection = in_conConnection
'Response.Write in_strCommandTXT
rsTemp.CursorType = 3
rsTemp.LockType = 1
rsTemp.Open cmdTemp
'OpenRecordset= rsTemp
End Sub
'********************************************************************************
'returns category info array
'********************************************************************************
Function getRecordSetList(lssql)
dim rssub
dim returncollection()
dim eachitem()
dim count
dim fieldcount
dim istartloop
dim datavalue
Dim varItem
count=0
Redim returncollection(count)
set rssub = Server.CreateObject("ADODB.Recordset")
OpenRecordset connection, lssql, rssub
if not rssub.EOF then
fieldcount = rssub.Fields.count
Redim eachitem(fieldcount)
while not rssub.EOF
count = count+1
Redim Preserve returncollection(count)
For istartloop=0 to (fieldcount-1)
datavalue = rssub.Fields(istartloop).value
if isnull(datavalue) then datavalue=""
eachitem(istartloop+1) = cstr(trim(datavalue))
Next
returncollection(count) = eachitem
rssub.MoveNext
wend
end if
rssub.Close
set rssub=nothing
getRecordSetList = returncollection
End Function
'********************************************************************************
'refreshes cached data
'********************************************************************************
Function refreshAppVariables()
Dim lsSql
Dim varItem
'TOP LEVEL CATEGORY DATA
lsSql = "exec p_WP_CATEGORY_DATA 1"
Application("TOP_CATEGORY_DATA") = getRecordSetList(lsSql)
'SUB LEVEL CATEGORY DATA
lsSql = "exec p_WP_CATEGORY_DATA_CHILD"
Application("SUB_CATEGORY_DATA") = getRecordSetList(lsSql)
Application("BUILD_DHTML") = ""
'TOP LEVEL CATEGORY GATEWAY TEMPLATE DATA
lsSql = "exec p_WP_TEMPLATE_KICKER_DATA"
Application("GATEWAY_DATA") = getRecordSetList(lsSql)
lsSql = "exec P_WP_TEMPLATE_LINK_DATA"
Application("TEMPLATE_LINK_DATA") = getRecordSetList(lsSql)
lsSql = "exec p_WP_PRODUCTS"
Application("PRODUCTS") = getRecordSetList(lsSql)
lsSql = "exec p_WP_SKU"
Application("SKU") = getRecordSetList(lsSql)
lsSql = "exec p_WP_COUNTRY_LIST"
Application("COUNTRY_LIST") = getRecordSetList(lsSql)
lsSql = "exec p_WP_STATE_LIST"
Application("STATE_LIST") = getRecordSetList(lsSql)
lsSql = "exec p_WP_CC_LIST"
Application("CC_LIST") = getRecordSetList(lsSql)
lsSql = "exec p_WP_SHIPPING_METHOD_LIST"
Application("SHIPPING_METHOD_LIST") = getRecordSetList(lsSql)
lsSql ="SELECT PRODUCT_ID FROM WP_PRODUCT WHERE ITEM_NUM = '" & trim(GIFT_BOX_ITEM_NUM) & "'"
Application("GIFTBOX_PRODUCT") = getRecordSetList(lsSql)
Dim GiftBoxProductID
GiftBoxProductID = "0"
For GENERIC_VARIABLE=1 to UBound(Application("GIFTBOX_PRODUCT"))
varItem = Application("GIFTBOX_PRODUCT")(GENERIC_VARIABLE)
GiftBoxProductID = trim(varItem(1))
Next
Application("GIFTBOX_PRODUCT_ID") = GiftBoxProductID
Dim skuProducts()
redim skuProducts(UBound(Application("PRODUCTS")))
lsSql = "exec p_WP_SKU_PER_PRODUCT "
For GENERIC_VARIABLE=1 to UBound(Application("PRODUCTS"))
varItem = Application("PRODUCTS")(GENERIC_VARIABLE)
skuProducts(GENERIC_VARIABLE)= lsSql & varItem(1) 'product_id
Next
Application("SKU_PER_PRODUCT") = skuProducts
lsSql = "exec p_WP_CATEGORY_PRODUCTS"
Application("CATEGORY_PRODUCTS") = getRecordSetList(lsSql)
lsSql = "exec p_WP_CATEGORY_PRODUCTS_COUNT"
Application("CATEGORY_PRODUCTS_COUNT") = getRecordSetList(lsSql)
Dim iCatListCount
iCatListCount = ubound(Application("CATEGORY_PRODUCTS_COUNT"))
Dim iStart
Dim iCatId
Dim iPrevCatId
Dim productsPerCat
Dim lProducts()
Dim catVarItem
Dim lCatCount
Dim lProductCount
iPrevCatId = 0
lCatCount = 1
lProductCount = 0
reDim productsPerCat(iCatListCount,2)
For iStart=1 to UBound(Application("CATEGORY_PRODUCTS"))
iCatId = Application("CATEGORY_PRODUCTS")(iStart)(1)
if iCatId <> iPrevCatId and iPrevCatId > 0 then
productsPerCat(lCatCount,1) = iPrevCatId
productsPerCat(lCatCount,2) = lProducts
lProductCount = 0
Redim lProducts(lProductCount)
lCatCount = lCatCount + 1
end if
lProductCount = lProductCount + 1
Redim Preserve lProducts(lProductCount)
lProducts(lProductCount) = Application("CATEGORY_PRODUCTS")(iStart)
iPrevCatId = iCatId
if iStart = UBound(Application("CATEGORY_PRODUCTS")) then
productsPerCat(lCatCount,1) = iPrevCatId
productsPerCat(lCatCount,2) = lProducts
end if
Next
Application("CATEGORY_PRODUCTS_CACHED") = productsPerCat
'Response.Write("UBound(Application(PRODUCTS))=" & UBound(Application("PRODUCTS")))
'Response.Write("Application(SKU)=" & UBound(Application("SKU")))
'Response.Write("Application(SKU_PER_PRODUCT)=" & UBound(Application("SKU_PER_PRODUCT")))
End Function
'********************************************************************************
'main cat data for a category
'********************************************************************************
Function getTopCategoryData(catId)
Dim subCategoryData()
Dim count
Dim varItem
'varItem(1) 'CATEGORY_ID
'varItem(2) '//CATEGORY_NAME
'varItem(3) 'ROLLOVER_ON
'varItem(4) 'ROLLOVER_OFF
'varItem(5) '//PAGE_NAME
'varItem(6) '//HEADER_IMAGE
count = 0
Redim subCategoryData(count)
For GENERIC_VARIABLE=1 to UBound(Application("TOP_CATEGORY_DATA"))
varItem = Application("TOP_CATEGORY_DATA")(GENERIC_VARIABLE)
IF cint(varItem(1)) = cint(catId) THEN 'varItem(2) = parent category id
count = count + 1
Redim Preserve subCategoryData(count)
subCategoryData(count) = varItem
Exit For
END IF
Next
getTopCategoryData = subCategoryData
End Function
'********************************************************************************
'main cat data for a category
'********************************************************************************
Function getGatewayTemplateData(catId)
Dim subCategoryData()
Dim count
Dim varItem
count = 0
Redim subCategoryData(count)
GENERIC_VARIABLE=0
For GENERIC_VARIABLE=1 to UBound(Application("GATEWAY_DATA"))
varItem = Application("GATEWAY_DATA")(GENERIC_VARIABLE)
'Response.Write varItem(1) & "..." & catId
IF cint(varItem(1)) = cint(catId) THEN 'varItem(2) = parent category id
count = count + 1
Redim Preserve subCategoryData(count)
subCategoryData(count) = varItem
END IF
Next
getGatewayTemplateData = subCategoryData
End Function
'********************************************************************************
'template link for a category
'********************************************************************************
Function getTemplateLinkData(catId)
Dim subCategoryData()
Dim count
Dim varItem
count = 0
Redim subCategoryData(count)
GENERIC_VARIABLE=0
For GENERIC_VARIABLE=1 to UBound(Application("TEMPLATE_LINK_DATA"))
varItem = Application("TEMPLATE_LINK_DATA")(GENERIC_VARIABLE)
'Response.Write varItem(1) & "..." & catId
'varItem(2) is category id
IF cint(varItem(2)) = cint(catId) THEN 'varItem(2) = parent category id
count = count + 1
Redim Preserve subCategoryData(count)
subCategoryData(count) = varItem
END IF
Next
getTemplateLinkData = subCategoryData
End Function
'********************************************************************************
'subcat data for a top category
'********************************************************************************
Function getSubCategoryData(catId)
Dim subCategoryData()
Dim count
Dim varItem
'1=PARENT_CATEGORY_ID, 2=CHILD_CATEGORY_ID, 3=PARENT CATEGORY_NAME,
'4=CHILD_CATEGORY_NAME, 5=ROLLOVER_ON, 6=ROLLOVER_OFF,
'7=FOR_ORDINAL, 8=GATEWAY_ROLLOVER_ON,9=GATEWAY_ROLLOVER_OFF
count = 0
Redim subCategoryData(count)
For GENERIC_VARIABLE=1 to UBound(Application("SUB_CATEGORY_DATA"))
varItem = Application("SUB_CATEGORY_DATA")(GENERIC_VARIABLE)
IF cint(varItem(1)) = cint(catId) THEN 'varItem(2) = parent category id
count = count + 1
Redim Preserve subCategoryData(count)
subCategoryData(count) = varItem
END IF
Next
getSubCategoryData = subCategoryData
End Function
'********************************************************************************
'subcat data for a subcategory category
'********************************************************************************
Function getSubCategoryDataForSubCatID(catId)
Dim subCategoryData(1)
Dim count
Dim varItem
'1=PARENT_CATEGORY_ID, 2=CHILD_CATEGORY_ID, 3=PARENT CATEGORY_NAME,
'4=CHILD_CATEGORY_NAME, 5=ROLLOVER_ON, 6=ROLLOVER_OFF,
'7=FOR_ORDINAL, 8=GATEWAY_ROLLOVER_ON,9=GATEWAY_ROLLOVER_OFF
For GENERIC_VARIABLE=1 to UBound(Application("SUB_CATEGORY_DATA"))
varItem = Application("SUB_CATEGORY_DATA")(GENERIC_VARIABLE)
IF cint(varItem(2)) = cint(catId) THEN 'varItem(2) = parent category id
subCategoryData(1) = varItem
Exit For
END IF
Next
getSubCategoryDataForSubCatID = subCategoryData
End Function
'********************************************************************************
'list of products for a category
'********************************************************************************
Function getCategoryProducts(catId)
Dim categoryProducts()
Dim count
Dim varItem
count = 0
Redim categoryProducts(count)
For GENERIC_VARIABLE=1 to UBound(Application("CATEGORY_PRODUCTS"))
varItem = Application("CATEGORY_PRODUCTS")(GENERIC_VARIABLE)
IF varItem(1) = catId THEN
count = count + 1
Redim Preserve categoryProducts(count)
categoryProducts(count) = varItem
END IF
Next
getCategoryProducts = categoryProducts
End Function
Function getCategoryProductsCached(catId)
Dim categoryProducts
Dim varItem
Dim count
count=0
Redim categoryProducts(count)
varItem = Application("CATEGORY_PRODUCTS_CACHED")
GENERIC_VARIABLE=0
For GENERIC_VARIABLE=1 to UBound(varItem)
'Response.Write "here is the " & catId & "..." & trim(varItem(GENERIC_VARIABLE,1))
IF trim(varItem(GENERIC_VARIABLE,1)) = trim(catId) THEN
count = count + 1
Redim Preserve categoryProducts(count)
categoryProducts = varItem(GENERIC_VARIABLE,2)
Exit For
END IF
Next
getCategoryProductsCached = categoryProducts
End Function
'********************************************************************************
'product data
'********************************************************************************
Function getProductData(productId)
Dim Product
Dim varItem
For GENERIC_VARIABLE=1 to UBound(Application("PRODUCTS"))
varItem = Application("PRODUCTS")(GENERIC_VARIABLE)
IF trim(varItem(1)) = trim(productId) THEN
Product = varItem
Exit For
END IF
Next
getProductData = Product
End Function
'****************************************
'returns kicker data based on slot number
'****************************************
Function getKickerData(gatewayTemplateData, slotnum, badmin)
Dim returnval
Dim kickerdata
Dim lahrefbefore
Dim lahrefafter
Dim lLinks
'kickerdata(1) = CATEGORY_ID
'kickerdata(2) = KICKER_DATA
'kickerdata(3) = TEMPLATE_KICKER_TYPE_NAME
if isarray(gatewayTemplateData) then
if UBOUND(gatewayTemplateData)>0 then
kickerdata = gatewayTemplateData(slotnum)
lLinks = kickerdata(4)
lahrefbefore = ""
lahrefafter = ""
if trim(lLinks) <> "" then
if left(lLinks,1) <> "/" then
lahrefbefore = ""
else
lahrefbefore = ""
end if
lahrefafter = ""
end if
If kickerdata(3) = "IMAGE" then
'if trim(slotnum) = "1" then
returnval = lahrefbefore & "![](" & IMAGE_PATH & kickerdata(2) & ")
" & lahrefafter
'else
'returnval = lahrefbefore & "" & lahrefafter
'end if
ElseIf kickerdata(3) = "TEXT" then
returnval = "" & kickerdata(2) & ""
ElseIf kickerdata(3) = "FILE" then
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsfile = fso.OpenTextFile(kickerdata(2))
returnval= fsfile.readall
fsfile.Close
Set fsfile=nothing
Set fso=nothing
End If
end if
end if
if badmin=true then
'if Instr(1,Request.ServerVariables("URL"), "/admin")>0 then 'if u r in admin
if session.Value("adminlogin")="true" then
returnval = returnval & ""
end if
end if
getKickerData = returnval
End Function
'****************************************
'returns number of pages for product page(directory)
'****************************************
Function getNumOfPages(catProducts)
dim retValue
dim imod
retValue=0
Response.Write("")
if UBound(catProducts) > 0 then
if UBound(catProducts) < (PRODUCTSPERROW * (NUMOFROWS - 1)) then
retValue=1 ' for products count < no. of products/page
else
imod = UBound(catProducts) mod (PRODUCTSPERROW * NUMOFROWS)
'retValue = int(UBound(catProducts)/((PRODUCTSPERROW * NUMOFROWS) - (PRODUCTSPERROW * (NUMOFROWS-1))))
retValue = int( ( (UBound(catProducts) - (1 * PRODUCTSPERROW)) / ((PRODUCTSPERROW * NUMOFROWS) ) ) )
if imod > 1 then ' for odd products count
retValue = retValue + 1
end if
end if
end if
Response.Write("")
getNumOfPages = retValue
End Function
'****************************************
'returns directory page product data
'****************************************
Function getCategoryProductsDirectoryBody(catProducts,pageNum,lnavid,lsearch)
Dim retString
Dim iTotalProductsPerPage
Dim iTotalColsPerRow
Dim iStart
Dim iEnd
Dim colCount
Dim varItem
Dim sLink
Dim sVPLink
Dim productItem
Dim skuItem
Dim lProductId
Dim iNavId
Dim modCheck
Dim lNumOfRows
lNumOfRows = NUMOFROWS
if pageNum = 1 then
lNumOfRows = 1
end if
retString = ""
colCount = 1
iTotalColsPerRow = cint(PRODUCTSPERROW)
iTotalProductsPerPage=cint(PRODUCTSPERROW * lNumOfRows)
'iStart = ((cint(pageNum) * iTotalProductsPerPage) - iTotalProductsPerPage) + 1
if pageNum = 1 then
iStart = ((cint(pageNum) * iTotalProductsPerPage) - iTotalProductsPerPage) + 1
else
iStart = ((cint(pageNum) * iTotalProductsPerPage) - (iTotalProductsPerPage + PRODUCTSPERROW)) + 1
end if
'response.Write("iStart = " & iStart)
iEnd = iTotalProductsPerPage * pageNum
if len(lsearch) > 0 then
lsearch = "&search=" & lsearch
end if
For GENERIC_VARIABLE=iStart to iEnd
if GENERIC_VARIABLE <= iEnd then
retString = retString &_
"![](" & IMAGE_PATH & "global/spacer.gif) | " & chr(13)
end if
if GENERIC_VARIABLE > UBound(catProducts) then
'need to add spacers
retString = retString &_
"" & chr(13) &_
" | " & chr(13)
Else
'write product info
varItem = catProducts(GENERIC_VARIABLE)
sLink = HTTP_HOST & "templates/detail.asp?navID=" & varItem(2)
iNavId = lnavid
if lnavid=0 then
iNavId = varItem(1)
end if
sVPLink = HTTP_HOST & "templates/directory.asp?vp=y&navID=" & iNavId & "&productid=" & varItem(2) & lsearch
'newly commented
'if varItem(9) = 0 or varItem(1) = 28 or varItem(1) = 30 or varItem(1) = 31 or varItem(1) = 32 or varItem(1) = 33 or varItem(1) = 45 or varItem(1) = 46 or varItem(1) = 47 or varItem(1) = 48 or varItem(1) = 49 or varItem(1) = 50 or varItem(1) = 51 or varItem(1) = 52 or varItem(1) = 53 then
retString = retString &_
"" & chr(13) &_
"" & chr(13) &_
"" & chr(13) &_
""
'""
'else
' retString = retString &_
' " | " & chr(13) &_
' "" & chr(13) &_
' "" & chr(13) &_
' ""
'end if
if varItem(9) > 0 then
'newly commented
'retString = retString & ""
end if
retString = retString & " | " & chr(13)
end if
colCount = colCount + 1
'if column count is more than 6 then add spacer row
If colCount > iTotalColsPerRow then
retString = retString &_
" | " &_
"
" & chr(13) &_
""& chr(13) &_
" | " & chr(13) &_
"
" & chr(13) &_
""
colCount = 1
end if
Next
getCategoryProductsDirectoryBody = retString
End Function
'****************************************
'returns a value from query string or form
'****************************************
Function getRequestValue(str)
Dim returnval
returnval = Trim(Request.Form(str))
if returnval = "" then
returnval = Trim(Request.QueryString(str))
end if
getRequestValue = returnval
end function
'****************************************
'replaces and returns quoted string
'****************************************
Function getQuotedString(str)
getQuotedString = "'" & replace(Trim(str),"'", "''") & "'"
end function
'****************************************
'sets and gets cookie value
'****************************************
Sub setCookie(cookiename, cookievalue, expiration)
Response.Cookies(cookiename) = cookievalue
Response.Cookies(cookiename).Expires = date+cint(expiration) ' e.g date+5
end Sub
Sub deleteCookie(cookiename)
Response.Cookies(cookiename).Expires = date-1
end Sub
Function getCookieValue(cookiename)
getCookieValue = Request.Cookies(cookiename)
end Function
Function getOrderID()
Dim liOrdersID
liOrdersID = getCookieValue(ORDERS_COOKIE)
if liOrdersID = "" then liOrdersID="0"
getOrderID = liOrdersID
End Function
Function getSourceCode(srcval)
Dim lsSourceCode
lsSourceCode = srcval
if lsSourceCode = "" then
lsSourceCode = getCookieValue(SOURCECODE_COOKIE)
End if
getSourceCode = lsSourceCode
End Function
'Used for redesign promo only.
Function getRedesignPromoMsg()
Dim lsSourceCode
Dim retStr
retStr = ""
lsSourceCode = getCookieValue(SOURCECODE_COOKIE)
if lsSourceCode = "REDESIGN" then
retStr = "Your FREE TeaMind Music CD will be included with this order."
end if
getRedesignPromoMsg = retStr
End Function
%>