Ir para conteúdo

POWERED BY:

Arquivado

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

criacaoi7

sistema de indicação

Por , em ASP Clássico

Recommended Posts

criacaoi7    0

criacaoi7
Postado

Oi pessoal, beleza...

 

Peguei um script de indicação de site aqui no Laboratório de Scripts, mas não obtive sucesso no uso dele.

 

Link do script: http://www.onemasters.com/projeto_5/

 

Ta abrindo a página de indicação normal, e ao enviá-la aparentemente o sistema envia pois não da erro álgum, mas não recebo o e-mail e também o script não informa se foi mesmo enviado com sucesso o arquivo.

 

Gostaria da ajuda de vocês. Pelo que eu vi tá em CDonts, mas agora é CDOSys não é?

Alguém pode me ajudar a arrumar este código.

 

Abaixo código da página que faz o envio.

<% Function AbreBanco()	Set Banco = Server.CreateObject("ADODB.Connection")		Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\localuser\liftings\banco\banco.mdb;"nome = request.form("nome")email = request.form("email")nome_amigo = request.form("nome_amigo")email_amigo = request.form("emaila")cad_dia = Request.Form("day(now)")cad_mes = Request.Form("month(now)")cad_ano = Request.Form("year(now)")hora = Time()ip = Request.ServerVariables("REMOTE_ADDR")Sql = "INSERT INTO indique(nome, email, nome_amigo, emaila, data, hora, ip) VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("nome_amigo") & "', '" & Request.Form("emaila") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"',  '" & Request.servervariables("REMOTE_ADDR") & "')"Set Rs = Conexao.Execute(Sql)Set MyCDONTSMail = CreateObject("CDONTS.NewMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<font face=Verdana size=1>"	HTML = HTML & "Olá "& nome_amigo &"<br><br>"	HTML = HTML & "<b>Você acabou de Receber uma recomendação</b><br><br>"	HTML = HTML & "Seguem os dados da tua recomendação<br><br>"	HTML = HTML & "Quem te indicou: "& nome &"<br>email: "& email &"<br><br>"	HTML = HTML & "Data da Indicação: "& day(now) & " / "& month(now) & " / "& year(now) & "<br><br>"	HTML = HTML & "Hora: " &time()&" <br>Seu IP: "&Request.ServerVariables("REMOTE_ADDR")&" <br><br>"	HTML = HTML & "Visite nosso Site: <a href=""www.liftings.com.br"">www.liftings.com.br</a>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"	MyCDONTSMail.From="TEU NOME"	MyCDONTSMail.To=email	MyCDONTSMail.Subject="Recomendação"	MyCDONTSMAIL.Importance = 3	MyCDONTSMail.BodyFormat=0	MyCDONTSMail.MailFormat=0	MyCDONTSMail.Body=HTML	MyCDONTSMail.Send	set MyCDONTSMail=nothing    End FunctionFunction FechaBanco()		Banco.Close	Set Banco = NothingEnd Function%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

verifique se os dados foram gravados corretamente no banco de dados(principalmente o email de destino) e confirme se o seu servidor de tem cdonts

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

coloque no lugar de

MyCDONTSMail.Send

o código abaixo

on error resume nextMyCDONTSMail.Sendif err.number<>0 thenresponse.write("erro")elseresponse.write("Enviado")end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Oi Jonathan,

 

fiz o teste com o response e uma outra configuração de CDONTS QUE MEU SERVIDOR ME PASSOU MAS NÃO DEU CERTO, MAS TB NÃO DEU ERRO de novo... e não sei se o response funcionou porque apareceu tudo em branco... podem me ajudar... vai aí o código de novo...

 

Obrigado.

 

 

CÓDIGO COM AS ALTERAÇÕES:

 

<% Function AbreBanco()	Set Banco = Server.CreateObject("ADODB.Connection")		Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\localuser\liftings\banco\banco.mdb;"nome = request.form("nome")email = request.form("email")nome_amigo = request.form("nome_amigo")email_amigo = request.form("emaila")cad_dia = Request.Form("day(now)")cad_mes = Request.Form("month(now)")cad_ano = Request.Form("year(now)")hora = Time()ip = Request.ServerVariables("REMOTE_ADDR")Sql = "INSERT INTO indique(nome, email, nome_amigo, emaila, data, hora, ip) VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("nome_amigo") & "', '" & Request.Form("emaila") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"',  '" & Request.servervariables("REMOTE_ADDR") & "')"Set Rs = Conexao.Execute(Sql)Set objMail = Server.CreateObject("CDONTS.NewMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<font face=Verdana size=1>"	HTML = HTML & "Olá "& nome_amigo &"<br><br>"	HTML = HTML & "<b>Você acabou de Receber uma recomendação</b><br><br>"	HTML = HTML & "Seguem os dados da tua recomendação<br><br>"	HTML = HTML & "Quem te indicou: "& nome &"<br>email: "& email &"<br><br>"	HTML = HTML & "Data da Indicação: "& day(now) & " / "& month(now) & " / "& year(now) & "<br><br>"	HTML = HTML & "Hora: " &time()&" <br>Seu IP: "&Request.ServerVariables("REMOTE_ADDR")&" <br><br>"	HTML = HTML & "Visite nosso Site: <a href=""www.liftings.com.br"">www.liftings.com.br</a>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"	objMail.From	  = "TEU NOME"	objMail.To		= email	objMail.Subject   = "Indicação"	objMail.Importance = 3	objMail.BodyFormat = 0	objMail.MailFormat = 0	objMail.Body	  = HTML	on error resume nextobjMail.Sendif err.number<>0 thenresponse.write("Erro")elseresponse.write("Indicação enviada com sucesso!!!")end if		set objMail=nothing End FunctionFunction FechaBanco()		Banco.Close	Set Banco = NothingEnd Function%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Pessoal ainda estou com o problema...

 

Podem me ajudar...

 

Meu código agora esta assim:

 

<% Function AbreBanco()	Set Banco = Server.CreateObject("ADODB.Connection")		Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\localuser\liftings\banco\banco.mdb;"nome = request.form("nome")email = request.form("email")nome_amigo = request.form("nome_amigo")email_amigo = request.form("emaila")cad_dia = Request.Form("day(now)")cad_mes = Request.Form("month(now)")cad_ano = Request.Form("year(now)")hora = Time()ip = Request.ServerVariables("REMOTE_ADDR")Sql = "INSERT INTO indique(nome, email, nome_amigo, emaila, data, hora, ip) VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("nome_amigo") & "', '" & Request.Form("emaila") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"',  '" & Request.servervariables("REMOTE_ADDR") & "')"Set Rs = Conexao.Execute(Sql)set mail = server.createobject("cdonts.newmail")'Set objMail = Server.CreateObject("CDONTS.NewMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<font face=Verdana size=1>"	HTML = HTML & "Olá "& nome_amigo &"<br><br>"	HTML = HTML & "<b>Você acabou de Receber uma recomendação</b><br><br>"	HTML = HTML & "Seguem os dados da tua recomendação<br><br>"	HTML = HTML & "Quem te indicou: "& nome &"<br>email: "& email &"<br><br>"	HTML = HTML & "Data da Indicação: "& day(now) & " / "& month(now) & " / "& year(now) & "<br><br>"	HTML = HTML & "Hora: " &time()&" <br>Seu IP: "&Request.ServerVariables("REMOTE_ADDR")&" <br><br>"	HTML = HTML & "Visite nosso Site: <a href=""www.liftings.com.br"">www.liftings.com.br</a>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"		mail.from = ""TEU NOME" <falecom@liftings.com.br>" '	mail.to = "Liftings <email>"	mail.subject = ""Indicação""	mail.body = "HTML"	mail.Importance = 3	mail.bodyformat = 0	mail.mailformat = 0	%>	on error resume nextmail.sendif err.number<>0 thenresponse.write("Erro")elseresponse.write("Indicação enviada com sucesso!!!")end if		set mail=nothing End FunctionFunction FechaBanco()		Banco.Close	Set Banco = NothingEnd Function%>

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