<%
dim subject,xm1,xm2,xm3,xm4,xm5
set rs=server.createobject("adodb.recordset")
rs.open "select * from vote",conn,1,1
subject=rs("subject")
xm1=rs("xm1")
xm2=rs("xm2")
xm3=rs("xm3")
xm4=rs("xm4")
xm5=rs("xm5")
rs.close
set rs=nothing
if request("act")="save" then
set rsv=server.createobject("adodb.recordset")
rsv.open "select * from vote",conn,1,3
vote=split(rsv("vote"),",")
if request.form("xm1")="" then
vote(0)=vote(0)
elseif request.form("xm1")="1" then
vote(0)=vote(0)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm2")="" then
vote(1)=vote(1)
elseif request.form("xm2")="1" then
vote(1)=vote(1)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm3")="" then
vote(2)=vote(2)
elseif request.form("xm3")="1" then
vote(2)=vote(2)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm4")="" then
vote(3)=vote(3)
elseif request.form("xm4")="1" then
vote(3)=vote(3)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm5")="" then
vote(4)=vote(4)
elseif request.form("xm5")="1" then
vote(4)=vote(4)+1
rsv("all")=rsv("all")+1
end if
rsv("vote")=vote(0)&","&vote(1)&","&vote(2)&","&vote(3)&","&vote(4)&","
rsv.update
rsv.close
set rsv=nothing
response.redirect "view.asp"
end if
%>
