cdonts

kadix · Julho 21, 2003

Preciso enviar os dados dessa página por email, mas não sei como capturar os dados do bd e incluir no email. Se fosse só um formulário, dava certo usando request.form... mas nesse caso abaixo, alguém tem uma luz?================================1. Página com os dados a serem enviados================================<%@ LANGUAGE = "VBScript" %><%fname=request.form("fname")lname=request.form("lname")address1=request.form("address1")cpfcnpj=request.Form("cpfcnpj")rgie=request.Form("rgie")email=request.Form("email")empresa=request.Form("empresa")city=request.form("city")state=request.form("state")zip=request.form("zip")if session("custid")="" or session("custid")=null then response.redirect("login.asp")end ifIf IsArray(Session("cart")) = false Then Dim acart(19,1) Session("cart") = acart response.redirect("error.asp?msg=" & Server.URLEncode("Não há itens no seu orçamento."))end ifacart=Session("cart")cempty=truefor i=lbound(acart) to ubound(acart) if acart(i,0)<>"" and acart(i,1)<>"" then cempty=false end ifnextif cempty then response.redirect("review.asp")end if set rscust=db.execute("select * from customers where custid=" & Session("custid")) if rscust.eof then response.redirect("error.asp?msg=" & Server.URLEncode("Não foi possível processar a informação")) end if %>=============================================AQUI COMEÇA OS DADOS QUE DEVEM SER ENVIADOS POR EMAIL=============================================<html><head><title><%= storename %></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text="<%= text %>" alink="<%= alink%>" link="<%= link %>" vlink="<%= vlink %>"><font face="arial"><% header categorymenu%><center><br><table width="101%" border=0 align="center"> <tr> <td width="73%" valign=top><p align="center"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">Solicitação de Orçamento <strong><br> </strong><font color="#003366" size="1" face="Arial, Helvetica, sans-serif">· Verifique se o seu pedido está correto.</font><font face="Arial, Helvetica, sans-serif"><strong> </strong></font></font> <table width=75% border="1" align="center" cellspacing=2 bordercolor="#FFFFFF"> <tr bordercolor="#333333" bgcolor="#666666"> <td width="94" align="center"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Remover</font></div></td> <td width="84" align="center"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Marca</font></div></td> <td width="118" align="left"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Produto </font></div></td> <td width="63" align="center"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Quantidade </font></div></td> </tr> <% acart=session("cart") subtotal=0 for i=lbound(acart) to ubound(acart) if acart(i,0)<>"" and acart(i,1)<>"" then set rscart=db.execute("select name,productid, catcode from products where productid=" & acart(i,0)) %> <tr bordercolor="#CCCCCC"> <td align="center"><a href="alter.asp?item=<%=i %>&action=delete&redir=payment"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">remover</font></a></td> <td align="center"><td align="left"><font face=helvetica size=2> <div align="center"><a href="produto.asp?productid=<%=rscart("productid") %>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rscart("name") %></font></a><br> </div> </font></td> <td align="center"><font face=helvetica size=2><%= acart(i,1) %></font></td> </tr> <% subtotal=subtotal+(currentprice * acart(i,1)) end if next tax=subtotal*taxrate/100 %> </table> <font face="helvetica" size="6" color="<%= COLdark %>"> <form action="envia_email.asp" method="post"><div align="center"> <font face="helvetica" size="6" color="<%= COLdark %>"> <table width="75%" border=1 align="center" cellpadding="0" cellspacing="2" bordercolor="#FFFFFF"> <tr> <td width="510" bordercolor="#333333" bgcolor="#666666"><font color="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Seus Dados:</font> </font><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td> </tr> <tr> <td bgcolor="#666666"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#666666" size="1">· Verifique se seus dados estão corretos.</font></font></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="24%"><div align="right"><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Nome: </font></div></td> <td width="76%"><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("fname") & " " & rscust("lname") %></font></td> </tr> <tr> <td><div align="right"><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Cpf /Cnpj:</font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("cpfcnpj")%></font></td> </tr> <tr> <td><div align="right"><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Rg/IE: </font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("rgie")%></font></td> </tr> <tr> <td><div align="right"><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Empresa: </font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("empresa")%></font></td> </tr> <tr> <td><div align="right"><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Endereço: </font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("address1") %></font></td> </tr> <tr> <td><div align="right"><font color="#333333" face="Arial, Helvetica, sans-serif"><font size="1">Email: </font></font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("email") %></font></td> </tr> <tr> <td><div align="right"><font color="#333333" face="Arial, Helvetica, sans-serif"><font size="1">Cidade: </font></font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("city") %></font></td> </tr> <tr> <td><div align="right"><font color="#333333" face="Arial, Helvetica, sans-serif"><font size="1">Cep: </font></font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("state") & " " & rscust("zip") %></font></td> </tr> <tr> <td><div align="right"><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Telefone: </font></div></td> <td><font color="#003366" size="1" face="Arial, Helvetica, sans-serif"><%= rscust("phone") %></font></td> </tr> </table></td> </tr> </table> </font> <div align="center"><a href="cadastro.asp"><img src="imagens/Editar.gif" alt="Editar Dados" width="90" height="23" border="0"></a> <input name="image" type=image src="imagens/Enviar.gif" alt="Enviar" width="90" height="23" border=0> <input type="hidden" name="hiddenField" value="<%= Request.ServerVariables("REMOTE_ADDR")%>"> </div> </form> </font></td></table><% footer %></body></html><%db.closeset db=nothing%>=================2.PÁGINA ENVIA EMAIL=================<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%str_nome = trim(request.form("nome"))str_email = trim(request.form("email"))str_ip = trim(request.form("hiddenField"))str_mensagememail = "" & str_mensagem & "<br><br>IP: " & str_ip & ""set mensagem = server.createobject("CDONTS.NewMail")mensagem.from = str_emailmensagem.to = "kallypso_sp@yahoo.com.br"mensagem.Subject = "Teste de email"mensagem.bodyformat = 0mensagem.mailformat = 0mensagem.Body = str_mensagememailmensagem.SendSet objMail = nothingresponse.write "Sua mensagem foi enviada com sucesso!"%> :D

