Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Link12

Cadastro no BD e envia e-mail automaticamente

Por , em ASP Clássico

Recommended Posts

Link12    0

Link12
Postado

Olá pessoal, eu montei um formulário de cadastro no dreamweaver, que quando ele cadastra os dados ele redireciona-se para uma página onde tem o seguinte codigo:---------------------------INCIO--------------------------------------------<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="../Connections/DADOS.asp" --><%Dim MuralDim Mural_numRowsSet Mural = Server.CreateObject("ADODB.Recordset")Mural.ActiveConnection = MM_DADOS_IPVC_STRINGMural.Source = "SELECT * FROM MURAL ORDER BY ID DESC"Mural.CursorType = 0Mural.CursorLocation = 2Mural.LockType = 1Mural.Open()Mural_numRows = 0%><%set manda = Server.CreateObject("CDONTS.Newmail") manda.To = "E-MAIL" manda.From = "EMAIL"manda.Subject = "Mural de Recado" manda.Body = "Acabou de ser cadastrado um recado no mural com as seguintes informações: "manda.Send Set manda = Nothing %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><table width="260" border="0" cellspacing="2" cellpadding="2"><tr> <td><p align="center"><font size="2" face="Arial"><strong>Seu recado foi enviado com sucesso !</strong></font></p><p align="center"><font size="2" face="Arial">Ele será postado no site assim que for liberado.</font></p><p align="center"><font size="2" face="Arial"><strong>Obrigado por acessar o site !</strong></font></p></td></tr></table><p> </p></body></html><%Mural.Close()Set Mural = Nothing%>---------------------------FINAL--------------------------------------------AGUARDO UMA AJUDA, VALEWWWWW !

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

ninguém ???

 

 

Olá pessoal, eu montei um formulário de cadastro no dreamweaver, que quando ele cadastra os dados ele redireciona-se para uma página onde tem o seguinte codigo:

 

---------------------------INCIO--------------------------------------------

 

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

<!--#include file="../Connections/DADOS.asp" -->

<%

Dim Mural

Dim Mural_numRows

 

Set Mural = Server.CreateObject("ADODB.Recordset")

Mural.ActiveConnection = MM_DADOS_IPVC_STRING

Mural.Source = "SELECT * FROM MURAL ORDER BY ID DESC"

Mural.CursorType = 0

Mural.CursorLocation = 2

Mural.LockType = 1

Mural.Open()

 

Mural_numRows = 0

%>

<%

set manda = Server.CreateObject("CDONTS.Newmail")

manda.To = "E-MAIL"

manda.From = "EMAIL"

manda.Subject = "Mural de Recado"

manda.Body = "Acabou de ser cadastrado um recado no mural com as seguintes informações: "

manda.Send

Set manda = Nothing

%>

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

</head>

 

<body>

<table width="260" border="0" cellspacing="2" cellpadding="2">

<tr>

<td><p align="center"><font size="2" face="Arial"><strong>Seu recado foi enviado

com sucesso !</strong></font></p>

<p align="center"><font size="2" face="Arial">Ele será postado no site assim

que for liberado.</font></p>

<p align="center"><font size="2" face="Arial"><strong>Obrigado por acessar

o site !</strong></font></p></td>

</tr>

</table>

<p> </p>

</body>

</html>

<%

Mural.Close()

Set Mural = Nothing

%>

 

---------------------------FINAL--------------------------------------------

 

AGUARDO UMA AJUDA, VALEWWWWW !

Compartilhar este post

Link para o post
Compartilhar em outros sites

Link12    0

Link12
Postado

Você tem alguma dúvida ou quer que alguém faça o código para você?

Gostaria de uma ajuda, desculpe esqueci de especificar no final do topico:O CODIGO ACIMA ME ENVIA UM E-MAL QUANDO ALGUME FAZ O CADASTRO NO BD NORMALMENTE, SÓ QUE EU KERIA QUE AS INFORMAÇÕES CADASTRADAS NO BD FOSSEM JUNTAS NO CORPO DA MENSSAGEM, SÓ QUE EU NÃO ESTOU CONSEGUINDO RECUPERA-LAS E INSERILAS NA SEGUINTE LINHA : manda.Body = "Acabou de ser cadastrado um recado no mural com as seguintes informações: "

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito