Ir para conteúdo

POWERED BY:

Arquivado

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

emersoncol

Problema Cdonts

Por , em ASP Clássico

Recommended Posts

emersoncol    0

emersoncol
Postado

Bom pessoal estou implantando um site de classificados e estou com problema no cdonts , já verifiquei e aparentemente está tudo certo . inclusive o servidor que estou usando tem o cdonts instalado se alguem puder me ajudar agradeço demais o link para o site ainda em construção é

 

www.anuncionanet.com.br

 

inclusive se quiserem testar oq acontece , não da erro nenhum o e-mail apenas não chega na caixa de mensagem ! vo colocar um dos codigos cdonts abaixo para vcs verem.

 

CODIGO DO SCRIPT ENVIASENHA.ASP ( codigo usado para enviar senha quando alguem esquecer a senha)

 

<!-- #include file="Includes/Config.asp" -->
<!-- #include file="Includes/ADOVBS.inc" -->
<%
Dim VarUser
Dim objSenha
Dim VarNome
Dim VarEmail
Dim VarSenha
Dim VarApelido
Dim EmailSenha
Dim Email

Call AbreBd

VarUser = Trim(Request.Form("usuario"))
Set objSenha = Server.CreateObject("ADODB.Recordset")
objSenha.open("SELECT * FROM Anunciantes WHERE Apelido LIKE '"&VarUser&"'"), Conn

if not objSenha.eof then

'Pega os dados para envio do e-mail
VarNome = objSenha("NomeResponsavel")
VarEmail = objSenha("Email")
VarSenha = objSenha("Senha")
VarApelido = objSenha("Apelido")

'Se os campos tiverem algum conteudo, escreve o email
if VarNome <> "" then
EmailSenha = "<html>"
EmailSenha = EmailSenha & "<body bgcolor=#FFFFFF>"
EmailSenha = EmailSenha & "<font color=#000000 size=2 face=arial>Ola "&VarNome&",<br><br>"
EmailSenha = EmailSenha & "O(A) Sr(a). solicitou o envio de sua senha de acesso no site "&Titulo&". Caso o Sr(a). não tenha solicitado esse pedido, por favor desconsidere esta mensagem. Os dados seguem abaixo:<br><br>"
EmailSenha = EmailSenha & "Usuário: <b>"&VarApelido&"</b><br>"
EmailSenha = EmailSenha & "Senha: <b>"&VarSenha&"</b><br><br>"
EmailSenha = EmailSenha & "Atenciosamente.<br>"&Titulo&"</font>"
EmailSenha = EmailSenha & "</body></html>"

'Manda o email para o endereco definido
Set Email = Server.CreateObject("CDONTS.NewMail")
Email.From = Titulo & "<" & EmailPadrao & ">"
Email.To = VarEmail
Email.Subject = "Sua senha no " & Titulo
Email.BodyFormat = 0 
Email.MailFormat = 0 
Email.Body = EmailSenha
Email.Send 
Set Email = Nothing

end if
%>
<html>
<head>
<title><%=Titulo%></title>
<link href="includes/styles.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#F1F2F3" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<table width="80%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td align="center" valign="middle" class="TituloCinzaEscuro"><%=VarNome%>, sua senha foi enviada para o e-mail <%=VarEmail%>.<br>
	  <br>
	  Obrigado!</td>
  </tr>
</table>
</body>
</html>
<% else %>
<html>
<head>
<title><%=titulo%></title>
<link href="includes/styles.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#F1F2F3" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<table width="80%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td align="center" valign="middle" class="TituloCinzaEscuro">Usuário inexistente<br>
	<br>
	<a href="java script:history.back(1);" class="TituloCinzaEscuro">< voltar</a></td>
  </tr>
</table>
</body>
</html>
<% end if %>

CODIGO DO SCRIPT CONFIG.ASP

 

<%

Session.LCID = 1046

Server.ScriptTimeOut = 1800

'Declaração de variáreis
Dim Conn
Dim Voltar
Dim LinhaHorizontal
Dim LinhaHorizontal2
Dim LinhaHorizontal3
Dim LinhaHorizontal4
Dim CamposObrigatorios
Dim CorDestaque
Dim Counter
Dim Num
Dim chr_array
Dim Chave
Dim Valores

