Jump to content

  2. →
  3. →
  4. →

Photo

Inserir Dados No Aspmail

Started By regitronic, 26/11/2009, 09:56

  • Faça o login para participar
5 replies to this topic

#1 regitronic

regitronic

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 26/11/2009, 09:56

Gente eu num sei como inserir dados recuperados do BD no body do AspMail. Olha so eu tenho este codigo de envio.

Codigo de Envio:
<%
strHost = "smtp.meuserver.com.br"
If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost

   Mail.From = "diniz@meuserver.com.br"
   Mail.FromName = "Assunto"
   Mail.AddAddress Request.form("mail")
   Mail.AddCC "diniz@meuserver.com.br"
   Mail.Subject = "Seu pedido no Atacado Regitronic foi Recebido"
   Mail.Body = "Dados"

   Mail.Send
   Response.Write "Sucesso!"
End If
%>

e eu preciso que no e-mail sejam enviados os dados recuperados por esta pagina:

pagina:

<!--#include file="conecta.asp"-->
<% on error resume next %>
<%
pedido = request.Form("pedido")
set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&pedido&"'")

%>
<style type="text/css">
<!--
.style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }
-->
</style>
<form id="form1" name="form1" method="post" action="mailto: diniz@regitronic.com.br, ">
  <table width="800" height="529" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="135"><img src="top.jpg" width="800" height="135" /></td>
    </tr>
    <tr>
      <td height="347"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
        <tr>
          <td width="13%"><div align="center" class="style2">CODIGO</div></td>
          <td width="59%"><div align="center" class="style2">NOME</div></td>
          <td width="17%"><div align="center" class="style2">QUANTIDADE</div></td>
          <td width="11%"><div align="center" class="style2">VALOR</div></td>
        </tr>
        <tr>
          <td><% do while not rs2.eof %>
		  <% response.Write rs("codigo") %>
            &nbsp;</td>
          <td><% response.Write rs("nome") %>
            &nbsp;</td>
          <td><% response.Write rs("quantidade") %>
            &nbsp;</td>
          <td><% response.Write rs("valor") %>
            &nbsp;</td>
        </tr>
        <tr><% rs2.MoveNext
		loop %>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table></td>
    </tr>
    <tr>
      <td height="19" bgcolor="#003466">&nbsp;</td>
    </tr>
  </table>
</form>
Como faço para fazer os dados recuperados nesta pagina serem enviados para o e-mail?

#2 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 26/11/2009, 10:32 

<%

mail= "<table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">    <tr>      <td height=""135"">"

mail= mail&"<img src=""top.jpg"" width=""800"" height=""135"" /></td>    </tr>    <tr>      <td height=""347""><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">        <tr>          <td width=""13%"">"

mail= mail&"<div align=""center"" class=""style2"">CODIGO</div></td>          <td width=""59%""><div align=""center"" class=""style2"">NOME</div>"

mail= mail&"</td>          <td width=""17%"">"

mail= mail&"<div align=""center"" class=""style2"">QUANTIDADE</div></td>          <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>        </tr>        <tr>          <td>"

do while not rs2.eof

mail= mail&response.Write rs("codigo")&"             </td>          <td>"&response.Write rs("nome")&"             </td>          <td>"&response.Write rs("quantidade")&"             </td>          <td>"&response.Write rs("valor")&"             </td>        </tr>"

mail= mail&"        <tr>"

rs2.MoveNext                loop

mail= mail&"<td> </td>          <td> </td>          <td> </td>          <td> </td>        </tr>      </table></td>    </tr>    <tr>      <td height=""19"" bgcolor=""#003466""> </td>    </tr>  </table>"

%>



<%

strHost = "smtp.meuserver.com.br"

If Request("Send") <> "" Then

   Set Mail = Server.CreateObject("Persits.MailSender")

      Mail.Host = strHost

	  Mail.From = "diniz@meuserver.com.br"   

	  Mail.FromName = "Assunto"   

	  Mail.AddAddress Request.form("mail")   

	  Mail.AddCC "diniz@meuserver.com.br"   

	  Mail.Subject = "Seu pedido no Atacado Regitronic foi Recebido"   

	  Mail.Body = mail   

	  Mail.Send   

	  Response.Write "Sucesso!"

