%@LANGUAGE = VBSCRIPT%>
<%Option Explicit%>
<%Response.Buffer = True%>
<% Dim strID
Dim arrCart
Dim iCount
'If Session("ID") <> "" then
' arrCart = Split(Session("ID"), "@", -1,1)
'iCount = UBound(arrCart)
'Else
'iCount = 0
'End if
%>
<%
If TRIM(Session("ID")) <> "" and Request("ID") <> "" then 'IF SESSION NOT ISNULL
Dim strSample, strString, strJoin
Dim iLen, iCounter
Dim strQuery, rstProd, conProd
Dim strList
'parse session variable
strSample= Session("ID")
iLen = len(sTRSample)
strString = Mid(strSample, 2, iLen -2)
arrCart = Split(strString, "@+",-1,1)
'strJoin = Join(arrCart,",")
For iCounter = LBound(arrCart) to UBound(arrCart)
Call Open_Con(conProd)
strQuery = "SELECT * FROM Products WHERE Prod_ID = " & arrCart(iCounter)
Call Open_Rst(rstProd, conProd, strQuery)
strList = strList & iCounter + 1 & ". " & TRIM(rstProd("Prod_Code")) & "
"
Call Close_All(rstProd, conProd)
Next
End if
%>