
<%
buylist = request.cookies("buyok")("cart")
buyid = Request("Prodid")
If Len(buylist) = 0 Then
buylist = "'" & buyid & "', '1'"
ElseIf InStr( buylist, buyid ) <= 0 Then
buylist = buylist & ", '" & buyid & "', '1'"
End If
response.cookies("buyok")("cart") = buylist
response.redirect "check.asp"
%>
