<% http = Request.ServerVariables("http_Referer") function getnum() Randomize() getnum = fix(Rnd()*10 +1 ) end function qty = rTake("qty") pid = rTake("pid") if qty = "" then Response.Write " " elseif pid = "" then Response.Write " " else if request.cookies("vacount") = "" then user_num = Year(now())&month(now())&day(now())&getnum() response.cookies("user_num") = user_num else hacount = request.cookies("vacount") end if SQLcmd = "insert into buy_temp1(pid,qty,user_num,hacount) values('" & pid & "','" & qty & "','" & user_num & "','" & hacount & "')" conn.Execute(SQLcmd) conn.Close Response.Write " " end if %>