--_Michel_--

Exibir somente os 05 últimos registros cadastrados no Banco de Dados. Você poderá alterar os números de acordo com o que necessitar... Basta apenas trocar os valores das variáveis. Este código foi desenvolvido com a ajuda dos moderadores e menbros do site. Lembre-se, Copiar apenas o código não trará conhecimentos para o programador, pesquise e sempre questionem as funções utilizadas aqui no forum. [SIZE=1]<!------------------------------------------------------------------------------------ WWW.PNEONLINE.COM PORTAL NOVA ERA ONLINE SYSTEM TECNOLOGY DESENVOLVENDO PROJETOS WEB CONTATO TEL: (12)3907-6334 ou (12)9113-9428 CONTATO E-MAIL: LEMESPNE@IG.COM.BR CONTATO ICQ: 301297234 CÓDIGO DESENVOLVIDO COM ORIENTAÇÃO DOS MODERADORES DO SITE WWW.SCRIPTBRASIL.COM.BR/FORUM MODERADOR ASP: DARK0 MODERADOR HTML: VICTOR ASP% MEMBROS: BARETA, CYBERALEXXX, DMLMOSILVA ------------------------------------------------------------------------------------------> <!--#include file="configteste.asp" --> <% dim conn, rs, sql set conn = server.createobject ("ADODB.connection") Set rs =Server.CreateObject("ADODB.Recordset") conn.Open caminhoBD SQL = "select * from tabela order by id" Rs.Open sql, conn If rs.EOF Then Response.Write "Nenhum usuario cadastrado" else dim texto dim id texto = array() id = array() z=1 while not rs.EOF ReDim preserve texto(UBound(texto)+1) ReDim preserve id(UBound(id)+1) texto(Ubound(texto)) = rs("texto") id(Ubound(id))= rs("id") z=z+1 rs.MoveNext wend rs.Close end if if z>4 then response.write id(0)&" - "&texto(0)&"<br>" response.write id(1)&" - "&texto(1)&"<br>" response.write id(2)&" - "&texto(2)&"<br>" response.write id(3)&" - "&texto(3)&"<br>" response.write id(4)&" - "&texto(4)&"<br>" else response.write "Erro" end if %>[/SIZE]

Valeu dark, é que eu tinha clicado em novo tópico ai percebi que iria iniciar um novo topo ASP/ASP.NET... Valeu... Vou postar lá agora...

Tenho um Banco de Dados com os campos ID e Máteria. O Campo ID receberá valores autonuméricos e o campo máteria texto. Tenho que consultar a tabela do banco de dados e ver quantos registro há cadastrados. Até ai beleza... Mas tenho que exluir os registro deixando apenas 05 registros cadastrados, e não permitir que estes 05 registros sejam excluídos... Como deve fazer esta rotina... exemplo: consulta registros=100 excluir=95 registros consulta registro=1000 exluir= 995 registros consulta registro=05 mensagem=Constam na Base de Dados 05 registros que não podem ser excluidos Se tiverem duvidas, perguntem que eu posta aqui mais detalhado.

Valeu galera, agora tb a ajuda do cyberalexxx o código está prontinho... Vou postar este código no Tópico de Funções (COMO FAÇO PARA INCLUIR ESTE CÓDIGO NO TÒPICO DE FUNÇÔES), para que outros desenvolvedores possam aprender a utiliza-los também.... Obrigado a todos que ajudaram e se empenharam em me ajudar. Pode fechar este tópico.

Tenho algumas dúvidas sobre está lógica, e por isso venho aqui pedir ajuda. - Como faço para transformar os dados do campo de uma tabela que estão em MAIUSCULAS em minusculas. exemplo: LITORAL para litoral SÃO JOSÉ DOS CAMPOS para São José dos Campos Qual procedimento deve utiliza para manipular esses dados. Se souberem de algo postem aí... VAleuuuuu Galerrrra

