Contar Registros

[Boris 0]

Boa tarde Galera,

 

Tenho uma variavel cont que armazena a quantidade de registros.

 

Porem estou tentando colocar essa variavel antes da lista.

 

Só que aparece a variavel e a lista não.

 

E não dá nenhum erro

 

 

segue logo abaixo o codigo

<%	
	if not rs.eof then
cont=0
	while not RS.EOF
	cont=cont+1
RS.MoveNext
Wend
end if
Response.Write(cont)

		
while not RS.EOF

%>
		  <table width="473" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="4%" height="19" valign="middle" class="style10"> </td>
    <td width="60%" height="23" valign="middle" class="legenda"><%Response.write RS("nome")%></td>
    <td width="36%" valign="middle" class="legenda"><%Response.write RS("cpf")%></td>
  </tr>
  <tr>
    <td height="1" colspan="3" bgcolor="#CCCCCC" class="style10"></td>
    </tr>
</table>

  <div align="left">
    <%
RS.MoveNext
Wend
%>

 

Estou fazendo besteira em algum lugar que não sei bem a onde.

 

Alguem pode me ajudar.

[desisto 0]

gera erro?

 

posta o select

[xanburzum 169]

ocê pode fazer assim, tb

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
%> 
 

[Mário Monteiro 179]

o que ocorreu foi que usou um laço para contar e depois não voltou para o primeiro registro

 

por isso não listou nada