Vagner Nunes

Prezados, Boa noite. Minha máquina as vezes da uma tela azul, com a seguinte inscrição: DRIVER IRQL NOT LESS OR EQUAL Memoria esta nova, as vezes o erro acontece, e as vezes a máquina funciona normalmente. O mais curioso é que minhas duas máquinas estão apresentando este erro. Usei o mesmo CD de instalação. Sds, Vagner Nunes

Como faço para fazer desta maneira?

Prezados, Boa tarde. Fiz um controle de estoque em ASP que funciona da seguinte maneira. O usuário acessar, daí abri uma página de identificação, onde ele digita nome do setor e senha, clica em acessar, se login e senha estiver cadastrado ele acessar o formulário de envio de solicitação de material. Até aí tudo bem, porém neste mesmo formulário tem uma opção onde o usuário seleciona o setor dele para visualizar o andamento do pedido, se foi atendido, não atendido ou em atendimento. Porém se ele selecionar um outro setor que não o dele, ele terá acesso também a solicitação de outros setores. O que eu queria era o seguinte: que o usuário de um determinado setor só visualizasse o setor dele, e quando tentasse visualizar um outro setor, aparecer uma mensagem do tipo "acesso negado". etc. Teria como alguém me ajudar? Sds, Vagner Nunes

Beleza pessoal, Vou tentar aqui, depois postarei os resultados. Sds, Vagner Nunes

Prezados, Bom dia. Gostaria da ajuda dos senhores mais uma vez, tenho um sistema de envio de e-mail de e-mails cadastrados no banco, está funcionando ok, porém gostaria d criar um filtro do tipo só enviar e-mail para alunos do curso de letras, por exemplo. Nome dos campos: curso | email. Segue abaixo o código que envia para todos os e-mails do banco. <% ' Declaring variables Dim rs, mail, subject, message, data_source, sql_select, no no = 0 subject = Request.Form("subject") message = Request.Form("message") ' Adding a link to all messages by which users can delete their emails ' if they want later message = message & vbcrlf & vbcrlf & "Caso não deseje receber novos e-mails do Núcleo de Estágio do Cesat. Clique aqui para excluir seu cadastro:" message = message & vbcrlf & "http://www.cesat.br/nucleo/administracao/enviar_emails_del.asp?email=" sql_select = "select email from cadastro" data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("../bd/nucleo.mdb") ' Check to see if you have not pressed the 'send' button mistakenly If Len(message) Then ' If you have written some message then lets send it ' You can use ASP Email component of your choice, here I will stick with CDO Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql_select, data_source While Not rs.EOF Set mail = Server.CreateObject("CDONTS.NewMail") mail.From = "nucleodeestagio@cesat.br" mail.To = rs("email") mail.Subject = subject mail.Body = message & rs("email") mail.Send Set mail = Nothing Response.Write "Email enviado para: " & rs("email") & "<br>" no = no + 1 rs.MoveNext Wend ' When messages have been sent to all the users, exit Response.Write "Emails enviado " & no & " Usuários." rs.Close Set rs = Nothing ' Had you pressed the button mistakenly with text area empty, then ' redirect back to the HTML Form Else Response.Redirect "enviar_emails.asp" End If %> Sds, Vagner Nunes

Prezado, Baixei um software indicado por vários usuários, daí criei um CD de inicilização, reiniciei a máquina e o software ficou scaneando por mais ou menos 12 horas. Não encontrou nenhum erro no disco, então podemos descartar a hipotese de erro no disco? Fora isso você poderia me indicar algum software que faça esta varredura e consiga localiza este vírus. Estou utilizando o Avira e ele está dando conta do recado, e o micro até agora não reinicio sozinho até agora. Achei também um tutorial muito interessante também de um software que mostrar até melhor do que o Gerenciador de Tarefas do Windows todos os processos do windows e analisando cada processo verifiquei que existia dois processos meio duvidoso, daí fiz uma busca e consegui eliminar dois processos que acredito eu era vírus. Tinha também um processo de SYSLYN_Update.exe, fui e desabilitei a inicialização do mesmo, e parou até um pouco de reinicializar, acredito que tenha um outro que esteja fazendo isso também, agora preciso saber qual. Sds, Vagner Nunes

Prezados, Bom dia. Preciso da ajuda dos senhores. A minha máquina está reiniciando sozinha, aparece a tel azul com algumas inscrições, geralment se fala que quando aparece a tela azul o problema é memória, hd, etc. Porém quando faço a formatação da máquina fica um bom tempo sem apresentar este problema, então acredito que não seja memória ou qualquer falhar de hardware. Tenho em minha máquina dois HD´s 1 de 80gb e outro de 40. O de 80 instalo todos os pogramas e no de 40 todos os softwares baixados, arquivos de trabalho, etc. E este HD que não tem sistema operacional, nunca foi formatado, talvez é algum virus que tem em algum programa, que ao instala-lo posso infectar o HD que contemha o SO? Estou utilizando um Firewall PC Tools Firewall Plus e o Antivirus Avira FREE. Teria como os senhores me indicar um software que possa resolver o meu problema? Sds, Vagner Nunes

Galera agora funcionou beleza. Obrigado pela ajuda dos senhores. Sds, Vagner Nunes

Prezados, Agora gravou no banco corretamente, tinha errado os nomes dos campos, porém o e-mail não está chegando... Segue formulário teste_email.asp <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conexao.asp" --> <% Dim Setor Dim Setor_numRows Set Setor = Server.CreateObject("ADODB.Recordset") Setor.ActiveConnection = MM_Conexao_STRING Setor.Source = "SELECT * FROM setores" Setor.CursorType = 0 Setor.CursorLocation = 2 Setor.LockType = 1 Setor.Open() Setor_numRows = 0 %> <% Dim Unidade Dim Unidade_numRows Set Unidade = Server.CreateObject("ADODB.Recordset") Unidade.ActiveConnection = MM_Conexao_STRING Unidade.Source = "SELECT * FROM medida" Unidade.CursorType = 0 Unidade.CursorLocation = 2 Unidade.LockType = 1 Unidade.Open() Unidade_numRows = 0 %> <% Dim Pedido Dim Pedido_numRows Set Pedido = Server.CreateObject("ADODB.Recordset") Pedido.ActiveConnection = MM_Conexao_STRING Pedido.Source = "SELECT * FROM produtos" Pedido.CursorType = 0 Pedido.CursorLocation = 2 Pedido.LockType = 1 Pedido.Open() Pedido_numRows = 0 %> <HTML> <HEAD> <TITLE>CESAT</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style2 {font-size: 10px} --> </style> </HEAD> <BODY BGCOLOR=#F1F1F1 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <div align="center"> <center> <TABLE WIDTH=777 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0 bgcolor="White"> <TR> <TD width="777" height="307" align="center" valign="top"> <div align="justify" style="width:96%"> <br> <form action="teste_email_sucesso.asp?op=1" method="get" name="form1"> <table border="0" width="73%" cellpadding="0" cellspacing="0"> <tr> <td width="100%"><br> <div align="center"> <table border="0" cellpadding="2" cellspacing="0" width="446"> <tr> <td width="20%" align="right"><font face="Arial" size="2"><b><font color="#666666">Solicitante:</font>&nbsp;</b></font></td> <td><span class="style2"> <input type="text" name="solicitante" value="" size="56"> </span></td> </tr> <tr> <td align="right"><font face="Arial" size="2"><b><font color="#666666">Setor</font><font color="#666666">:&nbsp;</font></b></font></td> <td><select name="setor" id="setor"> <% While (NOT Setor.EOF) %><option value="<%=(Setor.Fields.Item("setor").Value)%>"><%=(Setor.Fields.Item("setor").Value)%></option> <% Setor.MoveNext() Wend If (Setor.CursorType > 0) Then Setor.MoveFirst Else Setor.Requery End If %> </select></td> </tr> <tr> <td align="right"><font face="Arial" size="2"><b><font color="#666666">Pedido:&nbsp;</font></b></font></td> <td><select name="pedido" id="pedido"> <% While (NOT Pedido.EOF) %><option value="<%=(Pedido.Fields.Item("produto").Value)%>"><%=(Pedido.Fields.Item("produto").Value)%></option> <% Pedido.MoveNext() Wend If (Pedido.CursorType > 0) Then Pedido.MoveFirst Else Pedido.Requery End If %> </select></td> </tr> <tr> <td valign="top" align="right"><font face="Arial" size="2"><b><font color="#666666">Quantidade&nbsp;</font></b></font></td> <td><span class="style2"> <label> <select name="quantidade" id="quantidade"> <option value="1">1</option> <option value="2">2</option> <option value="3">3</option> <option value="4">4</option> <option value="5">5</option> <option value="6">6</option> <option value="7">7</option> <option value="8">8</option> <option value="9">9</option> <option value="10">10</option> <option value="11">11</option> <option value="12">12</option> <option value="13">13</option> <option value="14">14</option> <option value="15">15</option> <option value="16">16</option> <option value="17">17</option> <option value="18">18</option> <option value="19">19</option> <option value="20">20</option> <option value="21">21</option> <option value="22">22</option> <option value="23">23</option> <option value="24">24</option> <option value="25">25</option> <option value="26">26</option> <option value="27">27</option> <option value="28">28</option> <option value="29">29</option> <option value="30">30</option> <option value="31">31</option> <option value="32">32</option> <option value="33">33</option> <option value="34">34</option> <option value="35">35</option> <option value="36">36</option> <option value="37">37</option> <option value="38">38</option> <option value="39">39</option> <option value="40">40</option> <option value="41">41</option> <option value="42">42</option> <option value="43">43</option> <option value="44">44</option> <option value="45">45</option> <option value="46">46</option> <option value="47">47</option> <option value="48">48</option> <option value="49">49</option> <option value="50">50</option> <option value="51">51</option> <option value="52">52</option> <option value="53">53</option> <option value="54">54</option> <option value="55">55</option> <option value="56">56</option> <option value="57">57</option> <option value="58">58</option> <option value="59">59</option> <option value="60">60</option> <option value="61">61</option> <option value="62">62</option> <option value="63">63</option> <option value="64">64</option> <option value="65">65</option> <option value="66">66</option> <option value="67">67</option> <option value="68">68</option> <option value="69">69</option> <option value="70">70</option> <option value="71">71</option> <option value="72">72</option> <option value="73">73</option> <option value="74">74</option> <option value="75">75</option> <option value="76">76</option> <option value="77">77</option> <option value="78">78</option> <option value="79">79</option> <option value="80">80</option> <option value="81">81</option> <option value="82">82</option> <option value="83">83</option> <option value="84">84</option> <option value="85">85</option> <option value="86">86</option> <option value="87">87</option> <option value="88">88</option> <option value="89">89</option> <option value="90">90</option> <option value="91">91</option> <option value="92">92</option> <option value="93">93</option> <option value="94">94</option> <option value="95">95</option> <option value="96">96</option> <option value="97">97</option> <option value="98">98</option> <option value="99">99</option> <option value="100">100</option> </select> </label> <label> <select name="unidade" id="unidade"> <% While (NOT Unidade.EOF) %> <option value="<%=(Unidade.Fields.Item("unidade").Value)%>"><%=(Unidade.Fields.Item("unidade").Value)%></option> <% Unidade.MoveNext() Wend If (Unidade.CursorType > 0) Then Unidade.MoveFirst Else Unidade.Requery End If %> </select> </label> </span></td> </tr> </center> <tr> <td valign="top" align="right" colspan="2"><div align="left"> <input name="situacao" type="hidden" id="situacao" value="não" /> <input name="email" type="hidden" id="email" value="gouarts@gouarts.com"> </div></td> </tr> <tr> <td valign="top" align="right" colspan="2"> <p align="center"><br> <input type="Submit" value=" Enviar " name="Submit1" class="box">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value=" Limpar " name="reset1" class="box">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td> </tr> <tr> <td valign="top" align="right" colspan="2"> <p align="left"></td> </tr> </table> </div> <center> <p align="center"> </center> </td> </tr> </table> <p>&nbsp;</p> <p>&nbsp;</p> </form> </TD> </TR> </TABLE> <BR> </BODY> </HTML> <% Setor.Close() Set Setor = Nothing %> <% Unidade.Close() Set Unidade = Nothing %> <% Pedido.Close() Set Pedido = Nothing %> Segue código da página teste_email_sucesso.asp <%@LANGUAGE="VBSCRIPT"%> <!--#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&"')" Set ObjRs = objConn.Execute(strQuery) %> <% 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 = "ogoulart@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "ogoulart@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 %> <HTML> <HEAD> <TITLE>CESAT</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> </HEAD> <BODY BGCOLOR=#F1F1F1 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <div align="center"> <center> <TABLE WIDTH=777 BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="White"> <TR> <TD width="777" height="331" align="center" valign="top"> <div align="justify" style="width:96%"> <br> <font class="textogeraltitulo"><BR> <strong><font face="Verdana, Arial, Helvetica, sans-serif"><BR></font><font size="4" face="Geneva, Arial, Helvetica, sans-serif">Pedido encaminhado com sucesso! </font></strong></font> <BR> <BR> <center> </center> <BR><BR> </TD> </TR> </TABLE> <BR> </BODY> </HTML>

INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('','','',,'','')

Substitui, porém agora aparece o seguinte erro: Linha 10: Set ObjRs = objConn.Execute(strQuery)

Prezado, Já retirei a linha que era para estar na conexão: Segue abaixo o código sem a linha: <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conexao.asp" --> <% Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao vnome = Request("nom") vtelefone = Request("tel") vemail = Request("ema") vpessoa = Request("pes") strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"',"&vquantidade&",'"&vunidade&"','"&vsituacao&"')" Set ObjRs = objConn.Execute(strQuery) %> <% 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 = "ogoulart@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "ogoulart@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 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 %> <HTML> <HEAD> <TITLE>CESAT</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> </HEAD> <BODY BGCOLOR=#F1F1F1 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <div align="center"> <center> <TABLE WIDTH=777 BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="White"> <TR> <TD width="777" height="331" align="center" valign="top"> <div align="justify" style="width:96%"> <br> <font class="textogeraltitulo"><BR> <strong><font face="Verdana, Arial, Helvetica, sans-serif"><BR></font><font size="4" face="Geneva, Arial, Helvetica, sans-serif">Pedido encaminhado com sucesso! </font></strong></font> <BR> <BR> <center> </center> <BR><BR> </TD> </TR> </TABLE> <BR> </BODY> </HTML> Segue também código do arquivo de conexão conexao.asp <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_Conexao_STRING MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\estoque\bd\estoque.mdb;Persist Security Info=False" %>

