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

[ToKaTa]

¿Te da correcto hacer un response.write de sqlstr?


Otra cosa es que yo pondria el:

Response.Redirect "estadisticas.asp?nota"

al final del todo del script:


...
....
rs.close
conn.close
Set rs = nothing
Set conn = nothing

Response.Redirect "estadisticas.asp?nota"

%>

UNa cosa, para que le pasas a "estadisticas.asp" una variable sin valor?



ToKaTa.




P.D: Por cierto, no te saldria mas rentable hacer algo cmo esto?

if ((nota >= "2") and (nota<="10")) then
suma=suma+nota
votos=votos+1
media=suma/votos
end if

[Biopepe]

Gracias por contestar.

Tenia problemas con las variables.He cambiado varias cosas.

Viene mucho mejor la idea que me has dicho.

Gracias por la ayuda