Ir para conteúdo
Fórum Script Brasil

Vagner Nunes

Membros
  • Total de itens

    376
  • Registro em

  • Última visita

Tudo que Vagner Nunes postou

  1. Vagner Nunes

    Insert e E-mail

    Prezados, Boa tarde. Gostaria de saber com posso fazer para criar um Inert e email ao mesmo tempo. Ex.: quando um usuário enviar um formulário de contato, inserir dados em um banco e automaticamente encaminhar os dados para um e-mail. Se alguém poder me ajudar, seria muito grato... Sds, Vagner Nunes
  2. Prezado, Fiz o procedimento que o senhor citou, não conseguindo, formatei meu HD (que sofrimento!). Porém fiz a instação do Windows tudo certinho, porem agora o computador está reiniciando, porém demora mais um pouco o período e que fica ligado. O pode ser? Memória? já troquei várias e todas funcionam em minha outra máquina. Será que pode ser o Cooler? Aumentando a temperatura, como posso saber se é esta peça. Placa de vídeo é nova. Estou com me que seja a Placa-mãe, senão vou ter que arrumar briga com o cara que me vendeu. Sds, Vagner Nunes
  3. Prezado, Consegui resolver a questão do curto, porém, agora a máquina está reiniciando com frequência. Quando entro no Modo de Segurança, ela fica normal, não reinicia. Será que é problema de drives? Fui no Gerenciador de Dispositivos e não consegui identificar nenhuma exclamação, relatando conflito de Hardware. Se for drives como faço para para identificar o drive que está dando problema? Agradeço a ajuda Sds, Vagner Nunes
  4. Prezados Comprei uma placa Asus A7V600-X, montei tudo certo porem eu aperto power funciona, porem a maquina renicia segundos depois. já testei memoria, placa de video, fonte ETC.... mais o erro persiste alguém poderia me ajudar? :angry:
  5. Prezados, Comprei uma placa-mãe de segunda mão, é uma Asus. Quando aperto o Power, liga normalmente, porém, da uns segundos a máquina desliga sozinho, depois ele só liga novamente, se eu retirar o Cabo de força, e coloca-lo novamente, porém ele liga e, mas torna a desliga sozinho depois de uns segundos. O que pode ser? A pessoa que me vendeu a placa, falou que testou ela toda e até instalou o Windows para me entregar. Sds, Vagner Nunes
  6. Pessoal, muito obrigado.... Problema resolvido. Na realidade estava tudo funcionando, o problema é que estava verificando na tabela errada. Sds, Vagner Nunes
  7. Ela pode aparecer então, ela não irá influenciar no desempenho de minha máquina?
  8. Prezados, Gostaria de uma ajuda... Ao ligar minha máquina ela faz a contagem de memória, logo em seguida aparece a seguinte mensagem: , porém continua a carregar o Windows normalmente. Alguém poderia me explicar do que se trata esta mensagem? Sds, Vagner Nunes
  9. Alguém poderia me ajudar!!!
  10. <% response.buffer = true Dim useraction Dim login, senha, objRs, strQuery useraction = request("action") select case useraction case "login" login=request.Form("login") senha=request.Form("senha") strQuery = "SELECT * From expedientes where senha='"& senha &"' and login='"& login & "'" Set objRs = objConn.Execute(strQuery) 'If objRs.eof and objRs.bof then If objRs.eof then response.write "<b><center>Erro! </center></b>" else session("autorizado") = senha response.redirect "principal.asp" end if end select %>
  11. Prezados, Segue abaixo código da página. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conexao.asp" --> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>CESAT - Controle de Estoque v.1.0</title> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; color: #000000; } body { background-color: #F3F3F3; } a { font-family: Verdana, Arial, Helvetica, sans-serif; color: #000000; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #333333; } a:hover { text-decoration: none; color: #666666; } a:active { text-decoration: none; color: #999999; } .style1 { font-size: 12px; font-weight: bold; } .style2 {font-size: 12px} .style3 {font-size: 9px} --> </style></head> <body> <table width="777" border="0" align="center" bgcolor="#FFFFFF"> <tr> <td><table width="777" border="0"> <tr> <td><img src="imagens/topo.gif" width="777" height="120" /></td> </tr> <tr> <td><div align="center"><img src="imagens/computador.jpg" width="48" height="48" /></div></td> </tr> <tr> <td><div align="center"><span class="style1">Solicita&ccedil;&atilde;o de Materiais </span></div></td> </tr> <tr> <td bgcolor="#333333">&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><div align="center"> <% response.buffer = true Dim useraction Dim login, senha, objRs, strQuery useraction = request("action") select case useraction case "login" login=request.Form("login") senha=request.Form("senha") strQuery = "SELECT * From expedientes where senha='"& senha &"' and login='"& login & "'" Set objRs = objConn.Execute(strQuery) 'If objRs.eof and objRs.bof then If objRs.eof then response.write "<b><center>Erro! </center></b>" else session("autorizado") = senha response.redirect "principal.asp" end if end select %> </div></td> </tr> <tr> <td><div align="center"> <form action="index.asp?action=login" method="post" name="form" id="form"> <label> </label> <p>&nbsp;</p> <table width="450" border="0"> <tr> <td width="143" bgcolor="#CCCCCC"><div align="left"><span class="style2">Login:</span></div></td> <td width="297" bgcolor="#CCCCCC"><div align="left"> <input name="login" type="text" id="login" size="25" /> </div></td> </tr> <tr> <td bgcolor="#CCCCCC"><div align="left"><span class="style2">Senha:</span></div> <div align="left"></div></td> <td bgcolor="#CCCCCC"><div align="left"> <label></label> <input name="senha" type="password" id="senha" size="25" /> </div></td> </tr> <tr> <td bgcolor="#CCCCCC"><div align="left"></div> <div align="left"></div></td> <td bgcolor="#CCCCCC"><div align="left"> <input type="submit" name="Submit" value="Acesso" /> <span class="style3">Esqueceu a senha, clique aqui?</span> </div></td> </tr> </table> <p>&nbsp;</p> <label></label> <label></label> </form> </div></td> </tr> <tr> <td> <div align="center"></div></td> </tr> <tr> <td><img src="imagens/rodape.gif" width="777" height="48" border="0" usemap="#Map" /></td> </tr> </table></td> </tr> </table> <map name="Map" id="Map"><area shape="rect" coords="634,22,793,54" href="http://www.gouarts.com" target="_blank" /> </map></body> </html> Sds,
  12. Não retorna nenhum erro, só retorna para a página de Login! Aparece a mensagem de erro que inseri!
  13. Novamente para esta! Em vez de carregar a página, ele aparace esta novamente com erro!
  14. Prezados, Criei um formulário, de login e senha, mas está dando erro. Segue abaixo código: Conexão com o banco é <!--#include file="Connections/Conexao.asp" --> Formulário: <form action="index.asp?action=login" method="post" name="form" id="form"> <label> </label> <p>&nbsp;</p> <table width="450" border="0"> <tr> <td width="143" bgcolor="#CCCCCC"><div align="left"><span class="style2">Login:</span></div></td> <td width="297" bgcolor="#CCCCCC"><div align="left"> <input name="login" type="text" id="login" size="25" /> </div></td> </tr> <tr> <td bgcolor="#CCCCCC"><div align="left"><span class="style2">Senha:</span></div> <div align="left"></div></td> <td bgcolor="#CCCCCC"><div align="left"> <label></label> <input name="senha" type="password" id="senha" size="25" /> </div></td> </tr> <tr> <td bgcolor="#CCCCCC"><div align="left"></div> <div align="left"></div></td> <td bgcolor="#CCCCCC"><div align="left"> <input type="submit" name="Submit" value="Acesso" /> <span class="style3">Esqueceu a senha, clique aqui?</span> </div></td> </tr> </table> <p>&nbsp;</p> <label></label> <label></label> </form> E o código ASP: <% response.buffer = true Dim useraction Dim login, senha, objRs, strQuery useraction = request("action") select case useraction case "login" login=request.Form("login") senha=request.Form("senha") strQuery = "SELECT * From expedientes where senha='"& senha &"' and login='"& login & "'" Set objRs = objConn.Execute(strQuery) If objRs.eof and objRs.bof then response.write "<b><center>Erro! </center></b>" else session("autorizado") = senha response.redirect "index1.asp" end if end select %>
  15. Prezado, Consigo fazer este procedimento mesmo sendo em tabelas diferentes. Poderia me explicar melhor como consigo fazer? Sds, Vagner Nunes
  16. Prezados, Tenho uma placa-mãe ASUS A7N8X-X, comprei um Processador Sempron 2.4 GHZ, porém ela só está reconhecendo 994MHZ. Como faço para reconhecer o meu processador como 2.4 Sds, Vagner Nunes
  17. Prezados, Boa tarde. Gostaria de saber o seguinte. Tenho aqui uma tabela de pedido com vários solicitantes, porém gostaria de criar uma página com um icone com com link com as solicitações atendidas, não atendidas, etc. Porém gostaria que não aparecece de todos os solicitantes, e sim só o solicitante que fez sua autenticação, porém a autenticação está e outra tabela. Como posso fazer para quando o solicitando digitar login e senha, abrir somente a solicitacao dele, que está na tabela solicitacoes. Sds, Vagner Nunes
  18. Prezados, Boa tarde. Gostaria de saber se há possibilidade de quando for abrir uma página em asp DELETAR automaticamente os registros de três dias atrás. Ex.: 22/07/2009 >> Solicitar a deleção de todos os registros dos dias 17/07/2009, 18/07/2009/, 20/07/2009. Posso também fazer uma busca por data e pedir para Excluir, certo? Porém a alguma maneira de quando abrir uma página e automaticamente, excluir alguns registro de dias atrás. Sds, Vagner Nunes
  19. Valeu pessoal, problema resolvido. Sds, Vagner Nunes
  20. Faço os INSERT via código mesmo, porém os UPDATE faço pelo DW, pois apanho um pouco para fazer via código. Segue abaixo o código que uso para o INSERT: <% Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao vsolicitante = Request("solicitante") vsetor = Request("setor") vpedido = Request("pedido") vquantidade = Request("quantidade") vunidade = Request("unidade") vsituacao = Request("situacao") strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"',"&vquantidade&",'"&vunidade&"','"&vsituacao&"')" If request.querystring("op") = 1 then Set mail = CreateObject("CDONTS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = "administrativo@site.br" ' e-mail de quem vai receber a mensagem mail.CC = "administrativo@site.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "Solicitação de Materiais - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "Setor: " & request.form("setor") & vbCrLf & "Pedido: " & request.form("pedido") & vbCrLf & "Quantidade: " & request.form("quantidade")& vbCrLf & "-" & request.form("unidade") mail.Send Set mail = Nothing else end if Set ObjRs = objConn.Execute(strQuery) %>.
  21. Tenho que fazer algum relacionamento no banco? Cara, estou quase entregando os pontos, este negócio de controle de estoque, está fritando meus miolos. Como faço para atualizar o campo estoque na tabela produtos, se o Repet Region está mostrando os dados da tabela pedidos.
  22. Prezados, Tentei aqui de várias formas, mas sem sucesso, precisava muito resolver isso. Como posso fazer para quando aprovar a quantidade, diminuir a quantidade da tabela produtos que está em estoque. Haveria como indicar algum exemplo, pois não idéia de como começar. Sds,
  23. OK! Vou ver o que consigo fazer aqui
  24. Prezado, Como posso fazer isso, terei como você me explicar, a autorização é feita na tabela pedido, como faço para automaticamente modificar a tabela produtos. Sds, Vagner Nunes
×
×
  • Criar Novo...