Ola meus amigos ... tipo estou com uma baita duvida ( tipo não sei ) como fazer duas rotinas ... uma é tenho um campo e queria exibir com separdor de milhar tipo 1.000 16.000 entre outros...
A outra rotina era calcular a porcentagem de um com .. tipo tenho um tota e tenho os setores que queria calcular a porcentagem de cada setor ...
segue o codigo.
<%
Option Explicit
%>
<!--#Include file="conexao2.inc"-->
<%
DIM conexaodb, rsCRJJ04, strSQL, totalCat
DIM rsRec, strRec, Rec
DIM rsTotal, strTotal, Total
Call abreConexao
strSQL = " Select Ramal.grupo, COUNT (Ramal.grupo) AS totalCat "
strSQL = strSQL & " From CRJJ04 , Ramal "
strSQL = strSql & " WHERE CRJJ04.Origem=Ramal.Ramal "
Pergunta
shelter
Ola meus amigos ... tipo estou com uma baita duvida ( tipo não sei ) como fazer duas rotinas ... uma é tenho um campo e queria exibir com separdor de milhar tipo 1.000 16.000 entre outros...
A outra rotina era calcular a porcentagem de um com .. tipo tenho um tota e tenho os setores que queria calcular a porcentagem de cada setor ...
segue o codigo.
<%
Option Explicit
%>
<!--#Include file="conexao2.inc"-->
<%
DIM conexaodb, rsCRJJ04, strSQL, totalCat
DIM rsRec, strRec, Rec
DIM rsTotal, strTotal, Total
Call abreConexao
strSQL = " Select Ramal.grupo, COUNT (Ramal.grupo) AS totalCat "
strSQL = strSQL & " From CRJJ04 , Ramal "
strSQL = strSql & " WHERE CRJJ04.Origem=Ramal.Ramal "
strSQL = strSql & " And tipo = 0 "
strSQL = strSQL & " GROUP BY Ramal.Grupo "
strSQL = strSQL & " ORDER BY 1 Asc "
Set rsCRJJ04 = conexaodb.Execute(strSQL)
strTotal = " SELECT Count ( tipo ) AS Total "
strTotal = strTotal & " from CRJJ04 "
strTotal = strTotal & " where tipo = 0; "
Set rsTotal = conexaodb.Execute(strTotal)
%>
<html>
<head>
<title>Grupo</title>
</head>
<body>
<h1 align="center"> </h1>
<h1 align="center"> </h1>
<h1 align="center"><font color="#000000" size="2" Font-size="8pt"><span style="font-weight: 400"><u>Total Efetuadas:</u></span></font><span style="font-weight: 400"><font color="#000000" size="2" face= "arial" Font-size="8pt">
<% = rsTotal("Total") %>
</font>
</span>
</h1>
<table width="208" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#999999">
<%
Do While Not RsCRJJ04.EOF
%><font color="#FF0000"> </font>
<tr>
<td width="153" bordercolor="#999999" bgcolor="#FFFFFF"><div align="left"></div>
<div align="right"><font size="2" Color="000000" face="tahoma">
<% = RsCRJJ04.Fields("Grupo") %></font><font size="2" Color="#FF0000" face="tahoma">
</font></div></td>
<td width="80" bordercolor="#999999" bgcolor="#FFFFFF"><div align="right"><font size="2" color= "000000" face="tahoma">
<% = RsCRJJ04("totalCat") %></font><font size="2" color= "#FF0000" face="tahoma">
</font><b></div></td>
</tr>
<%
RsCRJJ04.MoveNext
Loop
RsCRJJ04.close
Call fechaconexao
Set RsCRJJ04 = nothing
%><font color="#FF0000"> </font>
</table>
</body>
</html>
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.