我做的小投票的代码和问题

[feike0o]

access 数据库 vote{vote表（编号，name,result）}
文件：
vote.asp 投票界面
process.asp 添加数值
result.asp 显示结果

代码：
1：vote.asp

<%
dim vname()
vnumber=0
Application.Lock
set dbConn=Server.CreateObject("ADODB.Connection")
dbConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("vote.mdb")
CommandText="Select * From vote"
set dbRS=dbConn.Execute(CommandText)
Do While Not dbRS.EOF
vnumber=vnumber+1
dbRS.MoveNext
Loop
redim vname(vnumber)
dbRS.MoveFirst
for i=0 to vnumber-1
vname(i)=dbRS("name")
dbRS.MoveNext
Next
dbRS.Close
dbConn.Close
Application.Unlock
%>
<center>请投票</center>
<form actiojn="process.asp"method="post">
<%for i=0 to vnumber-1%>
<input type="radio"name="voteresult"value=<%=i+1%>><%=vname(i)%><br>
<%Next%>
<hr><hr>
<input type="submit"value="OK"><input type="reset"value="重选">
</form>




2process.asp
<%
user_vote=request.form("voteresult")
Application.Lock
set dbConn=Server.CreateObject("ADODB.Connection")
dbConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("vote.mdb")
CommandText="UpDate vote Set result=result+1 Where 编号=" & CLng(user_vote)
dbConn.Execute(CommandText)
dbConn.Close
Application.Unlock
response.redirect("result.asp")
%>



3result.asp

<%
dim barname(3),barvalue(3)
Application.Lock
set dbConn=Server.CreateObject("ADODB.Connection")
dbConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("vote.mdb")
CommandText="Select * from vote"
set dbRS=dbConn.Execute(CommandText)
for i=0 to 5
barname(i)=dbRS("name")
barvalue(i)=dbRS("result")
dbRS.MoveNext
Next
dbRS.Close
dbConn.Close
Application.Unlock
%>


问题是vote.asp正常
但是添加出现问题，也没有办法显示

[caoshangfei]

你的编号是怎么字段的啊？

[feike0o]

还有，我放到我同学的机子上调试
process.asp可以通过
现在只剩下result.asp不行
把5改成2也是一样

[feike0o]

数据库具体的格式
编号 数字
name 文本
result 数字

[caoshangfei]

<form actiojn="process.asp"method="post">action 写错了。

[feike0o]

改了，可是还是不行

process.asp
和result.asp应该有问题

CLng(user_vote)

这个我有疑问