Operaciones matematicas

[Biopepe]

Aupa:

Una pregunta sencillita. Tengo este código pero me da HTTP 500 - Error interno del servidor. La variable nota viene de un formulario con stats.asp?nota=X :

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/db/datos.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
archivo=Session("registro")
sqlstr = "select media,votos,suma from datos where nombre_fich='"&archivo&"'"
set rs=conn.execute(sqlstr)
media=rs("media")
votos=rs("votos")
suma=rs("suma")
valor=Request.QueryString("nota")
nota=Cint(valor)
if nota="1" then
suma=CInt(suma)+Cint(nota)
votos=Cint(votos)+1
media=Ccur(suma)/Ccur(votos)
end if
if nota="2" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="3" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="4" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="5" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="6"then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="7" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="8" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="9" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
if nota="10" then
suma=suma+nota
votos=votos+1
media=suma/votos
end if
sqlstr="update datos set media='"&media&"',votos='"&votos&"',suma='"&suma&" ' where id='"&session("id")&"'"
set rs=conn.execute(sqlstr)
Response.Redirect("estadisticas.asp?nota")
rs.close
conn.close
Set rs = nothing
Set conn = nothing
%>

Si alguien sabe donde esta el fallo que me ayude.
Gracias