cyberalexxx

conexão: http://www.connectionstrings.com/

Tópico exclusivo sobre o assunto, la deve ter alguma boa referencia: http://scriptbrasil.com.br/forum/index.php?showtopic=28873

uma lógica: 'recupera dado do form usuario = request.form("user") 'busca no banco o usuario resgatado SQL = "Select email, senha from usuarios where usuario='" & usuario & "'" set rs = conexao.execute(sql) 'verifica se encontrou algo if not rs.eof then 'cria objeto de email (vou usar CDONTS) Set Mail = CreateObject("CDONTS.NewMail") Mail.From = "email@seudominio.com.br" ' coloque aqui seu email Mail.To = rs("email") Mail.Subject = "Recuperação de Senha" Mail.Body = "Sua Senha é " & rs("senha") Mail.Send else response.write "Usuario não encontrado!!" response.end end if

em access: http://scriptbrasil.com.br/forum/index.php?showtopic=69208 em MySQL: Select * from noticias limit 0,1 order by rand()

Quanto ao problema do acento isso deve resolver: pesq=request("busca") pesq = replace(pesq,"a","[a,á,à,ã,â,ä,A]") pesq = replace(pesq,"e","[e,é,è,ê,ë,E]") pesq = replace(pesq,"i","[i,í,ì,î,ï,I]") pesq = replace(pesq,"o","[o,ó,ò,õ,ô,ö,O]") pesq = replace(pesq,"u","[u,ú,ù,û,ü,U]") pesq = replace(pesq,"c","[c,ç]") sql = "Select * from tabela where campo like '*" & pesq & "*' order by campo" isso é necessário porque o access faz distinção entre os caractares normais e com acento. Agora quanto ao banco de dados p/ rodar na web recomendo o MySQL (gratis) ou MS SQLServer.

faça comparações dentro do laço for next, por exemplo: registrosporpagina = 10 numerodapagina = 2 cursor = 0 For each file in pasta.Files cursor = cursor + 1 if cursor > (resgistros por pagina * (numerodapagina-1) and cursor <= (resgistros por pagina * (numerodapagina) then 'mostra dados end if next isso é só uma lógica voce vai ter que dar uma melhorada mais acho que já serve como pontapé inicial.

faz assim: <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") set arquivo = FSO.getFile("arquivo.txt") response.write arquivo.DateLastModified %>

Quando não tem o registro eu sei que é if variável.eof Mas e quando já tem???? Aguardo respostas, valeu Vamos supor que voce não queira duplicar um campo chamado login voce teria que fazer o seguinte: checar se já existe algum registro com esse login: Sql = "Select login from tabela where login='" & request("login") & "'" set rs = conexao.execute(sql) if not rs.eof then response.write "O login desejado já existe!" response.end else sql2 = "insert into tabela (login) values ('" & request("login") & "')" conexao.execute(sql) response.write "Registro incluido com sucesso" end if

tenta isso: Set FSO = Server.CreateObject("Scripting.FileSystemObject") caminho = ".\arquivos" ' defina aqui a pasta set pasta = FSO.getfolder(server.mappath(caminho)) nr_arquivos = 0 for each arquivo in pasta.files nr_arquivos = nr_arquivos + 1 next if nr_arquivos = 0 then response.write "Nenhum arquivo encontrado" else response.write nr_arquivos & " arquivos encontrados" end if

para fazer isso voce teria que criar um nivel de acesso na tabela de usuários, por exemplo uma tabela de usuários contendo nome, login, senha e nivel_acesso (coloque por exemplo 0 para administrador e 1 para usuário normal) No ato do login quando voce validar o usuário faça assim: SQL ="Select * from usuarios where login='" & request("login") & "' and senha='" & request("senha") & "'" set rs = conexao.execute(sql) if not rs.eof then 'usuario logado session("usuario") = rs("login") if rs("nivel_acesso") = 0 then session("nivel_acesso") = 0 else session("nivel_acesso") = 1 end if else response.write "Senha ou login invalido!" response.end end if depois quando for exibir os registros faça assim: if session("nivel_acesso") = 0 then RS_Max.Open "SELECT * FROM prod" 'seleciona tudo else RS_Max.Open "SELECT * FROM prod where user='" & session("usuario") & "'" 'seleciona somente registros do usuário end if isso é uma lógica, voce tem que adaptar ao seu sistema.

Em ASP acredito que só com componente, eu faço isso usando ASPJPEG

tenta assim: For each campo in request.form response.write "Nome do campo:" & campo & "<br>" response.write "Valor do campo:" & request.form(campo) & "<br><br>" next

tenta assim: <form name= "form1" method="POST" action="pagina.asp"> <p align="right"> <select size="1" name="Ordem" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1" OnChange="document.form1.submit()"> <option selected value="Listar por:">Listar por:</option> <option value="Maior valor">Maior valor</option> <option value="Menor valor">Menor valor</option> </select></p> </form>

Voce tentou da forma que eu postei??? o que aconteceu???

Nunca fiz, mais não custa tentar, da uma olhada de funciona: no inicio do código que faz o upload voce conta o total de bytes totaldebytes = request.TotalBytes depois compare com valor máximo que voce desejaif totaldebytes > 1024 then response.write "Tamanho do arquivo excedido!!" : response.end end if é uma idéia! Tenta ai!!

http://scriptbrasil.com.br/forum/index.php...1&st=&p=entry

voce esta usando algum componente???

já tentou usando a propriedade OnClick: OnClick="document.nomedoform.submit()"

if isnumeric(request("campo")) = true then response.write "é numero" else response.write "é letra" end if

O leitor de codigo de barras é um dispositivo de entrada normal!! é só setar o foco no campo que ira receber o codigo e fazer a leitura.

Foi mal ae, eu que digitei errado (já quebrei meu dedo como forma de punição) []'s

Parabéns!!! e Obrigado!! Gostei bastante da versão principalmente na área de moderação que tem uns recursos bem praticos. []'s

isso em asp.net!! usando html é só colocar o readlonly='true' no <input>

não ter porque criar um recordset se não for para fazer consulta!!! olha o seu código:

tutorial sobre paginação: http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais