Jump to content

  2. →
  3. →

Photo

Cdonts Para Cdosys

Started By lizardbr, 13/12/2004, 18:17

  • Faça o login para participar
4 replies to this topic

#1 lizardbr

lizardbr

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 13/12/2004, 18:17

pessoal, hospedei um site na hostnet, me falaram que o plano ASP nao tem CDONTS e nem ASPmail, que estão usando agora o CDO? alguem tem uma dica para converter os codigos que estão usando CDONTS? alguma dica? Obrigado


hi, how to convert the code using CDO

'Indique o produto

Dim VarAct
Dim VarSeuNome
Dim VarSeuEmail
Dim VarNomePara
Dim VarEmailPara
Dim VarCodProduto
Dim VarMsg
Dim VarComentario
Dim ConsProduto
Dim Corpo
Dim Contato

VarAct = Request.QueryString("Act")
VarCodProduto = Request.QueryString("Produto")

If VarAct = "Indique" Then

VarSeuNome = Trim(Replace(Request.Form("SeuNome"), "'", ""))
VarSeuEmail = Trim(Replace(Request.Form("SeuEmail"), "'", ""))
VarNomePara = Trim(Replace(Request.Form("NomePara"), "'", ""))
VarEmailPara = Trim(Replace(Request.Form("EmailPara"), "'", ""))
VarComentario = Trim(Replace(Replace(Request.Form("Comentario"), "'", ""),vbcrlf,"<br>"))

If VarSeuNome = "" Then
VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (Seu Nome) !</span>"
ElseIf VarSeuEmail = "" Then
VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (Seu E-mail) !</span>"
ElseIf VarNomePara = "" Then
VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (Nome Para) !</span>"
ElseIf VarEmailPara = "" Then
VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (E-mail Para) !</span>"
Else

Set ConsProduto = Banco.Execute("Select * From Produtos Where Cod = "& VarCodProduto)

Corpo = "<html>"
Corpo = Corpo & "<link href="& Local &"Includes/Styles.css rel=stylesheet type=text/css>"
Corpo = Corpo & "<table cellspacing=10 width="&Chr(34)&"100%"&Chr(34)&">"
Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">Caro(a) </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& VarNomePara &"</span></td></tr>"
Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">O produto abaixo foi indicado em nossa loja para você pelo seu(sua) amigo(a) </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& VarSeuNome &".</span></td></tr>"
Corpo = Corpo & "<tr><td><hr width=100% size=1 noshade></td></tr>"
Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"><a href="& Chr(34) & Local &"MaisProduto.asp?Produto="& ConsProduto("Cod") & Chr(34) &"><img src="& Chr(34) & ConsProduto("Foto1") & Chr(34) &" width="& Chr(34) &"60"& Chr(34) &" align="& Chr(34) &"left"& Chr(34) &" border=0></a></span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"><b><a href="& Chr(34) & Local &"MaisProduto.asp?Produto="& ConsProduto("Cod") & Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">"& ConsProduto("NomeProduto") &"</a></b><br>"& ConsProduto("BreveDescricao") &"<br><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">De: </span><span class="& Chr(34) &"TextTahoma11CinzaClaro"& Chr(34) &"><s>"& FormatCurrency(ConsProduto("PrecoDe")) &"</s></span><br><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">Por: </span><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">"& FormatCurrency(ConsProduto("PrecoPor")) &"</span></td></tr>"
Corpo = Corpo & "<tr><td><hr width=100% size=1 noshade></td></tr>"
Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">Comentários:<br></span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">"& VarComentario &"</span></td></tr>"
Corpo = Corpo & "<tr><td><hr width=100% size=1 noshade></td></tr>"
Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& NomedaLoja &"</span></td></tr>"
Corpo = Corpo & "</table>"
Corpo = Corpo & "</html>"

If ComponenteEmail = 1 Then

'CDonts
Set Contato = Server.CreateObject("CDONTS.NewMail")

Contato.From = VarSeuNome & "<"&VarSeuEmail&">"
Contato.To = VarNomePara & "<"&VarEmailPara&">"
Contato.Subject = SubjectIndique
Contato.BodyFormat = 0
Contato.MailFormat = 0
Contato.Body = Corpo
Contato.Send

Set Contato = Nothing

Else

Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "mail.site.com.br"
Mailer.FromName = VarSeuNome
Mailer.FromAddress = VarSeuEmail
Mailer.AddRecipient VarParaNome, VarParaEmail
Mailer.Subject = SubjectIndique
Mailer.BodyText = Corpo
Mailer.SendMail

Set Mailer = Nothing

End If
End If

End If
'Fim do Indique o produto

%>

Edição feita por: lizardbr, 14/12/2004, 00:08.

#2 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 13/12/2004, 23:40

este CDO seria a mesma coisa que o CDOsys ?
se for é por que eles tão rodando no server o win 2003... o CDONTS funciona no win 2003, é só pedir para eles habilitarem o servidor SMTP ... naum tem q instalar nada, apenas habilitar...

bem, tenho certeza absoluta que naum respondi a sua pergunta... hehe, desculpa... mas a minha resposta pode vir a ser uma solução.

Sei disso por que to usando o windows 2003 na minha maquina, e não tava afim de ficar mudando meus codigos de cdonts para cdosys... dai so habilitei o servidor smtp que vc faz na instalação do IIS, e pronto, ta rodando q é uma beleza.

;) (y)
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto

#3 lizardbr

lizardbr

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 14/12/2004, 00:08

isso mesmo amigo, é CDOSYS, eu duvido que a hostnet ligaria para rodar CDONTS

#4 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 14/12/2004, 00:14

ai cara.. então.. da uma olhada aqui..

http://www.digiweb.c...dosys/index.asp

é pouca coisa que muda de um para o outro...

;) (y)
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto

#5 lizardbr

lizardbr

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 14/12/2004, 00:16

ja vi este link, o problema que não estou conseguindo adapta-lo ao meu, estou procurando para ver se não encontro algum parecido que ja usa CDOSYS
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq