Help
Posted 20 November 2007 - 04:00 PM
A rotna abaixa esta funcionanado lega, mas eu gostaria de adicionar no rodapé da tabela a soma da coluna Média e a quantidade de registros mostrados. Mas não sei como recuperar esses dados.
<html>
<%@LANGUAGE="VBSCRIPT"%>
<head>
<title>Banco de Dados Siegep</title>
</head>
<body bgcolor="#FFFFCC">
<%vempresa = Request.Form("frmempresa")
vsemana = Request.Form("frmsemana")
vmes = Request.Form("frmmes")
vano = Request.Form("frmano")
Set CX = Server.CreateObject("ADODB.Connection")
CX.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("CestaBasica")
consulta = " SELECT coleta.Codigoe, coleta.Codigop, Empresa.nomee, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, coleta.Semana, Min(coleta.Precop) AS Minimo, Max(coleta.Precop) AS Maximo, avg(Coleta.Precop) AS Media, Round(([Quanti]*[Media]),3) As CMedio
FROM Ano AS Ano_1, Produto INNER JOIN (Meses INNER JOIN (Empresa INNER JOIN Coleta ON Empresa.Codigoe = Coleta.Codigoe) ON Meses.codigomes = coleta.Mes) ON Produto.CODIGOP = coleta.Codigop
GROUP BY coleta.Codigoe, coleta.Codigop, Empresa.nomee, Meses.Nmes, Produto.Tipop, Produto.Descri, Produto.Quanti, coleta.Ano, coleta.Mes, coleta.Semana
HAVING coleta.Codigoe Like '%" & vempresa & "%' AND coleta.Ano Like '%" & vano & "%' AND coleta.Mes Like '%" & vmes & "%' AND coleta.Semana Like '%" & vsemana & "%' AND Produto.Quanti > 0 order by Produto.Tipop, Produto.Descri "
%><%
Set RS = CX.Execute(consulta)
IF RS.EOF AND RS.BOF THEN
%>
<h1>Não há dados que satisfaçam sua Consulta!</h1>
<%else%>
Empresa: <fontsize="2"><%=RS.Fields("nomee")%></font>
Semana: <fontsize="2"><%=vsemana%></font>
Mes: <fontsize="2"><%=RS.Fields("Nmes")%></font>
Ano: <fontsize="2"><%=RS.Fields("Ano")%></font>
<table border="1" cellpadding="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<TD width="30%"><b><font size="3" color="#FF0000">Setor:</font></b> </TD>
<TD width="30%"><b><font size="3" color="#FF0000">Produto:</font></b> </TD>
<TD width="10%"><b><font size="3" color="#FF0000">Mínimo:</font></b></TD>
<TD width="10%"><b><font size="3" color="#FF0000">Máximo:</font></b></TD>
<TD width="10%"><b><font size="3" color="#FF0000">Média:</font></b></TD>
<TD width="10%"><b><font size="3" color="#FF0000">C. Medio:</font></b></TD>
</tr>
</table>
<% RS.MoveFirst
Do While not RS.Eof
%>
<table border="1" cellpadding="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<TD width="30%"><fontsize="2"><%=RS.Fields("Tipop")%></font> </TD>
<TD width="30%"> <fontsize="2"><%=RS.Fields("Descri")%></font> </TD>
<TD width="10%"><fontsize="2"><%=RS.Fields("Minimo")%></font> </TD>
<TD width="10%"><fontsize="2"><%=RS.Fields("Maximo")%></font> </TD>
<TD width="10%"> <fontsize="2"><%=RS.Fields("Media")%></font> </TD>
<TD width="10%"> <fontsize="2"><%=RS.Fields("CMedio")%></font> </TD>
</tr>
</table>
<%RS.MoveNext
Loop%><%end if%>
</body>
</html>
Publicidade
|
|
Page 1 of 1
Preciso de Ajuda para fazer calculos com ASP como tototalizar os valores de uma coluna
Share this topic:
Page 1 of 1
Similar Topics
| Topic | Forum | Started By | Stats | Last Post Info | |
|---|---|---|---|---|---|
|
Google leva busca por voz a computadores pessoais
|
Notícias |
Notícias 
|
|
|
|
|
Problemas com RSS
|
Flash & ActionScript |
Grunch
|
|
|
|
|
div ff X ie como faço?
consigo identificar o brownser |
Web Standards |
ricardoagora
|
|
|
|
|
AOL traz páginas da web para celulares
IDG Now! - Telecom |
Notícias |
TiTi Celestino
|
|
|
|
|
Banner em formato oval
Como eu faço? |
Fireworks |
Raquel CBN
|
|
|
|
|
Recomendação de ártigos
alguém pode me dar um help? |
Dreamweaver |
Heitor_OF_MG
|
|
|
|
|
Redback sai caro mas é estratégica para Ericsson, vêem analistas
|
Notícias |
Notícias
|
|
|
|
|
Oracle compra a Sun Microsystems por US$ 7,4 bilhões
|
Notícias |
Notícias
|
|
Publicidade
|
|