Salgado · Julho 22, 2003

Pelo que pude notar, você não tem problemas em trabalhar com BD, então vamos lá:

Todos os dados que você está pegando nos requests você os tem no BD? Se positivo ótimo, é só usar os dados do BD.

kadix · Julho 23, 2003

Pelo que pude notar, você não tem problemas em trabalhar com BD, então vamos lá:Todos os dados que você está pegando nos requests você os tem no BD? Se positivo ótimo, é só usar os dados do BD.

sim estão no BD...mas eu não entendi muito bem o que você quis dizer, poderia me dar um exemplo por favor?obrigada :huh:

Salgado · Julho 23, 2003

O que você quer é enviar essa tabela HTML por email?

1º você seta seu "rscust" no inicio da página, troca os "requests.form" pelos campos do BD.

2º Toda essa sua tabela deverá estar em uma variável, "str_mensagememail" como está no código que você mandou:

str_mensagememail="<html><head><title>"& storename &"</title>"
str_mensagememail="<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text=""& text &"" alink=""& alink &"" link=""& link &"" vlink=""& vlink &"">

<font face="arial">"

e por ai vai

3º Depois dessa formatação você insere o código de envio.

Creio der isso.

Valeu?

kadix · Julho 23, 2003

Valeu!vou me virar agora...obrigada! ;)

Salgado · Julho 23, 2003

Opa tem um errinho aqui:

str_mensagememail="<html><head><title>"& storename &"</title>"
str_mensagememail=str_mensagememail & "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text=""& text &"" alink=""& alink &"" link=""& link &"" vlink=""& vlink &"">
<font face="arial">"

Desculpe!

kadix · Julho 25, 2003

Opa tem um errinho aqui:

str_mensagememail="<html><head><title>"& storename &"</title>"str_mensagememail=str_mensagememail & "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text=""& text &"" alink=""& alink &"" link=""& link &"" vlink=""& vlink &""><font face="arial">"

Desculpe!

Oi Salgado

Eu fiquei quebrando a cabeça e ainda não está dando certo pra mim.

Então descobri uma coisa que vou tentar explicar...

Normalmente enviamos um email via CDONTS com as informações vindas de um formulário aí utilizamos o Request.form("algumacoisa") certo?

Como eu preciso das informações vindas do BD eu utilizaria

Fields.Item("algumacoisa") certo ou errado? :ph34r:

Aí está minha dúvida!

Se tiver certo isso

Teria como passar um exemplo de duas ou 3 linhas?

A parte de Html no email eu entendi e agradeço pela ajuda :D

valeu

Salgado · Julho 25, 2003

você pode fazer usando recordset,segue um esemplo:

SQL="select * from customers where custid=" & Session("custid")
set rscust= server.CreateObject("ADODB.RecordSet")
rscust.open SQL,db,adOpenDynamic

if rscust.eof or rscust.bof then
response.redirect("error.asp?msg=" & Server.URLEncode("Não foi possível processar a informação"))
end if

variavel=rscust("nome_campo") ' para pegar os dados do RecordSet

Compreendeu?

QQ coisa grita ae!

Valeu?

Arquivado

cdonts

Recommended Posts

kadix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

kadix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

kadix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

kadix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante