怎么运行时总提示：错误在红色的地方，那位高手帮我改改！谢谢！最好能讲出错误的原因！
<%
set rsvote = Server.CreateObject("ADODB.Recordset")
rsvote.ActiveConnection = MM_vote_STRING
rsvote.Source = "SELECT Asp, Jsp, Cfml FROM vote1"
rsvote.CursorType = 0
rsvote.CursorLocation = 2
rsvote.LockType = 3
rsvote.addnew
rsvote.fields.item("Asp").value = 0
rsvote.fields.item("Jsp").value = 0
rsvote.fields.item("Cfml").value = 0
rsvote.update
%>
<%select case vote
case aspisgood rsvote.fields.item("Asp").value=rsvote.fields.item("Asp").value+1 rsvote.update
case jspisgood rsvote.fields.item("Jsp").value=rsvote.fields.item("Jsp").value+1 rsvote.update
case cfmlisgood rsvote.fields.item("Cfml").value=rsvote.fields.item("Cfml").value+1 rsbote.update
case else rsponse.redirect "showresult.asp"
end select
response.redirect "showresult.asp"
%>