O código que você passou a o dark0 fez algumas alterações ficou ótimo e vou utilizar este pois os 05 ultimos registros ficam guardados nas variaveis e posso chama-las depois em qualquer parte da página tb... Não usei o SELECT TOP porque não consegui guardar os 05 ultimos nas váriaveis... O unico problema do código de cima é que eu sempre tenho que ter pelo menos 05 registros cadastrados, senão dá erro... O que eu queria saber é se tem como colocar uma mensagem de erro quando estiver de 1 até 04 registros apenas gravados. tipo assim se no banco de dados for =1 ate 4 exiba a mensagem de erro " Não foi possivel visualizar os registros" senão ele faz o que esta sendo feito.... Mas eu não consigo colocar essa rotina lá no código... <!--#include file="configteste.asp" --> <% dim conn, rs, sql set conn = server.createobject ("ADODB.connection") Set rs =Server.CreateObject("ADODB.Recordset") conn.Open caminhoBD SQL = "select * from tabela order by id" Rs.Open sql, conn If rs.EOF Then Response.Write "Nenhum usuario cadastrado" else dim texto dim id texto = array() id = array() z=1 while not rs.EOF ReDim preserve texto(UBound(texto)+1) ReDim preserve id(UBound(id)+1) texto(Ubound(texto)) = rs("texto") id(Ubound(id))= rs("id") z=z+1 rs.MoveNext wend rs.Close end if response.write id(0)&" - "&texto(0)&"<br>" response.write id(1)&" - "&texto(1)&"<br>" response.write id(2)&" - "&texto(2)&"<br>" response.write id(3)&" - "&texto(3)&"<br>" response.write id(4)&" - "&texto(4)&"<br>" %>

Victor acho que você não entendeu... Serão somente 05 registro mesmo... O problema é que se no banco de dados tiver mais que 05 registro cadastrados ele exibe o erro acima que citei... Eu não consegui colocar um tratamento para esse erro. Pois terei que sempre cadastrar novos registros e não poderei apagar os anteriores... Se souber como faço para colocar um tratamento de erro, posta aí... vou continuar tentatndoa aqui.

Gostaria de saber melhor como funciona a QUERYSTRING. Já utilizo esta função mas não sei direito como funciona e gostaria de melhorar meus conhecimentos sobre isto, pois vejo que é muito importante. Se souberes de algo que fale sobre, postem aí....

Olá galera! Fiz alguns testes com as funções que me passaram, e escolhi usar o que o VICTOR passou, mas fiz algumas alterações... Vejam como ficou. Mas só tem uma coisa que não consegui fazer... se no banco de dados for maior que 05 registro por exemplo 100, ele da o seguinte erro! Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0009) Subscrito fora do intervalo: 'z' /ex/exibir_05_registro1.asp, line 18 Como faço para tirar esse erro, pois na tabela podem contar vários registros e assim cada vez que eu inserir um novo registro ele tem que pegar somente os ultimos 05 registros cadastrados. Valeu galera... Os comonados SELECT TOP funcionou perfeitamente, mas tem que ser como o dark0 postou aí se não não funciona.

não sei o que significa "SGBD", mas uso banco de dados Access

Ae galera, valeu pela ajuda... Dark0 não tenho nenhuma noção de como exibir todos os registros em um loop, se puder posta aí como eu faço isso que pode servir para mim tb... Vou testar os exemplos acima postados, mas creio que o do victor pode servir pois tenho que exibir somentes os 05 primeiros registro que estão gravados no banco de dados... Valeu galera... Vou testa-lo e depois eu posto aqui se deu certo, mas qualquer novidade ou outra forma de realizar este procedimento postem ai.

Tenho um Banco de dados com 02 coluna uma chamada ID e a outra chamada Links... Tenho umaa administração onde posso incluir, alterar, excluir e consultar os dados cadastrados pelo ID. A minha dúvida é na página principal onde tenho um espaço para visualização apenas dos 05 primeiros registro do Banco e um link para listar todos... Gostaria de saber como faço para exibir somente os 05 primeiros registro de um Banco de dados.

Valeu a todos... o código do CODE que eu queria mesmo. O que o cyberalex passou por fos eu já tinha... Valeu galera podem fechar o tópico...

Aí fabio, o comando que verifica se um arquivo existe em um determidado local atravéz do ASP, utiliza o FSO. De uma olhada no tópico de funções do ASP que você vai encontrar. Aí galera será que não existe uma forma de saber se o arquivo existe somente com JS.... Qualquer novidade postem aí.

Postem alguns links ai pra mim dar uma olhada. heheeheh

Valeu galera pela ajuda e atenção... Mas estou com mais uma dúvida.... A segurança das páginas de ASP consiste somente em tratar erros em formulários e logins ou existem outras formas de danificar seu sistema em ASP. Como faço para adquirir mais conhecimentos sobre esta área de segurança do ASP... E como funciona e quais Certificados de Segurança posso usar no ASP. E sobre a proteção do Código Fonte... Mesmo ele rodondo no Servidor existe risco de danificarem meu codigo fonte? Ai Galera ajudem com este tópico, pois a segurança nos sistemas são de grande importancia para quem desenvolve sistema para internet. E quem nunca pensou em segurança para suas páginas, comecem a pensar, pois ninguém está livre de um "programador" fazer umas experiências em suas páginas. Dependendo da intenção do programador ele pode levar seu sistema a uma catastrofeeeee... Pensem Nisso, e ajudem com INFORMAÇÕES A RESPEITO DE SEGURANÇA EM ASP

Fiz um teste em um sistema de login e deu o seguinte erro... Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'nome=''1'''. adm.asp, line 28 Mas como no exemplo do tópico de tutoriais não funcionou... Não consegui me conectar.... Tópico de tutoriais Segurança em formulários - ('Or '1' = '1) .... ... .. Como fazer? Simples!Apenas digite no login e na senha:'OR '1' = '1 .. isso irá liberar um user logado para vc! Geralmente ele logará com o primeiro REGISTRO do banco de dados Porque não consegui me logar...

Como faço para pegar o nome do arquivo que foi digitado em uma caixa de texto: d:\casa\arquivos\arquivo1.txt d:\terreno\arquivo1.txt d:\sdjhy\%tde65\shdgs\hjdsghgh\arquivo.txt retirar todo o caminho fisico e atribuir somente o nome do arquivo e extenção em uma variavél: Valor que terá a variavél: arquivo.txt Seria basicamente como a função dos "...", mas com a diferença de retirar tudo antes da extenção e do nome do arquivo e depois atribuir a variável. Como faço isto.

Estava lendo o POST que o DARK0 postou no tópico de tutoriais sobre segurança em formulários e que me chamou bastante a atenção sobre segurança. Gostaria de saber mais sobre segurança em ASP e se isso ocorre somente em formulários ou em váriáveis, etc... tb... Onde posso conseguir mais informações????

Ae galera, ainda não consegui nada... será que podem me ajudar...