End If

%>

Edição feita por: Humberto - S.O.S., 26/11/2009, 10:32.

...

#3 regitronic

regitronic

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 26/11/2009, 13:29

cara eu fiz assim mas num deu certo:
<!--#include file="conecta.asp"-->
<%
set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&request.QueryString("num_pedido")&"' AND cod_cliente='"&request.QueryString("cod")&"' AND vendedor='"&request.QueryString("nome")&"'")
%>
mail = mail&" <style type="text/css"> "
mail = mail&" <!--"
mail = mail&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }"
mail = mail&" -->"
mail = mail&" </style>"
mail = mail&"<table width="800" height="529" border="0" align="center" cellpadding="0" cellspacing="0">"
mail = mail&"  <tr>"
mail = mail&"    <td height="135"><img src="top.jpg" width="800" height="135" /></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height="347"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">"
mail = mail&"      <tr>"
mail = mail&"        <td width="13%"><div align="center" class="style2">CODIGO</div></td>"
mail = mail&"        <td width="59%"><div align="center" class="style2">NOME</div></td>"
mail = mail&"        <td width="17%"><div align="center" class="style2">QUANTIDADE</div></td>"
mail = mail&"        <td width="11%"><div align="center" class="style2">VALOR</div></td>"
mail = mail&"      </tr>"
mail = mail&"      <tr>"
mail = mail&"        <td><% do while not rs.eof %>"
mail = mail&"              <% response.Write rs("codigo") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"        <td><% response.Write rs("nome") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"        <td><% response.Write rs("quantidade") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"        <td><% response.Write rs("valor") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"      </tr>"
mail = mail&"      <tr>"
                   <% rs.MoveNext 	
				   loop %>
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"      </tr>"
mail = mail&"    </table></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height="19" bgcolor="#003466">&nbsp;</td>"
mail = mail&"  </tr>"
mail = mail&"  </table>"

<%
strHost = "smtp.regitronic.com.br"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "diniz@regitronic.com.br"   
Mail.FromName = "Atacado Regitronic"   
Mail.AddAddress Request.form("mail")   
Mail.AddCC "diniz@regitronic.com.br"   
Mail.Subject = "Seu pedido no Atacado Regitronic foi Recebido"   
Mail.Body = mail   
Mail.Send  
Response.Write "Sucesso!"
End If
%>
fica cheio de mail = mail&" a pagina

correção fiz assim agora


<!--#include file="conecta.asp"-->
<%
set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&request.QueryString("num_pedido")&"' AND cod_cliente='"&request.QueryString("cod")&"' AND vendedor='"&request.QueryString("nome")&"'")
%>
<%
mail = mail&" <style type=""text/css""> "
mail = mail&" <!--"
mail = mail&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }"
mail = mail&" -->"
mail = mail&" </style>"
mail = mail&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
mail = mail&"  <tr>"
mail = mail&"    <td height=""135""><img src=""top.jpg"" width=""800"" height=""135"" /></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height=""347""><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
mail = mail&"      <tr>"
mail = mail&"        <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>"
mail = mail&"        <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>"
mail = mail&"        <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>"
mail = mail&"        <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>"
mail = mail&"      </tr>"
mail = mail&"      <tr>"
mail = mail&"        <td>"
	                   do while not rs.eof 
mail = mail&                        response.Write rs("codigo")&&"
          &nbsp;</td>
<td>"
mail = mail&        response.Write rs("nome")&&"
&nbsp;</td>
       <td>"
mail = mail&	   response.Write rs("quantidade")&&"
         &nbsp;</td>
 <td>"
mail = mail& response.Write rs("valor")&&"
       &nbsp;</td>
 </tr>
<tr>"
                   rs.MoveNext 	
				   loop 
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"      </tr>"
mail = mail&"    </table></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height=""19"" bgcolor=""#003466"">&nbsp;</td>"
mail = mail&"  </tr>"
mail = mail&"  </table>"
%>
<%
strHost = "com.br"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = ""   
Mail.FromName = ""   
Mail.AddAddress Request.form("mail")   
Mail.AddAddress ""      
Mail.Subject = ""   
Mail.Body = mail   
Mail.Send  
Response.Write "Sucesso!"
End If
%>

