Vagner Nunes
-
Total de itens
376 -
Registro em
-
Última visita
Tudo que Vagner Nunes postou
-
Prezados, Segue abaixo código de INSERT, ele está funcionando perfeitamente, porém se deixar algum campo vazio aparece o erro abaixo, o banco é o Access: Código: <!--#include file="Connections/Conexao.asp" --> <% 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@email.br" ' e-mail de quem vai receber a mensagem mail.CC = "administrativo@email.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) %> Sds, Vagner Nunes
-
Prezados, Estes campos são todos textos, e não estou utilizando validação especificamente nestes campos, porém gostaria de manter estes campos no INSERT e UPDATE, pois se alguém tiver a exigência do campo, ele irá digitar, então gostaria que estes campos fosse aceito, quando não for digitado nada, porém preciso que faça o INSERT quando necessário. Sds, Vagner Nunes
-
Prezados, Boa tarde, gostaria de saber se há alguma maneira para quando um usuário do site for preencher um formulário, este formulário grava em um banco Access, e quando ele deixar de preencher algum campo, o sistema aceitar assim mesmo, pois no momento todos os meus formulários, se houver algum campo vazio, a página retorna um erro. Gostaria que, se algum campo ficar vazio, o cadastro fosse realizado sem problemas. Sds, Vagner Nunes
-
Prezado, Então este erro é por causa do CDonts? Eu não entendo, onde trabalho os componentes são todos o cdonts e funcionar normalmente no servidor da Locaweb, será que vou ter que modificar todos os componentes, corre o risco de não funcionar mais? Sds,
-
O erro que aparece é o seguinte: Sds, Vagner Nunes
-
Não to entendendo o que foi citado, poderia me explicar melhor, eu utilizo o cdonts na Locaweb e funciona perfeitamente. Segue abaixo o código já com os meus campos escritos: <%@ LANGUAGE="VBSCRIPT" %> <% %> <% Option Explicit %> <% Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail 'database path. DATA_PATH=Server.Mappath("curriculos.mdb") ' Cria e inicia a conexao Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password" Set objRS = Server.CreateObject("ADODB.Recordset") email=request.form("email") 'SQL objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1 %> <head> <title>Envio de senha</title> </head> <body> <% 'checks if email if objrs.EOF then %> <table border="0" cellPadding="0" cellSpacing="1" width="540"> <tr> <td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b> Email Invalido</b></font></td> </tr> </table> <p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> <span class="text-err"> na base de dados.</span></p> <% Else %> <% 'seta variaveis email = request.form("email") ' username e password do database user = objrs.Fields("login") pass = objrs.Fields("senha") Set sendmail = Server.CreateObject("CDONTS.NewMail") sendmail.From = "suporte@dominio.com" sendmail.To = email sendmail.Subject = "Informações de Login" sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _ & "Username=" & user & vbCrlf _ sendmail.Importance = 3 sendmail.Send %> <p class="text2">Foi enviada as informações de login para <%=email%>.<br> Você deverá recebê - lo em breve.</p> <% ' fecha Data Access Objects objDC.Close Set objRS = Nothing Set objDC = Nothing Set sendmail = Nothing %> <%end if%>
-
Prezados, Estava dando uma vasculhada no google e achei um código, tentei adequar as minhas necessidades, porém está apresentando o seguinte erro: O meu banco se chama curriculos.mdb, o tabela é a academico, e os campos são email, login e senha. Segue código logo abaixo: <%@ LANGUAGE="VBSCRIPT" %> <% %> <% Option Explicit %> <% Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail 'database path. DATA_PATH=Server.Mappath("membersdb.mdb") ' Cria e inicia a conexao Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password" Set objRS = Server.CreateObject("ADODB.Recordset") email=request.form("email") 'SQL objRS.Open "SELECT * FROM MEMBERS WHERE email = '" & email & "'", objDC, 0, 1 %> <head> <title>Envio de senha</title> </head> <body> <% 'checks if email if objrs.EOF then %> <table border="0" cellPadding="0" cellSpacing="1" width="540"> <tr> <td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b> Email Invalido</b></font></td> </tr> </table> <p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> <span class="text-err"> na base de dados.</span></p> <% Else %> <% 'seta variaveis email = request.form("email") ' username e password do database user = objrs.Fields("username") pass = objrs.Fields("password") Set sendmail = Server.CreateObject("CDONTS.NewMail") sendmail.From = "suporte@dominio.com" sendmail.To = email sendmail.Subject = "Informações de Login" sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _ & "Username=" & user & vbCrlf _ sendmail.Importance = 3 sendmail.Send %> <p class="text2">Foi enviada as informações de login para <%=email%>.<br> Você deverá recebê - lo em breve.</p> <% ' fecha Data Access Objects objDC.Close Set objRS = Nothing Set objDC = Nothing Set sendmail = Nothing %> <%end if%> Sds, Vagner Nunes
-
Estou utilizando este exemplo abaixo, porém não cosegui coisa funcionar. <!--#include file="Connections/Conexao.asp" --> <% 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@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "administrativo@cesat.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) %> Sds, Vagner Nunes
-
O problema é este: não consegui nem ter idéia direito, mas comecei a fazer alguma coisa sim, porém está no meu servico. Estou utilizando, um código que insere registro no banco e dispara um e-mail ao mesmo tempo. Foi até voce quem me ajudou. Estou no caminho certo utilizando a mesma idéia do INSERT? Vou postar amanhã. Sds,
-
Prezados, Boa tarde. Criei um sistema de banco de currículo atualmente com acesso com Login e Senha, onde o visitante faz seu cadastro, e neste banco existe uma tabela de cadastro e vários campos, incluindo os campos de autenticação de usuário, porém gostaria de saber como posso fazer para que quando um visitante esquecer seu Login e Senha, Clique em, um exemplo, Esqueceu a senha, Clique aqui, e quando ele clicar, daí aparecerá o campo de e-mail onde ele preencherá e se existir este campo no banco, automaticamente será encaminhado para ele o login e a senha cadastrada. Como posso fazer isso? Sds, Vagner Nunes
-
Prezado, Tentei aqui, mas sem sucesso.... Não estou conseguindo fazer este o Lembrete de senha. Sds, Vagner Nunes
-
Ok, vou tentar!!
-
Prezado Rafael, Haveria possibilidade de você me encaminhar um exemplo de como devo proceder? Sds,
-
Rafael, Obrigado pela ajuda novamente, funcionou beleza aqui. Só me orienta em mais uma coisa. Haveria possibilidade de me dar um exemplo de como posso fazer aquele Esqueceu sua senha? Clique aqui e abrir um formulário onde ele irá inserir o e-mail cadastrado e daí então automaticamente receber em seu e-mail o login e senha que está cadastrado? Se poder me ajudar seria muito grato. Sds, Vagner Nunes
-
Como posso fazer uma session. É na página de autenticação?
-
Prezados, Bom dia. Estou aqui mais uma vez para pedir ajuda dos senhores. No site onde administro, tem uma seção que criei de Trabalhe Conosco, porém esta seção permiti somente o usuário cadastrar o períodico, porém recentemete foi pedido para mim fazer algumas modificações, porém gostaria de ir mais além. Queria que o usuário além de cadastrar seu currículo, possa também atualiza-lo ou até então exclui se desejar. Porem gostaria de saber como posso fazer para que quando ele for fazer a autenticação dele, aparece para ele somente o seu currículo. Ex.: Pedro cadastrar o curriculo dele, depois ele acessa novamente só para atualiza-lo, daí depois da autenticação, aparecer para ele somente as opções de atualizar e excluir ou até mesmo inserir foto no currículo dele, sem ter acesso aos outros curriculos cadastrados. Alguém poderia me ajudar. Outra dúvida é como posso fazer o cadastro ser como passos. Ex.: primeira cadastra login e senha, depois clica em próximo cadastra dados pessoais, depois cadastrar informações referente a experiencia, etc. Porém tudo gravado em um mesmo ID. Alguém poderia me ajudar? Sds, Vagner Nunes
-
Prezados, Gostaria de saber como posso Rotear Modem SpeedStream 4220 da Siemens, já peguei três tutoriais e não consegui rotear. Alguém poderia me ajudar? Sds, Vagner Nunes
-
Prezado, Estou tentando trabalhor com o Dreamweaver e ASP.NET, mas não consigo. Crio a página até aí beleza, roda direitinho, mas quando vou fazer uma conexão e utilizo as funções INSERT a página apresenta erro. Todas as páginas aparece com o erro abaixo: Segue codigo da página: <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %> <%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %><MM:Insert runat="server" CommandText='<%# "INSERT INTO cadastros (bairro, email, endereco, estado, nome, telefone) VALUES (?, ?, ?, ?, ?, ?)" %>' ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_Conexao") %>' DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_Conexao") %>' Expression='<%# Request.Form("MM_insert") = "form1" %>' CreateDataSet="false" SuccessURL='<%# "sucesso.aspx" %>' Debug="true" ><Parameters> <Parameter Name="@bairro" Value='<%# IIf((Request.Form("bairro") <> Nothing), Request.Form("bairro"), "") %>' Type="WChar" /> <Parameter Name="@email" Value='<%# IIf((Request.Form("email") <> Nothing), Request.Form("email"), "") %>' Type="WChar" /> <Parameter Name="@endereco" Value='<%# IIf((Request.Form("endereco") <> Nothing), Request.Form("endereco"), "") %>' Type="WChar" /> <Parameter Name="@estado" Value='<%# IIf((Request.Form("estado") <> Nothing), Request.Form("estado"), "") %>' Type="WChar" /> <Parameter Name="@nome" Value='<%# IIf((Request.Form("nome") <> Nothing), Request.Form("nome"), "") %>' Type="WChar" /> <Parameter Name="@telefone" Value='<%# IIf((Request.Form("telefone") <> Nothing), Request.Form("telefone"), "") %>' Type="WChar" /> </Parameters> </MM:Insert> <MM:PageBind runat="server" PostBackBind="true" /> <!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>Untitled Document</title> </head> <body> <table width="800" border="0" align="center"> <tr> <td><form runat='server' id="form1" name='form1' enctype="multipart/form-data" method='POST' action=""> <label></label> <p> </p> <table width="776" border="0"> <tr> <td width="141">Nome: <label></label></td> <td width="625"><input name="nome" type="text" id="nome" size="60" /></td> </tr> <tr> <td>E-mail: </td> <td><input name="email" type="text" id="email" size="50" /></td> </tr> <tr> <td>Telefone:</td> <td><input name="telefone" type="text" id="telefone" /></td> </tr> <tr> <td>Endereço:</td> <td><textarea name="endereco" cols="40" rows="5" id="endereco"></textarea></td> </tr> <tr> <td>Bairro:</td> <td><input name="bairro" type="text" id="bairro" /></td> </tr> <tr> <td>Estado: </td> <td><select name="estado" id="estado"> <option value="" selected="selected">Estado</option> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SP">SP</option> <option value="TO">TO</option> </select></td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="Incluir" /></td> </tr> </table> <p><br /> <br /> <label></label> </p> <input type="hidden" name="MM_insert" value="form1"> </form></td> </tr> <tr> <td> </td> </tr> </table> <p> </p> </body> </html>
-
Obrigado pela dica.
-
Prezados, Como faço para fazer uma conexão com o banco? Posso utilizar o Acces para trabalhar com ASP.NET? Consigo criar páginas em ASP.NET, visualizo legal em minha máquina, mas quando quero interagir com um banco qualquer a página apresenta erro. Como faço páginas com acesso a banco com o ASP.NET. Sds, Vagner Nunes
-
beleza, funcionou certinho. Valeu pessoal....
-
Prezados, Tenho um formulário de inscrição de alunos e este formulário faz a inserção e envia e-mail para o responsável que recebe as inscrições, encaminha uma cópia para a pessoa que fez o cadastro e grava em banco. Gostaria que, após, o aluno clicar no em inscrição, aparecer no na página inscricao_pos.asp as algumas informações, nesta página do tipo matricula, nome, agendamento de prova, data, etc. Para o cara imprimir, como se fosse um comprovante de inscrição para ele. Ex. inscricao.asp >> inscricao_pos.asp (nesta página aparecer alguns dados desta inscrição que acabou de ser feita. Alguém poderia me ajudar? Sds, Vagner Nunes
-
Prezado, Gostaria de saber se consigo trabalhar ASP.NET com o Dreamweaver. Se possível haveria possibilidade de indicar alguns tutoriais, desde conexão, até INSERT, UPLOAD, DELETE, UPDATE, etc. Sds, Vagner Nunes
-
Prezados, Boa tarde. Gostaria de saber dos senhores se alguém possui algum script em ASP ou PHP (exemplo: http://www.datahosting.com.br/divulgador/) free para fazer uma divulgação de sites em buscadores nacionais e internacionais. E um outro script em ASP ou PHP que faça uma busca de disponibilidade de domínios, desses que existem nessas páginas de hospedagem de site. Sds, Vagner Nunes
-
Obrigado pelos esclarecimentos!