contador de emails lidos

[lezão 0]

Ola galera estou precisando de um auxilio;

 

tenho um codigo q conta qnts tem na tabela eu gostaria de um q conta-se apenas os email lidos é possivel isso

 

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../../dados/dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela usuarios
strQuery = "SELECT Count(*) as totalCaixaPostal FROM caixapostal"
Set ObjRs = objConn.Execute(strQuery)
%>

<%response.write ObjRs("totalCaixaPostal")%> 

 <%
 'Move para o próximo registro
 objRS.MoveNext
 Wend
 'Fechando as conexões
 objRs.close
 objConn.close
 Set objRs = Nothing
 Set objConn = Nothing
 %>

 

Tipo assim:

 

tenho um campo no banco se chama lida, entaun faço um insert into com uma imagem depois qnd o usuario entra pra ler o email automaticamente ele faz um update e aparece teria como contar qntas vezes tem no campo .

 

è possivel isso ?

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

[lezão 0]

eu fiz assim e esta dando o seguinte erro

 

<!--#include file="../conexao.asp" -->


<% 
DIM SQL, objRS 
SQL = "SELECT * FROM Caixapostal"  
Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.Open SQL, 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 
%> 

 

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/public_html/websowzza/admin/Email/contador.asp, line 8 

[xanburzum 169]

Isso é muitas vezes porque você usou nomes reservados, "amigável" para os valores (como adLockReadOnly), em vez das constantes inteiras (que são os únicos valores compreendidos pelo motor), sem incluir ADOVBS.INC. Então, uma solução rápida muitas vezes pode ser ter certeza que você incluiu ADOVBS.INC.

[lezão 0]

Xaun naun existe um codigo q conta qnts palavra tem no campo?

 

 

Tipo assim!

 

uma palavra no meu caso ( naunlida.png )

 

conta qnts vezes tem esta palavra no campo