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 | |
|---|---|---|---|---|---|
|
Dono do Facebook classifica filme sobre o site como "bastante divertido"
|
Notícias |
Notícias 
|
|
|
|
|
Conclusão de processo envolvendo Intel e AMD é adiada para 2010
|
Notícias |
Notícias
|
|
|
|
|
como é feito isso....
|
Flash & ActionScript |
Dark Neo
|
|
|
|
Netgames.com.br
Site de lan house |
Avaliação |
ms turismo
|
|
|
|
|
Nossos testes com o iPhone 3G, BlackBerry Storm, a T-Mobile G1, a AT & T Fuze, Palm Treo Pro, e HP iPAQ 910c
|
Notícias - Plataforma Windows |
xanburzum
|
|
|
|
|
Coldfusion com Iframe
|
ColdFusion |
alexmaia
|
|
|
|
|
socorro - problema com quicktime?!?
problema em executar sem quicktime |
Director |
sinusbob
|
|
|
|
|
duvidas de flash
banner com imagens e um menu |
Flash & ActionScript |
carlfort
|
|
Publicidade
|
|