evertonviana

Boa tarde! Problema: Na 1ª Pagina tenho um campo "login" e outro "Senha". Após preencher, o usuário envia para uma pagina de verificação de duplicidade do BD, não existindo registro igual, a pagina é encaminhada para uma 3ª pagina que tem a fução de completar o cadastro. Porem não consigo recuperar o "login" e a "Senha" da 1ª pagina, na pagina 3. OBS.: Tirei o codigo de recuperação da 3ª pagina, pois já tentei vários, mas acho que estou fazendo errado! Segue abaixo os códigos das 3 paginas: Pagina 1! <form method="POST" name="adicionar_usr" action="verifica_usr.asp"> <p align="center"><b><font face="Arial" color="#004FDF">Dados do Login:</font></b></p> <p align="center"><font face="Arial" size="2">Login: <input type="text" name="login_usr" size="18"><br> Senha: <input type="password" name="senha_usr" size="17"> </font></p> <p align="center"> <input type="submit" value="Enviar" name="B1" style="font-family: Arial"></p> </form> Pagina 2 - Verificação de Duplicidade <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("..\bd\login.mdb") sql = "select * from login_globo where login = '"&request.form("login_usr")&"' and senha = '"&request.form("senha_usr")&"'" set rsGlobo = conexao.execute(sql) if not rsGlobo.eof then Session("login")=TRUE Response.Redirect"credenciar_globo_usr_existe.asp" else Response.Redirect"credenciar_globo_cont.asp" end if %> Pagina 3 - Completar cadastro <form method="POST" name="adicionar_usr" action="salvar_usuario.asp"> <p><b><font face="Arial" color="#004FDF">Dados do Novo Usuario:</font></b></p> <p><font face="Arial"><font size="2">Nome:</font> </font> <input type="text" name="nome_usr" size="82"><br> <font face="Arial" size="2">Endere&ccedil;o:</font> <input type="text" name="end_usr" size="45"> <font face="Arial" size="2">Tel</font><font face="Arial"><font size="2">:</font> </font> <input type="text" name="tel_usr" size="25"></p> <p><b><font face="Arial" color="#004FDF">Dados do Login:</font></b></p> <p><font face="Arial" size="2">Login: <input type="text" name="login_usr" size="18"><br> Senha: <input type="password" name="senha_usr" size="17" value=""> </font></p> <p align="center"> <input type="submit" value="Enviar" name="B1" style="font-family: Arial"></p> </form>

Galera, bom dia! Continuando meu projeto de intranet, estou estagnado na area do Refeitório, minha idéia é criar um formulário dinâmico para os Nutricionistas possam atualizar todo mes o cardápio da Empresa. A duvida da vez é, não consigo fazer com que os itens que foram cadastrados préviamente no BD apareçam no campo ComboBox, de forma que o Nutricionista possa montar o prato com itens que já foram cadastrados, gerando rapidez no processo. Consigo listar o item da Tabela do BD no campo, porem só aparece o primeiro item de cada tabela, os demais não são listados como itens de seleção no ComboBox. Como trata-se de uma atualização mensal, preciso que quando aberta a pagina adicionar_cardapio.asp, a mesma mostre ao nutricionista os campos definidos conforme a seleção do mês anterior, de forma que ele apenas atualize o cardapio. Ou seja, basta atualizar o mesmo registro do BD e não criar novos. Segue abaixo o link para essa area de intranet(Download), desde já agradeço mais uma vez ao pessoal que sempre esta pronto a ajudar. Download - Clique aqui

Resolvi, VLW!

dark0, Cara, teu codigo é muito bom, to batendo cabeça com componentes mas nenhum foi tão simples e funcional(essa é a ideia), como o seu. Esquecendo a rasgação de seda(rs!), queria te pedir uma ajuda ou de outro membro pra fazer uma pequena edição nesse código. Como o código já faz quase tudo, queria somente fazer uma alteração de forma que ele alterasse o nome do arquivo enviado, adicionando ao nome do arquivo o numero do ID do cadastro. Explicando: Enviei o arquivo de imagem: imagem1.jpg para o registro já existente ID(auto numeração): 16 Queria que o código pegasse esse nome image1.jpg e transformasse em imagem116.jpg, salvasse na pata de imagens e no BD(isso ele já faz, eu sei). Com isso nunca teria arquivos repetidos.

Amigos, Preciso confeccionar o seguinte código em asp: Objetivo: Fazer com que de acordo com a informação selecionada em uma caixa de texto suspensa em um formulário, os demais dados do formulário sejam salvos em uma determinada tabela dentro do MDB. Ex.: No formulário selecionei que a noticia publicada deve ser adicionada na opção "Superior esquerda", de forma que as demais informações do formulário sejam salvas na tabela "Noticia1". Caso o usuário selecione "Superior direita", os demais dados do formulário devem ser salvos na tabela "noticia2". Atualmente tenho esse código que esta incompleto: <% 'Abre a conexão com o banco de dados Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/dados.mdb") 'Pega os dados digitados no forluário data_pub = request("data_pub") autor_not = request("autor_not") setor_autor = request("setor_autor") titulo_not = request("titulo_not") noticia = request("noticia") onde_pub = request("onde_pub") 'Condições para saber onde publicar sql1 = "select * from noticia1" Set salva1 = Server.CreateObject("ADODB.Recordset") salva1.open sql1, conex, 3,3 sup_esq = onde_pub if not salva1.eof then salva1.addnew salva1("data")= data_pub salva1("autor") = autor_not salva1("setor") = setor_autor salva1("titulo") = titulo_not salva1("noticia") = noticia salva1.update end if 'Finaliza Conexão com a tabela salva1.close set salva1 = nothing '------------------------------------------------- Set salva2 = Server.CreateObject("ADODB.Recordset") sql2 = "select * from noticia2" salva2.open sql2, conex, 3,3 sup_dir = onde_pub if not salva2.eof then salva2.addnew salva2("data")= data_pub salva2("autor") = autor_not salva2("setor") = setor_autor salva2("titulo") = titulo_not salva2("noticia") = noticia salva2.update end if 'Finaliza Conexão com a tabela salva2.close set salva2 = nothing Resolvido! 'Condições para saber onde publicar if onde_pub = "sup_esq" then sql1 = "select * from noticia1" Set salva1 = Server.CreateObject("ADODB.Recordset") salva1.open sql1, conex, 3,3

Acho q não já chequei os passos do livro, já ate refiz certa parte do programa(a q começou a dar erro) porem nada esta incorreto...dem uma olhada nas imagens: No Aguardo Everton Alexandre

Amigos Estou com uma urgencia dem uma olhada se já passaram por isso: Estou desenvolvendo um programa q ira trabalhar com interbase (7.5) porem na hora da execução do programa ele me da a seguinte msg "Database not assgned" . alguém sabe porque da isso? PS.: estou retirando alguns passos do livro Sistema Comercial Integrado com Delphi 2005...claro estou usando o delphi 2005..! No aguardo Everton Alexandre

Fala galera Meu problema é quase lusitano: Onde fica o QReport no delfhi 2005? mudaram de nome? Vlw!

Estou usando HTML mesmo!

Tipo java ou outra qualquer?

Fala galera Estou criando um site para uma empresa que os links tem de apontar para programas internos ou seja do proprio micro ex: Word,Excel e etc... Só que como já era esperado quando eu clico no link ele me pergunta se eu quero salvar ou abrir e etc agora pergunto haveria alguma forma de criar um link com qualquer linguagem que não me faça essa pergunta?? PS.: Se alguém souber por favor envie uma msg para evertonviana@wsinet.com.br Já de ante mão Obrigado