Prezado, Está aparecendo o seguinte erro: linha 13: Set ObjRs = objConn.Execute(strQuery) Sds, Vagner Nunes

Tudo bem, então! Valeu!

Valor lá então! '"&vpedido&"' = Texto '"&vsolicitante&"' = Texto '"&vsetor&" = Texto '"&vquantidade&"' = Número '"&vunidade&"' = Texto '"&vsituacao&"' = Texto Sds, Vagner Nunes Prezado, Segue campos do tipos: '"&vpedido&"' = Texto '"&vsolicitante&"' = Texto '"&vsetor&" = Texto '"&vquantidade&"' = Número '"&vunidade&"' = Texto '"&vsituacao&"' = Texto Dei uma mexida no código e agora está apresentando o seguinte erro: Sò modifiquei a linha Set ObjRs = objConn.Execute(strQuery) <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conexao.asp" --> <% pedido = server.createObject("ADODB.Recordset") %> <% Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao vnome = Request("nom") vtelefone = Request("tel") vemail = Request("ema") vpessoa = Request("pes") strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"','"&vquantidade&"','"&vunidade&"','"&vsituacao&"')" Set ObjRs = objConn.Execute(strQuery) %> <% 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 = "ogoulart@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "ogoulart@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 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 %> <HTML> <HEAD> <TITLE>CESAT</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> </HEAD> <BODY BGCOLOR=#F1F1F1 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <div align="center"> <center> <TABLE WIDTH=777 BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="White"> <TR> <TD width="777" height="331" align="center" valign="top"> <div align="justify" style="width:96%"> <br> <font class="textogeraltitulo"><BR> <strong><font face="Verdana, Arial, Helvetica, sans-serif"><BR></font><font size="4" face="Geneva, Arial, Helvetica, sans-serif">Pedido encaminhado com sucesso! </font></strong></font> <BR> <BR> <center> </center> <BR><BR> </TD> </TR> </TABLE> <BR> </BODY> </HTML> Sds, Vagner Nunes

Prezados, Fiz algumas modicações e agora está apresentando o seguinte erro: Segue abaixo o código do arquivo de inserção e e-mail, será que está certo como que estou fazendo? o arquivo com formulário em GET e chama a página teste_email_sucesso.asp para inserção e envio de e-mail <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conexao.asp" --> <% pedido = server.createObject("ADODB.Recordset") %> <% Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao vnome = Request("nom") vtelefone = Request("tel") vemail = Request("ema") vpessoa = Request("pes") strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"','"&vquantidade&"','"&vunidade&"','"&vsituacao&"')" Set ObjRs = pedido.Execute(strQuery) %> <% 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 = "ogoulart@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "ogoulart@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 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 %> <HTML> <HEAD> <TITLE>CESAT</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> </HEAD> <BODY BGCOLOR=#F1F1F1 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <div align="center"> <center> <TABLE WIDTH=777 BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="White"> <TR> <TD width="777" height="331" align="center" valign="top"> <div align="justify" style="width:96%"> <br> <font class="textogeraltitulo"><BR> <strong><font face="Verdana, Arial, Helvetica, sans-serif"><BR></font><font size="4" face="Geneva, Arial, Helvetica, sans-serif">Pedido encaminhado com sucesso! </font></strong></font> <BR> <BR> <center> </center> <BR><BR> </TD> </TR> </TABLE> <BR> </BODY> </HTML> No aguardo, precisava muito resolver esta questão, seria muito grato. Sds, Vagner Nunes

Ok, vou ver se consigo!

Com certeza. Mas o porque destas perguntas...... Não entendi. Senti um tom de ironia em sua colocação. Eu estou participando deste forum para aprender, eu e tantos outros que estão cadastrandos. Sds, Vagner Nunes

Prezados, Boa tarde. Este negócio de envio de e-mail acaba comigo. Criei uma área administrativa de um site de uma faculdade, onde tem a seção de oportunidades para alunos, daí a pessoa que utiliza, me perguntou se tem possibilidade de pegar todos os e-mails dos alunos cadastrados por curso e fazer uma envio de e-mail, mas não tenho a mínima idéia de como começar isso. O que seria então, abrir um formulário de envio de e-mail, selecionar um curso específico, daí enviar o e-mail para todos os alunos cadastrados do curso de Letras por exemplo. Alguém poderia me ajudar. Vagner Nunes

Prezados, Gostaria de um exemplo de como posso fazer isso, pois tentei aqui diversas vezes e não consegui. Segue abaixo o código de envio de e-mail: <% 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 = "meuemail@dominio.br" ' e-mail de quem vai receber a mensagem mail.CC = "copia@dominio.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("setor") 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 %> O formulário solicita a página pedido_pos.asp, que é onde está o código citado acima. Onde posso chamar a instrução no meu formulário (pedido.asp) Sds, Vagner Nunes

Prezados, Gostaria de saber se no DW conseguiria fazer um formulário que grava os campos em um banco e também encaminhe os mesmo dados do formulário para um determinado e-mail, como posso fazer isso. Alguém poderia me ajudar.... Sds, Vagner Nunes

Prezados, Tenho um formulário onde é feito a gravação normalmente no banco. Porém trava precisando que quando houver uma cadastro por parte de algum usuário, fosse enviado para mim uma alerta para meu e-mail, me comunicando que foi feito mais um cadastro. Tenho a função de envio de e-mail que utilizo aqui no servidor, só não sei como inserir este código de envio de e-mail no meu formulário de cadastro. Sds, Vagner Nunes

Valeu pessoal, já obtive uma resposta. Obrigado. Sds, Vagner Nunes

Valeu Rafael, Funcionou beleza aqui cara. Obrigado. Sds, Vagner Nunes

Prezados, Achei esta função na net em Javascript, e gostaria de saber se há possibilidade de o campo total, desse o resultado em formato de moeda. Ex.: 1.000,00 Segue abaixo a função: <script>function multiplicacao(){ subtotal = document.multi.sub.value; ip = document.multi.ipi.value; document.multi.total.value = subtotal*ip; } </script> <form name="multi"> sub <input type="text" name="sub"> ipi <input type="text" name="ipi"> Total <input type="text" name="total"> <br> <input type="button" value="multiplica" onclick="multiplicacao()"> </form> Seria muito grato. Sds, Vagner NUnes