Jump to content


Photo

Mensagem Conforme A Quantidade


  • Faça o login para participar
1 reply to this topic

#1 maxcs

maxcs

    Turista

  • Usuários
  • 57 posts
  • Sexo:Não informado

Posted 28/10/2004, 22:19

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

#2 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

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+
> 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)!




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq