Erro AspMail

[regitronic 0]

Gente to tentando envia um formulario de e-mail pelo aspmail mas num to conseguindo, é a primeira vez que uso o aspmail então não tenho muita noção a pagina é a seguinte:

 

<!--#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")&"
           </td>
<td>"
mail = mail&        response.Write rs("nome")&"
 </td>
       <td>"
mail = mail&	   response.Write rs("quantidade")&"
          </td>
 <td>"
mail = mail& response.Write rs("valor")&"
        </td>
 </tr>
<tr>"
                   rs.MoveNext 	
				   loop 
mail = mail&"        <td> </td>"
mail = mail&"        <td> </td>"
mail = mail&"        <td> </td>"
mail = mail&"        <td> </td>"
mail = mail&"      </tr>"
mail = mail&"    </table></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height=""19"" bgcolor=""#003466""> </td>"
mail = mail&"  </tr>"
mail = mail&"  </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 = "Atacado"   
Mail.AddAddress Request.form("mail")   
Mail.AddAddress "diniz@meuserver.com.br"      
Mail.Subject = "Seu pedido no Atacado foi Recebido"   
Mail.Body = mail   
Mail.Send  
Response.Write "Sucesso!"
End If
%>

 

O erro que dá e o seguinte:

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")&"

--------------------------------------------------^

 

[xanburzum 169]

dá um response.write na sua string SQL para ver o k esta sendo passado, pois esta dando erro no recordset

[regitronic 0]

então veio os dados certinho, a conexão com o banco ta assim:

<%

constr=server.mappath("bd1.mdb")
banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}"
set conexao=server.createobject("adodb.connection")
conexao.open banco

%>

[xanburzum 169]

naun gera nenhum erro, linha ?!?!

[regitronic 0]

quando eu removi os response.write do mail = mail num gero não so escreveu os valores do banco na tela e num fez mais nda

[regitronic 0]

cara resolvi o problema, o problema estava no nome da variavel eu coloquei mail.body = mail então não estava reconhecendo, troquei para corpo e foi mais ou menos certo.

o X agora é que envia o codigo fonte sem interpreta-lo. olha oq aparece no e-mail:

 

<style type="text/css"> <!-- .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } --> </style> <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 rs.eof response.Write rs("codigo")  </td><td> response.Write rs("nome") </td> <td> response.Write rs("quantidade")  </td> <td> response.Write rs("valor")  </td> </tr><tr> rs.MoveNext loop <td> </td> <td> </td> <td> </td> <td> </td> </tr> </table></td> </tr> <tr> <td height="19" bgcolor="#003466"> </td> </tr> </table>

 

[regitronic 0]

agora aparece a tabela tudo so que num recupera os dados do banco! nos lugares onde era para aparecer os dados aparece escrito os response.w.... sabe como resolver isso?

[xanburzum 169]

dá um response.write na sua string SQL para ver o k esta sendo passado

[regitronic 0]

quando eu tiro do corpo = corpo e do o response passa certinho os valores do banco q são : codigo = 4, Nome = Caldeirão, Quantidade=100, valor = 100

[xanburzum 169]

reveja a sintaxe do conteudo em corpo

[regitronic 0]

então, eu comecei minha faculdade de programação web a um ano e não vi essa parte ainda! eu coloquei assim corpo=corpo&"response.write rs("codigo")" eu tenho que incluir o select no corpo tb?

[regitronic 0]

cara consegui fazer recuperar o valor mas como faço para ele mostrar todos pq so aparece o primeiro valor com do while not da erro!

[xanburzum 169]

abaixo um exemplo, e você precisa ver a string SQL , pois se ela tiver todos os critérios ok ela tras somente esses

 

'crio a conexao%>
 <!--#include file="conn/conexao1.asp"--> 
<% call abreconexao
			
  'crio o rs
  set rs=Server.CreateObject("ADODB.Recordset")
  'crio o SQL
  SQL="SELECT * FROM pedidos WHERE num_pedido='"&request.QueryString("num_pedido")&"' AND cod_cliente='"&request.QueryString("cod")&"' AND vendedor='"&request.QueryString("nome")&"'")"
  rs.open SQL,conexao,1,3
<TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Login</B></FONT></DIV></TD><TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Senha</B></FONT></DIV></TD><TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Email</B></FONT></DIV></TD><TD WIDTH="20%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Atualizar</B></FONT></DIV></TD><TD WIDTH="24%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Excluir</B></FONT></DIV></TD></TR> 
<%  while not rs.eof%> 
<TR> <TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("login")%></B></FONT></DIV></TD><TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("senha")%></B></FONT></DIV></TD><TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("email")%></B></FONT></DIV></TD><TD WIDTH="20%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="atualizar_form_treina.asp?codigo=<%=rs("codigo")%>">Atualizar</A></B></FONT></DIV></TD><TD WIDTH="24%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><A HREF="excluir_form_treina.asp?codigo=<%=rs("codigo")%>">Excluir</A></B></FONT></DIV></TD>