Tenta esse... <html> <head> <title>Máscaras para Formulários</title> <script language="JavaScript"> /*** * Descrição.: formata um campo do formulário de * acordo com a máscara informada... * Parâmetros: - objForm (o Objeto Form) * - strField (string contendo o nome * do textbox) * - sMask (mascara que define o * formato que o dado será apresentado, * usando o algarismo "9" para * definir números e o símbolo "!" para * qualquer caracter... * - evtKeyPress (evento) * Uso.......: <input type="textbox" * name="xxx"..... * onkeypress="return txtBoxFormat(document.rcfDownload, 'str_cep', '99999-999', event);"> * Observação: As máscaras podem ser representadas como os exemplos abaixo: * CEP -> 99.999-999 * CPF -> 999.999.999-99 * CNPJ -> 99.999.999/9999-99 * Data -> 99/99/9999 * Tel Resid -> (99) 999-9999 * Tel Cel -> (99) 9999-9999 * Processo -> 99.999999999/999-99 * C/C -> 999999-! * E por aí vai... ***/ function txtBoxFormat(objForm, strField, sMask, evtKeyPress) { var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla; if(document.all) { // Internet Explorer nTecla = evtKeyPress.keyCode; } else if(document.layers) { // Nestcape nTecla = evtKeyPress.which; } sValue = objForm[strField].value; // Limpa todos os caracteres de formatação que // já estiverem no campo. sValue = sValue.toString().replace( "-", "" ); sValue = sValue.toString().replace( "-", "" ); sValue = sValue.toString().replace( ".", "" ); sValue = sValue.toString().replace( ".", "" ); sValue = sValue.toString().replace( "/", "" ); sValue = sValue.toString().replace( "/", "" ); sValue = sValue.toString().replace( "(", "" ); sValue = sValue.toString().replace( "(", "" ); sValue = sValue.toString().replace( ")", "" ); sValue = sValue.toString().replace( ")", "" ); sValue = sValue.toString().replace( " ", "" ); sValue = sValue.toString().replace( " ", "" ); fldLen = sValue.length; mskLen = sMask.length; i = 0; nCount = 0; sCod = ""; mskLen = fldLen; while (i <= mskLen) { bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/")) bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " ")) if (bolMask) { sCod += sMask.charAt(i); mskLen++; } else { sCod += sValue.charAt(nCount); nCount++; } i++; } objForm[strField].value = sCod; if (nTecla != 8) { // backspace if (sMask.charAt(i-1) == "9") { // apenas números... return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9 else { // qualquer caracter... return true; } } else { return true; } } //Fim da Função Máscaras Gerais </script> </head> <body> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Formatação de várias Máscaras de Entradas para campos de Formulários</strong></font> <form name="Form"> <table border="0" cellspacing="2" cellpadding="2"> <tr> <td width="66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cep &nbsp;</font></td> <td width="128"> <input type="text" name="str_cep" maxlength="10" size="10" onKeyPress="return txtBoxFormat(document.Form, 'str_cep', '99.999-999', event);"> </td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">CPF</font></td> <td> <input type="text" name="str_cpf" maxlength="14" size="14" onKeyPress="return txtBoxFormat(document.Form, 'str_cpf', '999.999.999 99', event);"> </td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">CNPJ</font></td> <td><input type="text" name="str_cnpj" maxlength="18" size="18" onKeyPress="return txtBoxFormat(document.Form, 'str_cnpj', '99.999.999/9999-99', event);"></td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data</font></td> <td><input type="text" name="str_data" maxlength="10" size="10" onKeyPress="return txtBoxFormat(document.Form, 'str_data', '99/99/9999', event);"></td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tel Residencial</font></td> <td><input type="text" name="str_tel2" maxlength="14" size="14" onKeyPress="return txtBoxFormat(document.Form, 'str_tel2', '(99) 9999-9999', event);"></td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tel Celular&nbsp;</font></td> <td> <input type="text" name="str_tel" maxlength="14" size="14" onKeyPress="return txtBoxFormat(document.Form, 'str_tel', '(99) 9999-9999', event);"> </td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Processo</font></td> <td><input type="text" name="str_proc" maxlength="20" size="20" onKeyPress="return txtBoxFormat(document.Form, 'str_proc', '99.999999999/9999-99', event);"></td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Conta &nbsp;</font></td> <td> <input type="text" name="str_cc" maxlength="6" size="10" onKeyPress="return txtBoxFormat(document.Form, 'str_cc', '9999-!', event);"> </td> </tr> </table> </form> </body> </html>

Ae bareta, tudo joias... Na página Principal você poderia colocar um link na figura, o número de fotos e a porcentagem de vostos... Na página que contém as fotos você poderia colocar as fotos menores em tamanhos menores para que abram rápidamente... no mais é só...

Valeu Illidam pela atenção mas com frames já testei, gostaria de saber se não existe outra forma...

?????

Gostaria de saber como faço para exibir uma janela pou-up somente quando o usuário sair do site. Quando ele clicar no botão fechar ou digitar outro endereço na barra de endereços que na seja o meu. Tenho um código que funciona, mas quando mudo para uma outra página do meu site mesmo ele interpreta como se eu tivesse saindo do site. Como fazer???? codigo