Set rs = conn.Execute( "Category" ) While Not rs.EOF %> <A HREF=buy.asp?CategoryID=<%=rs("CategoryID")%>&Description=<%=Server.URLEncode(rs("Description"))%>> <%=rs("Description")%> </A> <% rs.MoveNext Wend End Sub
Sub PutToShopBag( ProductID, ProductList ) If Len(ProductList) = 0 Then ProductList = "'" & ProductID & "'" ElseIf InStr( ProductList, ProductID ) <= 0 Then ProductList = ProductList & ", '" & ProductID & "'" End If End Sub
