<% Sub PutToShopBag( cpbm, ProductList ) If Len(ProductList) = 0 Then ProductList = "'" & cpbm & "'" ElseIf InStr( ProductList, cpbm ) <= 0 Then ProductList = ProductList & ", '" & cpbm & "'" End If End Sub %>