Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/02/2006, 12:00
Avatar de JJF
JJF
 
Fecha de Ingreso: mayo-2005
Mensajes: 205
Antigüedad: 20 años
Puntos: 0
Sonrisa como sumar y promediar celdas?

Hola, estoy en un lío. En la tabla donde levanto de la db de acces, necesito realizar dos funciones:
1: que un code me saque un promedio de las celdas "asis"
2: que un code me sume las celdas "of."

alguien me puede decir el cómo?
Por las dudas aclaro que para el while incluyo un archivo externo.


<%@ Language=VBScript %>

<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("db/CELULASVDF.mdb")
%>
<% ssql = "Select * from CELULAJOVEN"

Set RS=Conn.Execute(ssql) %>
<html>

<head>

<title></title>
</head>
<!--#include file="SCRIPX10/scripx10-cab.txt"-->
<body link="#00FF00" vlink="#FFFF00">

<p align="center">&nbsp;<b><font face="Verdana" size="3"><u>INFORME RED
DE JÓVENES</u></font></b>&nbsp;</p>
<table border="0" width="100%" cellspacing="1" bordercolorlight="#336699" bordercolordark="#336699" bordercolor="#14274E">
<tr>
<td width="27%" align="center"><b><font size="1" face="Arial">LIDER</font></b></td>
<td width="8%" align="center"><b><font size="1" face="Arial">GENERACIÓN</font></b></td>
<td width="8%" align="center"><b><font size="1" face="Arial">DÍA
</font></b></td>
<td width="6%" align="center"><b><font size="1" face="Arial">Nº&nbsp;
CÉLULA</font></b></td>
<td width="9%" align="center" colspan="2"><b><font size="1" face="Arial">SEMANA
1</font></b></td>
<td width="8%" align="center" colspan="2"><b><font size="1" face="Arial">SEMANA
2</font></b></td>
<td width="8%" align="center" colspan="2"><b><font face="Arial"><font size="1">SEMANA
</font><font size="1">3</font></font></b></td>
<td width="8%" align="center" colspan="2"><b><font face="Arial"><font size="1">SEMANA
</font><font size="1">4</font></font></b></td>
<td width="3%" align="center" colspan="2"><b><font face="Arial"><font size="1">SEMANA
</font><font size="1">5</font></font></b></td>
<td width="11%" align="center"><b><font size="1" face="Arial">PROMEDIO</font></b></td>
<td width="11%" align="center"><b><font size="1" face="Arial">TOTAL</font></b></td>
</tr>
<tr>
<td width="27%" align="center">&nbsp;</td>
<td width="8%" align="center">&nbsp;</td>
<td width="8%" align="center">&nbsp;</td>
<td width="8%" align="center">&nbsp;</td>
<td width="3%" align="center"><b><font size="1" face="Arial">ASIS</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">OF</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">ASIS.</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">OF.</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">ASIS.</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">OF.</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">ASIS.</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">OF.</font></b></td>
<td width="3%" align="center"><b><font size="1" face="Arial">ASIS.</font></b></td>
<td width="4%" align="center"><b><font size="1" face="Arial">OF.</font></b></td>
<td width="9%" align="center"><font face="Arial" size="1"><b>ASISTENCIA</b></font></td>
<td width="9%" align="center"><font face="Arial" size="1"><b>OFRENDA</b></font></td>
</tr>

<% While ((Repeat1__numRows <> 0) AND (NOT RS.EOF))%>
<tr>

<td width="27%" align="left"><font size="2" face="Arial"><b><%=RS("ENCARGADO")%></b></font></td>
<td width="8%" align="center"><font size="1" face="Arial"><%=RS("NUMCELULA")%></font></td>
<td width="8%" align="center"><font size="1" face="Arial"><%=RS("DIACELULA")%></font></td>
<td width="8%" align="center"><font size="1" face="Arial"><%=RS("NUMCELULA")%></font></td>

<td width="3%" align="center"><font size="1" face="Arial"><%=RS("DIA1")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial">$&nbsp;<%=RS("OFRE1")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial"><%=RS("DIA2")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial">$&nbsp;<%=RS("OFRE2")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial"><%=RS("DIA3")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial">$&nbsp;<%=RS("OFRE3")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial"><%=RS("DIA4")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial">$&nbsp;<%=RS("OFRE4")%></font></td>
<td width="3%" align="center"><font size="1" face="Arial"><%=RS("DIA5")%></font></td>
<td width="4%" align="center"><font size="1" face="Arial">$&nbsp;<%=RS("OFRE5")%></font></td>
<td width="9%" align="center">&nbsp;</td>
<td width="9%" align="center">
<p align="left"><font face="Arial" size="1">$</font></p>

</td>

</tr>
<%Repeat1__index = Repeat1__index + 1
Repeat1__numRows = Repeat1__numRows - 1
RS.MoveNext
Wend%>
</table>

</body>

</html>