Tanto el método de Shiryu (

) como el de daniel00 son válidos:
Código:
Tabla.Open Temp, Conexion
If Err=0 then%>
<table><tr><th>Vendedor</th><th>Precio</th></tr>
<% 'Inicializamos el totalizador, para evitar conflictos con basura
Totales= 0
while Tabla.EOF=False
%>
<%=Tabla.Fields("vendedor")%> <%=Tabla.Fields("precio")%>
<%
' Evitamos valores nulos
if isNumeric(Tabla.Fields("precio")) then Totales = Totales + Tabla.Fields("precio")
Tabla.MoveNext
wend
%>
Totales<th><%=Totales%></th>
<% else
'Mostramos el error y la consulta para diagnostico
Response.Write "Pequeño Error: SQL="& Temp & "<br/>Error: <br/>" & Err
end if%>
Un saludo