maxcs

TENHO O CODIGO DE BUSCA ABAIXO:

//////////////////////////////////////////////////////////////////
<%
strpwd = Request.QueryString("pwd")
strpwd = Request.Form("pwd")
strstatus = Request.Form("status")
If strpwd <> "" Then
Dim strConnect, SQL
Dim RS
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"
SQL = "SELECT * FROM teste WHERE exibir= 'S' and INSTR(teste.senha,'" & strpwd & "') "
Set RS = Server.CreateObject("Adodb.Recordset")
RS.Open SQL,strConnect
if rs.eof or rs.bof then

Response.write "NENHUM RESULTADO ENCONTRADO"

else
do while not rs.eof

Response.Write "UM OU DOIS RESULTADOS ENCONTRADOS"

rs.movenext
loop
end if
RS.Close
End If
%>
/////////////////////////////////////////////////////////////////////

Alguem pode me ajudar a incluir um "bloco"
com o mensagem "TRES OU MAIS RESULTADOS ENCONTRADOS"?

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.

Estou com o codigo de busca que funciona da seguinte forma:
O usuario escreve em um formulario a cidade, e o codigo busca as pessoas que moram na mesma,
quero altera-lo para exibir apenas pessoas com mais de 10 anos, ou seja o Campo IDADE deve ser
maior que 10 para exibir os moradores da cidade escolhida, mas não estou sabendo alterar no
codigo a linha a seguir:


SQL = "SELECT * FROM teste WHERE idade= '(nao sei o que por aqui)' and INSTR(pessoas.cidade,'" & strSearch & "') "

obs.: Seria algo como IDADE = <10 ?




Abaixo segue o código completo

///////////////////////////////////////////////////////////////
<%
strSearch = Request.Form("search")
strstatus = Request.Form("status")
If strSearch <> "" Then
Dim strConnect, SQL
Dim RS
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"
SQL = "SELECT * FROM teste WHERE idade= '(nao sei o que por aqui)' and INSTR(pessoas.cidade,'" & strSearch & "') "
Set RS = Server.CreateObject("Adodb.Recordset") 'Used for pulling main categories from DB
RS.Open SQL,strConnect
if rs.eof or rs.bof then
Response.write "SEM RESULTADOS"
else
do while not rs.eof
Response.Write "ITEM " & RS("pessoas") & " ENCONTRADO<BR>"
rs.movenext
loop
end if
RS.Close
End If
%>
////////////////////////////////////////////////////////////////

Ola, estou com o código a abaixo que exibe uma lista de nomes em uma tabela...
Alguém pode me ajudar a colocar uma linha da tabela de cor CCCCCC e outra FFFFFF alternadamente?
Obrigado.


------------------------------------------------------------------

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
strQuery = "SELECT * FROM usuarios"
Set ObjRs = objConn.Execute(strQuery)
%>

<table bgcolor=#FFFFFF border=1 width=50%>

<%While Not objRS.EOF %>
<tr><td bgcolor=#FF9900><%Response.write objRS("nome")%></td></tr>

<%
objRS.MoveNext
Wend
objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>

</table>

---------------------------------------------------------------------

Ola estou com um codigo de autenticação de usuarios mas em uma das paginas há um erro onde diz que nao ha nenhum driver especificado...
segue o pedaço do codigo que esta dando erro:

________________________________________________________
<%
Login = Trim(Request.Form("Login"))
Senha = Trim(Request.Form("Senha"))
Verifica = 0

ConnString = "DBQ=c:\private\columbia.mdb"
ConnString = ConnString & ";Driver={Microsoft Access Driver (*.mdb)}"

Set Connexao = Server.CreateObject("ADODB.Connection")
Connexao.Open ConnString

SQLString = "SELECT * FROM Security WHERE Nome='" & Login & "'"

Set Reg = Connexao.Execute(SQLString)
If Reg.EOF Then
Verifica = 1
End If
%>
___________________________________________________

Pelo pouco que eu entendo o driver esta especificado, certo e seria o nome do banco?
A proposito se alguem tiver uma dica de um bom codigo de usuarios com acesso de niveis de pagina agradeço.