<%
dim db:db="../../include/database/#o2olifemenhu.mdb"
dim connStr:connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
dim newsid : newsid = request.querystring("newsid")
set rs=server.createobject("adodb.recordset")
dim userid:userid=request.cookies("anxinMall_user")("c_userid")
dim prodcount
if userid<>"" then
rs.open "Select count(*) as count1 from [anxinMall_gouwuche] where buyerid="&userid,conn,1,3
	prodcount=rs("count1")
rs.close
Set rs=Nothing
else
	prodcount=0
end if
%>
document.writeln("<font color=red><b><%=prodcount%></b></font>");