Gracias por la ayuda pero lo que pasa o no se que estoy haciendo mal no actualiza la base de datos, ya corregi lo que me dices pero que es .......
<%
dim sql,con,rs,color,valor,dato,val
set con = server.createObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("alumnos.mdb")
set rs = server.CreateObject("ADODB.Recordset")
val=Request.Form("txtcuenta")
voto = Request.Form("mismo")
if(voto = 1) then
sql= "UPDATE alumnos set Pregunta1='1' Where Ncuenta = '"&val&"'"
con.Execute(sql)
elseif (voto = 2) then
sql= "UPDATE alumnos set Pregunta1='2' Where Ncuenta = '"&val&"'"
con.Execute(sql)
elseif (voto = 3) then
sql="UPDATE alumnos set Pregunta1='3' Where Ncuenta= '"&val&"'"
con.Execute(sql)
elseif(voto = 4) then
sql="UPDATE alumnos set Pregunta1='4' Where Ncuenta= '"&val&"'"
con.Execute(sql)
end if
%>