Pessoal estou montando um sistema onde o usuario podera postar mensagens
com um limite de 5 mensagens por pessoa...
Estou usando +/- o codigo abaixo, que é um codigo de busca....
<%
strSearch = Request.Form("usuario")
If strSearch <> "" Then
Dim strConnect, SQL
Dim RS
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"
SQL = "SELECT * FROM membros WHERE exibir= 's' and INSTR(membros.usuario,'" & strSearch & "') "
Set RS = Server.CreateObject("Adodb.Recordset")
RS.Open SQL,strConnect
if rs.eof or rs.bof then
Response.write "Voce ainda pode postar mensagen <a href=mensagem.asp>Clique aqui</a>"
else
do while not rs.eof
Response.Write "Desculpe você ja postou o limite maximo de mensagens."
rs.movenext
loop
end if
RS.Close
End If
%>
Numa pagina anterior o usuraio digita o nome dele e o codigo acima busca em um Banco de Dados o usuario...... queria modifica-lo para que conta-se quantas vezes o usuario aparece no banco, sendo mais de 5 vezes, mostrara "Desculpe você ja postou o limite maximo de mensagens."
Agradeço a quem puder me ajudar e aceito outro codigo que tenha o mesmo principio.
Mensagem Conforme A Quantidade
Started By maxcs, 28/10/2004, 22:19
1 reply to this topic
#1
Posted 28/10/2004, 22:19
Eletrohoo Brasil
Seu site de eletrônica com coteúdo 100% gratuito.
Projetos
Downloads
Componentes
Tutorias
Busca externa
E em breve um Fórum completo...
Visite: www.eletrohoo.com.br
Seu site de eletrônica com coteúdo 100% gratuito.
Projetos
Downloads
Componentes
Tutorias
Busca externa
E em breve um Fórum completo...
Visite: www.eletrohoo.com.br
#2
Posted 29/10/2004, 01:54
If rs("nome_do_campo") > 5 Then
'aqui vem a msg de limite esgotado
Else
'aqui o code dizendo q elel aidna pode postar
EndIf
o nome do campo seria o campo q vc grava o número de vezes q o cara postou..
belê? t+
'aqui vem a msg de limite esgotado
Else
'aqui o code dizendo q elel aidna pode postar
EndIf
o nome do campo seria o campo q vc grava o número de vezes q o cara postou..
belê? t+
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)