0 then
select case request(i)
case "A"
sql="update title set nA=nA+1 where id="&i
conn.execute sql
case "B"
sql="update title set nB=nB+1 where id="&i
conn.execute sql
case "C"
sql="update title set nC=nC+1 where id="&i
conn.execute sql
case "D"
sql="update title set nD=nD+1 where id="&i
conn.execute sql
case ""
%>