这段投票的代码什么地方有问题呀？
<%@LANGUAGE="VBSCRIPT"%>

<%
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.Open()
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("Asp")=rsvote("Asp")+1 rsvote.update
case aspisgood rsvote("Asp")=rsvote("Asp")+1 rsvote.update
case jspisgood rsvote("Jsp")=rsvote("Jsp")+1 rsvote.update
case cfmlisgood rsvote("Cfml")=rsvote("Cfml")+1 rsbote.update
case else rsponse.redirect "showresult.asp"
end select
response.redirect "showresult.asp"
%>
提示红色地方有错误！(是不是该将rsvote("Asp")改为rsvote.fields.item("Asp").value )
而改为
<%
dim myvote
myvote = request.form("vote")
if (myvote = "aspisgood") then rsvote.fields.item("asp").value = rsvote.fields.item("asp").value + 1
elseif(myvote = "jspisgood") then rsvote.fields.item("jsp").value = rsvote.fields.item("jsp").value + 1
elseif(myvote = "cfmlisgood") then rsvote.fields.item("cfml").value = rsvote.fields.item("cfml").value + 1
else
response.redirect("showresult.asp")
rsvote.update
response.redirect("showresult.asp")
end if
end if
end if
%>
提示为else if错误！？怎么办呢？