<% if instr(request.servervariables("HTTP_REFERER"),"org")=0 then response.end Randomize() if rnd()>0.9 then 'connstr="DBQ="+server.mappath("/dbs/cnsjprduct040404.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn_phone=server.createobject("ADODB.CONNECTION") connstr="DBQ="+server.mappath("/dbs/web_jsj.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" conn_phone.open connstr id=trim(request("id")) set rs=server.createobject("adodb.recordset") sql="select id,hits from product where id=" & id rs.open sql,conn_phone,1,3 if not rs.eof then 'rs("hits")=rs("hits")+1 rs("hits")=rs("hits")+int(rnd*21) else rs.addnew rs("id")=id rs("hits")=int(rnd*21) end if rs.update rs.close set rs=nothing end if '0.9 response.end %>