<%
isdebug=false
on error resume next
if isdebug then on error goto 0
arrProducts = Array()
sSQL = "EXEC p_hwdGetSizeList "
set rsSizes = GetRS(sSQL)
if not rsSizes.eof then
strOptions = " " & vbCrLf
end if
set rsSizes = nothing
sSQL = "EXEC p_hwdGetProducts " & toSQLNum(2)
set rsProducts = GetRS(sSQL)
if not rsProducts.eof then
set sbProducts = new StringBuilder
strProducts = "
" & vbCrLf
strCart = "
" & vbCrLf & "
" & vbCrLf
cnt = 0
end if
sProductID = rsProducts("ProductID")
sSQL2 = "EXEC p_hwdGetPrices " & toSQLNum(sProductID)
set rsPrices = GetRS(sSQL2)
if not rsPrices.eof then
strParams = ""
do while not rsPrices.eof
strParams = strParams & rsPrices("ProdSize") & ";" & rsPrices("ProdPrice") & ","
rsPrices.movenext
loop
strParams = Left(strParams, Len(strParams)-1)
rsPrices.close
end if
set rsPrices = nothing
' strProducts = strProducts & "" & vbCrLf
cnt = cnt + 1
strInfo = rsProducts("ProductID") & "~:~" & rsProducts("ProductName") & "~:~" & rsProducts("ProductDesc") & "~:~" & rsProducts("ProductImage") & "~:~" & strParams
sbProducts.Append strInfo
strCart = strCart & "" & vbCrLf
rsProducts.movenext
loop
rsProducts.close
strCart = strCart & "" & vbCrLf
if cnt = 1 then
strProducts = strProducts & "
" & vbCrLf & "
" & vbCrLf
elseif cbt = 2 then
strProducts = strProducts & "" & vbCrLf
end if
arrProducts = Split(sbProducts.JoinString("~!~"), "~!~")
end if
set rsProducts = nothing
%>
Sacred Images by Heather Williams Durka
