Calculo promedio

[Cony28]

quiero calcular el promedio de los alumnos, para eso tengo la tabla2 con los siguientes campos, RUT,NOMBRE,NOTA y el siguiente codigo:

<%
Dim dbBase,strSQL1,objRS1
Set dbBase=Server.CreateObject("ADODB.Connection")
dbBase.Open("prueba")
strSQL1 = "SELECT Rut, Nombre, Nota FROM tabla2"
Set objRS1 = dbBase.Execute(strSQL1)

%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD>&nbsp;Nombre</TD><TD>&nbsp;Apellidos&nbsp;</TD><TD>&nbsp;Nota&nbsp;</TD></TR>
<%

while (not objRS1.Eof)
Response.Write("<tr><td>&nbsp;" & objRS1("Rut") & "</td><td>&nbsp;" & objRS1("Nombre") & "&nbsp;</td><td>&nbsp;" & objRS1("Nota") & "&nbsp;</td></tr>")
objRS1.MoveNext
wend

dbBase.Close
set objRS1 = nothing
set dbBase = nothing

%>
El cual me muestra en pantalla el listado de rut, nombre, nota, pero a esa nota yo quiero calcularle el promedio y luego lanzarla en pantalla, ¿como se calcula con un select o una funcion?
Si alguien me puede ayudar...Gracias.

[Myakire]

reo que no hay una función en VbScript que obtenga el promedio, pero en sql-server si:

SELECT AVG(campo1), SUM(campo2)
FROM TuTabla
WHERE type = 'algo'

Ahora, tambien puedes hacer un ciclo extra que sume y divida, es decir, lo clásico.

Saludos

[Cony28]

Me lo puedes mostrar en un ejemplo...es que no soy experta,gracias...

[Myakire]

Precisamente te puse un ejemplo en el post de arriba:

SELECT AVG(campo1), SUM(campo2)
FROM TuTabla
WHERE type = 'algo'

¿tienes sql-server como base de datos o cuál manejas?

[Cony28]

Lo estoy haciendo en acces(no tengo SQL SERVER),o si puedes ponme el ciclo, sumar y dividir...
Gracias

[Myakire]

Dependiendo del idioma de tu access, tambien existe AVG o PROM en dicha BD's.

Lo de sumar y dividir, es algo como:

cnt=0
suma=0
while (not objRS1.Eof)
cnt = cnt + 1
suma = suma + nota
objRS1.MoveNext
wend
promedio = suma / cnt


Tambien puedes evitartelo con SUM y un COUNT en un select.