Total de uma Tabela

[TeixeiraRamos 4]

Tenho uma Tabela com o seguinte código:

 

SQL

'crio o rs2
	 set rs2=Server.CreateObject("ADODB.Recordset")
	 
	 'crio o SQL2
	  SQL2="SELECT tb_repetidoras.nome_cidade, Count(tb_repetidoras.nome_cidade) AS conta_nome FROM tb_repetidoras GROUP BY tb_repetidoras.nome_cidade ORDER BY Count(tb_repetidoras.nome_cidade) DESC"
      rs2.open SQL2,conexao,1,3

Tabela

 

<tbody>
<tr> 
	<th class="th-coluna-um-titulo-sql2"><b>Cidades</b></th>
	<th class="th-coluna-dois-titulo-sql2"><b>Total</b></th>
</tr>

<%while not rs2.eof%>
<tr> 
	<td class="td-coluna-um-registro-sql2"><b><%=rs2("nome_cidade")%></b></td>
	<td class="td-coluna-dois-registro-sql2"><b><%=rs2("conta_nome")%></b></td>
</tr>
<% rs2.movenext
   wend
   Set rs=nothing
   Set conexao=nothing
%>

</tbody>
</table>

Gostaria que no final da tabela tivesse um "Total:".

Diante disso, crei QSL somando o campo "conta-cidade". Poderia criar outro Recordset com outra string SQL, mas como colocar isso no final da tabela?

Agora ao abrir a página aparece a Tabela com os 16 registros apenas mas falta o "Total;"

[William Bruno 1501]

Cara, não era mais fácil fazer uma variavel para acumular os valores?

 

some nela, e depois exiba no final da tabela:

<%while not rs2.eof%>
<tr> 
   <td class="td-coluna-um-registro-sql2"><b><%=rs2("nome_cidade")%></b></td>
   <td class="td-coluna-dois-registro-sql2"><b><%=rs2("conta_nome")%></b></td>
</tr>
<% rs2.movenext
wend
Set rs=nothing
Set conexao=nothing
%>
<tr>
   <td>Total: </td>
   <td><% Response.Write total %></td>
</tr>
</tbody>

?

 

Não tem HTML/CSS na tua dúvida.

 

Tópico Movido:

Webstandards: CSS / XML / XHTML / HTML http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

[zeke_ 2]

<%

total = 1

while not rs2.eof%>

.......

<%

total = total + 1

 

rs2.movenext

wend

%>

response.write(total)

 

[xanburzum 169]

dependendo da situacaun melhor usar um contatdor normal ou a clausula count do SQL, pois se o seu bd for muito grande o recordcount do objeto recordset para apresentar queda de desempenho

e para usar o RecordCount , seu cursortype tem k ser recordset.CursorType = 3 (AdOpenDynamic)

 

exemplo:

<%
DIM mySQL, objRS
mySQL = "SELECT * FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

' Count how many records exist
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF
iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop

' Display result
Response.Write "(" & iRecordCount & ")"

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%> 

SQL COUNT

 

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT Count(*) AS intTotal FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open recSQL, objConn

' Display result
Response.Write objRS("intTotal")

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%>