'Abertura de Banco de dados
Sub AbreBd()
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DBQ=c:\inetpub\vhosts\anuncionanet.com.br\httpdocs\Database\DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"


End Sub

'Fechamento de Banco de dados
Sub FechaBd()
	Conn.Close
	Set Conn = Nothing
End Sub

'Variáveis gerais
Voltar = "<a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Voltar</a>"
LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal3 = "<tr><td height=18><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal4 = "<tr><td height=18><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
CamposObrigatorios = "<tr><td colspan=2 align=right class='TextoCinzaEscuro'>* Campos obrigatórios</td></tr>"
CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque

'Variáveis constantes gerais
Const EndLocal = "http://anuncionanet.com.br/" 'Caminho
Const LocalFoto = "http://anuncionanet.com.br/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
Const LocalBanner = "http://anuncionanet.com.br/Imagens/Banners/" 'Local onde ficarão os Banners.
Const CaminhoFoto = "c:/inetpub/vhosts/anuncionanet.com.br/httpdocs/Imagens/Fotos/"
Const CaminhoBanner = "c:/inetpub/vhosts/anuncionanet.com.br/httpdocs/Imagens/Banners/"

Const Titulo = "O Seu Site de classificados"
Const TableColor = "" 'Cor da tabela
Const TitColor = "#6BA9D0" 'Cor da célula dos títulos
Const TdColor01 = "" 'Cor da célula 01
Const TdColor02 = "" 'Cor da célula 02
Const SAddress = "mail.anuncionanet.com.br" 'Endereço de envio de e-mail do servidor
Const EmailPadrao = "contato@anuncionanet.com.br" 'Endereço de e-mail padrão
Const VerifyString = "ABCDEFGHIJKLMNOPQRSTUVJXYZabcdefghijklmnopqrstuvwxyz1234567890_@.-" 'Caracteres válidos para log.
Const TotalPorPagina = 15 'Total de registros por página.
Const PrazoEnvio = 10 'Prazo para envio de aviso de pagamento (antes do anuncio expirar)
Const BoletoItau = 0'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBB = 0 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoCaixa = 0 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBradesco = 0 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoReal = 0 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoUnibanco = 0 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const Deposito = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const CNPJ = "000.000.000/0000-00"
Const BoletoOBSTitulo = "no Modelo de Cassificados"

'Função de senha
Function Verify(ByVal VerifyValue, ByVal VerifyString)
	Verify = True
	For Counter = 1 To Len(VerifyValue)
		If Instr(1, VerifyString, Mid(VerifyValue, Counter, 1)) = 0 Then
			Verify = False
			Exit for
			Exit Function
		End If
	Next
End Function

'Função para gerar senha aleatória
Function GerarChave(Valores)
Dim chr_Array(35)
chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"
Randomize
Do While Len(Chave) < 06
Num = chr_array(Int(35 * Rnd )) 
Chave = Chave + Num 
Loop 
GerarChave = Chave
End Function
	
	'############################################################################
#############################################################################
	'Dados bancarios para depósito
	Const DSeuBanco = "Ex.: Banco do Brasil" 'Seu banco
	Const DSuaAgencia = "0259-3" 'Sua Agência
	Const DSuaConta = "25109-7" 'Sua Conta
	Const DNomeCedente = "Emerson Luiz Colombes" 'Favorecido
	
	'############################################################################
#############################################################################
	'Dados para configuração do boleto bancário (Itaú)
	Const vBancoItau = "341" 'código do banco
	Const vDVBancoItau = "7" 'Digito verificador do banco
	Const vAgenciaItau = "0000" 'agencia
	Const vContaItau = "00000" 'conta
	Const vDVContaItau = "0" 'digito verificador da conta
	Const vCarteiraItau = "175" 'código da carteira
	Const vLetraCarteiraItau = "" 'sigla da carteira
	Const vMoedaItau = "9" 'tamanho da moeda
	Const vEspecieItau = "R$" 'cifra da moeda
	Const vCodigoCedenteItau = "" 'código do cedente
	Const vCedenteItau = "Exemplo: Felipe Martins" 'nome do cedente
	Const vDadosCedenteItau = "Exemplo: R. Dr. Luiz Gonzaga Fernandes da Costa, 85 - Mogi Moderno - Mogi das Cruzes - São Paulo - CEP 08717-750" 'dados do cedente
	Const vCNPJItau = "00.000.000/0001-00"
	Const vVencimentoItau = 10
	
	
	'############################################################################