aparece:
Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/enviamail.asp, line 26, column 51
mail = mail& response.Write rs("codigo")&&"
--------------------------------------------------^

#4 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 26/11/2009, 22:56

apague um "&" (e comercial)
DE:
mail = mail& response.Write rs("nome")&&"
PARA:
mail = mail& response.Write rs("nome")&"

faça isso em todas linhas, e nos responda se a resposta foi util, rs
...

#5 regitronic

regitronic

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 27/11/2009, 08:21

fala humberto então, após muito quebrar a cabeça vi que estava no nome que atribui a variavel mail.body que no caso é mail, após alterar para corpo o e-mail foi enviado com um pequeno porem, ele não está recuperando os valores no bd, na celula da tabela onde deveriam aparece os valores do bd estão aparecendo response.write rs("nome")....sabe como resolver isso? o codigo completo ficou assim.

<!--#include file="conecta.asp"-->
<%
set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&request.QueryString("num_pedido")&"' AND cod_cliente='"&request.QueryString("cod")&"' AND vendedor='"&request.QueryString("nome")&"'")
%>
<%
corpo = corpo&" <style type=""text/css""> "
corpo = corpo&" <!--"
corpo = corpo&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }"
corpo = corpo&" -->"
corpo = corpo&" </style>"
corpo = corpo&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td height=""135""><img src=""top.jpg"" width=""800"" height=""135"" /></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td height=""347""><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>"
corpo = corpo&"        <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>"
corpo = corpo&"        <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>"
corpo = corpo&"        <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>"
corpo = corpo&"      </tr>"
corpo = corpo&"      <tr>"
corpo = corpo&"        <td>"
corpo = corpo&"     do while not rs.eof "
corpo = corpo&"                     response.Write rs(""codigo"")"
corpo = corpo&"          &nbsp;</td>"
corpo = corpo&"<td>"
corpo = corpo&"                     response.Write rs(""nome"")"
corpo = corpo&"&nbsp;</td>"
corpo = corpo&"       <td>"
corpo = corpo&"           	   response.Write rs(""quantidade"")"
corpo = corpo&"         &nbsp;</td>"
corpo = corpo&" <td>"
corpo = corpo&" response.Write rs(""valor"")"
corpo = corpo&"       &nbsp;</td>"
corpo = corpo&" </tr>"
corpo = corpo&"<tr>"
corpo = corpo&"                   rs.MoveNext 	"
corpo = corpo&"				   loop "
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"        <td>&nbsp;</td>"
corpo = corpo&"      </tr>"
corpo = corpo&"    </table></td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  <tr>"
corpo = corpo&"    <td height=""19"" bgcolor=""#003466"">&nbsp;</td>"
corpo = corpo&"  </tr>"
corpo = corpo&"  </table>"


set mail = server.createObject("Persits.MailSender")
mail.host = "smtp.meuserver.com.br"
mail.username = "teste@meuserver.com.br"
mail.password = "minha senha"
mail.from = " nome@meuserver.com.br"
mail.fromname = "Meu Nome"
mail.addAddress request.Form("mail")
mail.addAddress "e-mail@meuserver.com.br"
mail.Subject = "meu assunto"
Mail.Body = corpo
mail.ishtml = true
On Error Resume Next
mail.send
if Err ><0 then
response.write "Erro, não pode completar a operação"
else
response.redirect("inicial.asp")
end if
%>

#6 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 27/11/2009, 09:43

caro colega,
ali no codigo o script asp esta atribuido como texto por isso ele mostra response.Write rs(""valor"") no lugar do valor.

ERRADO!:
corpo = corpo&" response.Write rs(""valor"")"
CORRETO:
corpo = corpo&rs("valor")

entendeu?, faça isso em todas linhas que segue o mesmo conceito.
...
Voltar para Componentes relacionados a ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. → Componentes relacionados a ASP
  5. Privacy Policy
  6. Regras ·
IPB Skin By Virteq