<%
'=================================
'
'   雪狼工作室 电脑公司网站管理系统奥运庆典版
'    Apollo  401112684@qq.com
 
'        www.kkyy.org
'
'  copyright(c)2004 KKYY
'
'=================================

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