#############################################################################
	'Dados para configuração do boleto bancário (Bradesco)	
	Const vBancoBradesco = "237" 'código do banco
	Const vDVBancoBradesco = "2" 'Digito verificador do banco
	Const vAgenciaBradesco = "0000" 'agencia
	Const vContaBradesco = "00000" 'conta
	Const vDVContaBradesco = "0" 'digito verificador da conta
	Const vCarteiraBradesco = "06" 'código da carteira
	Const vLetraCarteiraBradesco = "" 'sigla da carteira
	Const vMoedaBradesco = "9" 'tamanho da moeda
	Const vEspecieBradesco = "R$" 'cifra da moeda
	Const vCodigoCedenteBradesco = "" 'código do cedente
	Const vCedenteBradesco = "Exemplo: Felipe Martins" 'nome do cedente
	Const vDadosCedenteBradesco = "Exemplo: R. Dr. Luiz Gonzaga Fernandes da Costa, 85 - Mogi Moderno - Mogi das Cruzes - São Paulo - CEP 08717-750" 'dados do cedente
	Const vCNPJBradesco = "00.000.000/0001-00"
	Const vVencimentoBradesco = 10


	'############################################################################
#############################################################################
	'Dados para configuração do boleto bancário (Caixa)
	Const vBancoCaixa = "104" 'código do banco
	Const vDVBancoCaixa = "0" 'Digito verificador do banco
	Const vAgenciaCaixa = "0000" 'agencia
	Const vContaCaixa = "00000" 'conta
	Const vDVContaCaixa = "0" 'digito verificador da conta
	Const vCarteiraCaixa = "82" 'código da carteira
	Const vLetraCarteiraCaixa = "" 'sigla da carteira
	Const vMoedaCaixa = "9" 'tamanho da moeda
	Const vEspecieCaixa = "R$" 'cifra da moeda
	Const vCodigoCedenteCaixa = "" 'código do cedente
	Const vCedenteCaixa = "Exemplo: Felipe Martins" 'nome do cedente
	Const vDadosCedenteCaixa = "Exemplo: R. Dr. Luiz Gonzaga Fernandes da Costa, 85 - Mogi Moderno - Mogi das Cruzes - São Paulo - CEP 08717-750" 'dados do cedente
	Const vCNPJCaixa = "00.000.000/0001-00"
	Const vVencimentoCaixa = 10
		
	'############################################################################
#############################################################################
	'Dados para configuração do boleto bancário (Banco do Brasil)	
	Const vBancoBB = "001" 'código do banco
	Const vDVBancoBB = "9" 'Digito verificador do banco
	Const vAgenciaBB = "0000" 'agencia
	Const vContaBB = "00000" 'conta
	Const vDVContaBB = "0" 'digito verificador da conta
	Const vCarteiraBB = "18" 'código da carteira
	Const vLetraCarteiraBB = "" 'sigla da carteira
	Const vMoedaBB = "9" 'tamanho da moeda
	Const vEspecieBB = "R$" 'cifra da moeda
	Const vCodigoCedenteBB = "" 'código do cedente
	Const vCedenteBB = "Exemplo: Felipe Martins" 'nome do cedente
	Const vDadosCedenteBB = "Exemplo: R. Dr. Luiz Gonzaga Fernandes da Costa, 85 - Mogi Moderno - Mogi das Cruzes - São Paulo - CEP 08717-750" 'dados do cedente
	Const vCNPJBB = "00.000.000/0001-00"
	Const vVencimentoBB = 10	
	
	'############################################################################
