Cdonts Com Mensagem Html

Cinthia · Novembro 30, 2004

Oi Pessoal,

Esta é moleza pra quem entende de ASP (que não é o meu caso,hehe).

Gostaria de enviar a página abaixo por email, cujo email do destinatário é o campo recipient da página a ser enviada, e o remetente da mensagem é o campo email da mensagem a ser enviada.

Tentei usar os modelos de formulários cdonts que existem na internet, mas como estou iniciando em ASP, tive muitas dúvidas e não consegui.

Por favor, gostaria que alguém montasse pra mim a página com o componente cdonts. Tenho certeza que para quem manja de ASP, vai ser rapidinho e fácil.

Mais uma vez,

Obrigada,

Cinthia

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rsnoiva__MMColParam
rsnoiva__MMColParam = "1"
If Session("MM_Username") <> "" Then
rsnoiva__MMColParam = Session("MM_Username")
End If
Dim rsnoiva
Dim rsnoiva_numRows
Set rsnoiva = Server.CreateObject("ADODB.Recordset")
rsnoiva.ActiveConnection = MM_connportal2_STRING
rsnoiva.Source = "SELECT * FROM noiva WHERE email = '" + Replace(rsnoiva__MMColParam, "'", "''") + "'"
rsnoiva.CursorType = 0
rsnoiva.CursorLocation = 2
rsnoiva.LockType = 1
rsnoiva.Open()
rsnoiva_numRows = 0
%>
<%
Dim rsdetalhes__MMColParam
rsdetalhes__MMColParam = "1"
If (Session("MM_Username") <> "") Then
rsdetalhes__MMColParam = Session("MM_Username")
End If
%>
<%
Dim rsdetalhes
Dim rsdetalhes_numRows
Set rsdetalhes = Server.CreateObject("ADODB.Recordset")
rsdetalhes.ActiveConnection = MM_connportal2_STRING
rsdetalhes.Source = "SELECT * FROM detalhes_trajes_fem WHERE email = '" + Replace(rsdetalhes__MMColParam, "'", "''") + "'"
rsdetalhes.CursorType = 0
rsdetalhes.CursorLocation = 2
rsdetalhes.LockType = 1
rsdetalhes.Open()
rsdetalhes_numRows = 0
%>
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="">
<p align="center"><font size="5"><em>Dados que serão enviados aos anunciantes</em></font></p>
<table>
<tr>
<td colspan="6"><font size="4" color="#FF0000"><i><font size="5">Noiva</font></i></font></td>
</tr>
<tr>
<td width="53"><b><font color="#FF0000">Nome:</font></b></td>
<td colspan="5">
<input name="noiva" type="text" value="<%=(rsnoiva.Fields.Item("Noiva").Value)%>" size="84">
</td>
</tr>
<tr>
<td><b><font color="#FF0000">Email:</font></b></td>
<td colspan="5"> <input name="email" type="text" value="<%response.write Session("MM_Username") %>">
<font size="2" color="#666666">  </font></td>
</tr>
<tr>
<td colspan="6"><table width="100%">
<tr>
<td width="13%"><b><font color="#FF0000">Tel. Res.:</font></b></td>
<td width="25%"><b>(
<input name="ddd" type="text" id="ddd3" value="<%=(rsnoiva.Fields.Item("ddd").Value)%>" size="5">
)
<input name="telefone-res" type="text" id="telefone-res3" value="<%=(rsnoiva.Fields.Item("telefone_res").Value)%>" size="10">
</b></td>
<td width="13%"><div align="right"><strong><font color="#FF0000">Tel.
Com.:</font></strong></div>
</td>
<td width="15%"><input name="tel-comercial" type="text" id="tel-comercial3" value="<%=(rsnoiva.Fields.Item("telefone_com").Value)%>" size="10">
</td>
<td width="12%"><div align="right"><strong><font color="#FF0000">Celular:</font></strong> </div>
</td>
<td width="22%">
<div align="left">
<input name="celular" type="text" id="celular3" value="<%=(rsnoiva.Fields.Item("celular").Value)%>" size="9">
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="6"><table width="100%">
<tr>
<td width="17%"><b><font color="#FF0000">Endereço:</font></b></td>
<td width="59%"><input name="endereco" type="text" id="endereco3" value="<%=(rsnoiva.Fields.Item("endereco").Value)%>" size="50">
</td>
<td width="10%"><div align="right"><strong><font color="#ff0000">n°:</font></strong></div>
</td>
<td width="14%"><input name="numero" type="text" id="numero3" value="<%=(rsnoiva.Fields.Item("numero").Value)%>" size="4">
</td>
</tr>
<tr>
<td><strong><font color="#ff0000">complemento:</font></strong></td>
<td><input name="complemento" type="text" id="complemento3" value="<%=(rsnoiva.Fields.Item("complemento").Value)%>">
</td>
<td><div align="right"><strong><font color="#ff0000">bairro:</font></strong></div>
</td>
<td><input name="bairro" type="text" id="bairro3" value="<%=(rsnoiva.Fields.Item("bairro").Value)%>" size="8">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><b><font color="#FF0000">Cep:</font></b></td>
<td width="114">
<input name="cep" type="text" id="cep3" value="<%=(rsnoiva.Fields.Item("cep").Value)%>" size="10">
</td>
<td width="71"><b><font color="#FF0000">Cidade:</font></b></td>
<td width="197">
<input name="cidade" type="text" id="cidade3" value="<%=(rsnoiva.Fields.Item("cidade").Value)%>" size="15">
</td>
<td width="136" colspan="2"><b><font color="#FF0000">Estado:
<input name="estado" type="text" id="estado" value="<%=(rsnoiva.Fields.Item("estado").Value)%>" size="4">
</font></b> </td>
</tr>
<tr>
<td colspan="6"> </td>
</tr>
<tr>
<td colspan="6"><font color="#0000FF" size="5"><strong><em>Noivo</em></strong></font></td>
</tr>
<tr>
<td colspan="6"><font color="#0033CC"><strong>Nome:
<input name="noivo" type="text" id="noivo" value="<%=(rsnoiva.Fields.Item("Noivo").Value)%>" size="84">
</strong></font></td>
</tr>
<tr>
<td colspan="6"><strong><font color="#0033CC">Email:
<input name="email_noivo" type="text" id="email_noivo" value="<%=(rsnoiva.Fields.Item("email_noivo").Value)%>" size="84">
</font></strong></td>
</tr>
<tr>
<td colspan="6"> </td>
</tr>
<tr>
<td colspan="6"><font size="4"><i><font color="#FF9900" size="5">Seu Casamento</font></i></font></td>
</tr>
<tr>
<td><b><font color="#FF9900">Data:</font></b></td>
<td><b><font color="#FFCC00">
<input name="data" type="text" value="<%=(rsnoiva.Fields.Item("data").Value)%>" size="10">
</font></b></td>
<td><b><font color="#FF9900">Igreja:</font></b></td>
<td colspan="3">
<input name="igreja" type="text" id="igreja3" value="<%=(rsnoiva.Fields.Item("igreja").Value)%>">
</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><font color="#FF9900"><strong>Recepção:</strong></font></td>
<td colspan="3"><input name="recepcao" type="text" id="recepcao3" value="<%=(rsnoiva.Fields.Item("recepcao").Value)%>">
</td>
</tr>
<tr>
<td> </td>
<td><font color="#FF9900"> </font></td>
<td><div align="right"><font color="#FF9900"><strong>horário:</strong></font></div>
</td>
<td colspan="3"><input name="horario" type="text" id="horario" value="<%=(rsnoiva.Fields.Item("horario").Value)%>">
</td>
</tr>
<tr>
<td> </td>
<td colspan="2"><div align="right"><font color="#FF9900"><strong>n° convidados:</strong></font></div>
</td>
<td colspan="3"><input name="convidados" type="text" id="convidados" value="<%=(rsnoiva.Fields.Item("convidados").Value)%>">
</td>
</tr>
</table>
<p><font size="5"><em>Cotações</em></font></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="22%"><strong><font size="2" face="Arial, Helvetica, sans-serif">Produto:</font></strong></td>
<td width="78%" colspan="2"><input name="produto" type="text" id="produto" value="<%=(rsdetalhes.Fields.Item("atividade").Value)%>">
</td>
</tr>
<tr>
<td><strong><font size="2" face="Arial, Helvetica, sans-serif">Estado:</font></strong></td>
<td colspan="2"><input name="estado" type="text" id="estado" value="<%=(rsdetalhes.Fields.Item("estado").Value)%>"></td>
</tr>
<tr>
<td><strong><font size="2" face="Arial, Helvetica, sans-serif">Região:</font></strong></td>
<td colspan="2"><input name="regiao" type="text" id="regiao" value="<%=(rsdetalhes.Fields.Item("regiao").Value)%>"></td>
</tr>
<tr>
<td><strong><font size="2" face="Arial, Helvetica, sans-serif">Quantidade:</font></strong></td>
<td colspan="2"><input name="quantidade" type="text" id="quantidade" value="<%=(rsdetalhes.Fields.Item("qtde").Value)%>">
</td>
</tr>
<tr>
<td><strong><font size="2" face="Arial, Helvetica, sans-serif">Manequim<br>
(tamanho):</font></strong></td>
<td colspan="2"><input name="manequim" type="text" id="manequim" value="<%=(rsdetalhes.Fields.Item("manequim").Value)%>">
</td>
</tr>
<tr>
<td><strong><font size="2" face="Arial, Helvetica, sans-serif">cor:</font></strong></td>
<td colspan="2"><input name="cor" type="text" id="cor" value="<%=(rsdetalhes.Fields.Item("cor").Value)%>">
</td>
</tr>
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Transação:</strong></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif"> 
<input name="transacao" type="text" id="transacao" value="<%=(rsdetalhes.Fields.Item("transacao").Value)%>">
</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif"> 
</font></td>
</tr>
<tr>
<td><strong><font size="2" face="Arial, Helvetica, sans-serif">Mensagem:</font></strong></td>
<td colspan="2"><textarea name="mensagem" id="mensagem"><%=(rsdetalhes.Fields.Item("coments").Value)%></textarea>
</td>
</tr>
<tr>
<td>Recipient</td>
<td><input name="recipient2" type="text" id="recipient2" value="<%=(rsdetalhes.Fields.Item("recipient").Value)%>"></td>
<td> </td>
</tr>
<tr>
<td colspan="3"><div align="center">
<input name="recipient" type="hidden" id="recipient">
<input type="submit" name="Submit" value="Enviar">
<strong></strong></div>
</td>
</tr>
</table>
<p>  </p>
</form>
</body>
</html>
<%
rsnoiva.Close()
Set rsnoiva = Nothing
%>
<%
rsdetalhes.Close()
Set rsdetalhes = Nothing
%>

dark0 · Novembro 30, 2004

Querida, à uns dias atrás, eu criei um tópico exclusivo de Cdonts..

lá tem codigos, links, exemplos, como instalar..

Tudo!

Veja o link:

http://scriptbrasil.com.br/forum/index.php?showtopic=34563

Entrar

Cdonts Com Mensagem Html

Pergunta

Cinthia

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades