我想输出10条记录，需要总结这10条记录里有几个奇数 几个偶数，我用的方法是：
    dim db 
    set db=Server.Createobject("ADODB.Connection") 
    db.Open "DBQ="&Server.Mappath("../data.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" 
    Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from shuju where id>0 and id<11"
rs.open sql,db,1,1
do while not rs.eof
bw=rs("baiwei")
sw=rs("shiwei")
gw=rs("gewei")
    dim jishu
jishu=0
if bw=1 or bw=3 or bw=5 or bw=7 or bw=9 then
jishu=jishu+1
end if


或者这样：
    <%
    dim conn 
    set conn=Server.Createobject("ADODB.Connection") 
    conn.Open "DBQ="&Server.Mappath("../data.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" 
    Set rs_conn=Server.CreateObject("ADODB.Recordset")
    sql_conn="select * from shuju where id>0 and id<11 and baiwei=1 or baiwei=3 or baiwei=5 or baiwei=7 or baiwei=9"
    rs_conn.open sql_conn,conn,1,1
    response.Write rs.recordCount
    %>
    
都不能得到我想要的，请问高手兄弟该怎么解决？


问题二 关于连线图，谁有一些建议或者案例可以让小弟参考一下！ 感激不尽
       如果有投票类的程序可以借鉴一下吗？