#############################################################################
	'Dados para configuração do boleto bancário (Banco Real)	
	Const vBancoReal = "356" 'código do banco
	Const vDVBancoReal = "5" 'Digito verificador do banco
	Const vAgenciaReal = "0000" 'agencia
	Const vContaReal = "00000" 'conta
	Const vDVContaReal = "0" 'digito verificador da conta
	Const vCarteiraReal = "57" 'código da carteira
	Const vLetraCarteiraReal = "" 'sigla da carteira
	Const vMoedaReal = "9" 'tamanho da moeda
	Const vEspecieReal = "R$" 'cifra da moeda
	Const vCodigoCedenteReal = "" 'código do cedente
	Const vCedenteReal = "Exemplo: Felipe Martins" 'nome do cedente
	Const vDadosCedenteReal = "Exemplo: R. Dr. Luiz Gonzaga Fernandes da Costa, 85 - Mogi Moderno - Mogi das Cruzes - São Paulo - CEP 08717-750" 'dados do cedente
	Const vCNPJReal = "00.000.000/0001-00"
	Const vVencimentoReal = 10	
	
	
	'############################################################################
#############################################################################
		'Dados para configuração do boleto bancário (Unibanco)	
	Const vBancoUnibanco = "409" 'código do banco
	Const vDVBancoUnibanco = "0" 'Digito verificador do banco
	Const vAgenciaUnibanco = "0000" 'agencia
	Const vContaUnibanco = "00000" 'conta
	Const vDVContaUnibanco = "0" 'digito verificador da conta
	Const vCarteiraUnibanco = "00" 'código da carteira
	Const vLetraCarteiraUnibanco = "" 'sigla da carteira
	Const vMoedaUnibanco = "9" 'tamanho da moeda
	Const vEspecieUnibanco = "R$" 'cifra da moeda
	Const vCodigoCedenteUnibanco = "" 'código do cedente
	Const vCedenteUnibanco = "Exemplo: Felipe Martins" 'nome do cedente
	Const vDadosCedenteUnibanco = "Exemplo: R. Dr. Luiz Gonzaga Fernandes da Costa, 85 - Mogi Moderno - Mogi das Cruzes - São Paulo - CEP 08717-750" 'dados do cedente
	Const vCNPJUnibanco = "00.000.000/0001-00"
	Const vVencimentoUnibanco = 10	
	
	'############################################################################
#############################################################################

	
'Formata data para o formato brasileiro (dd/mm/aaaa)
Function FormataData ( theDate )
  If ( theDate = "" or IsNull(theDate)) Then
	FormataData = " "
  Else
	FormataData = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
	Year(theDate)
  End If
End Function

'Formata data para o formato americano (mm/dd/aaaa)
Function FormataDt ( theDate )
  If ( theDate = "" ) Then
	FormataDt = ""
  Else
	FormataDt = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
	  Year(theDate)
  End If
End Function
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O ideal é você utilizar CDOSYS. CDONTS foi descontinuado, e um dos grandes problemas dele, é que não existe SMTP para enviar, dessa forma a mensagem pode ser considerada SPAM e nem ser entregue.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
mas axo que daria muito trabalho adaptar o cdosys. o sistema já veio todo config com cdonts
Muitas vezes não tem jeito, se não fizer a alteração não vai rolar.

 

E as alterações a ser feitas serão apenas no trecho que era criado o objeto e enviado o e-mail.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Daria trabalho? Você tem que usar o que funciona... CDONTS é ultrapassado já.

 

A alteração não é tão grande assim.

 

Faça uma pesquisa aqui no Fórum e encontrará vários exemplos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

CDOSYS é a nova e melhorada interface para SMTP e-mail que foi introduzido no Windows.

 

Então, a pergunta: "Por que eu deveria mudar para CDOSYS quando o meu actual CDONTS código funciona bem?".

 

Então, a pergunta: "Por que eu deveria mudar para CDOSYS quando o meu actual CDONTS código funciona bem?". Let me give a few reasons: Deixe-me dar alguns motivos:

 

Então, a pergunta: "Por que eu deveria mudar para CDOSYS quando o meu actual CDONTS código funciona bem?". Let me give a few reasons: Deixe-me dar alguns motivos:

 

 

CDONTS foi completamente removido do Windows Server 2003, e até mesmo o Windows XP, com melhorias de desempenho e outros acessórios, não deve haver necessidade de o fazer.

CDOSYS transporta menos overhead do que CDONTS

a funcionalidade HTML é muito melhorada com a geração automática da TextBody apenas por fixar a propriedade HTMLBody . Existem algumas novas propriedades e métodos que deveriam ter sido incluídos no CDONTS, mas não foram.

mais info

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