Jump to content
Fórum Script Brasil
  • 0

Configuração Cdo


Guest Marcelo Siccone

Question

Guest Marcelo Siccone

Estos presisando faser rodar um scrpit de cadastro e login que peguei aqui no site( MUITO BOM), mais o servidor que estou usando não roda CDONTS.NewMail. So roda CDO, alguém poderia me ajudar a configurar esta pagina?

Pagina do CDONTS.NewMail

<!--#include file="db.asp"-->

<% AbreConexao

If request.form("enviado") = "sim" Then

Cadastrado =False

set Dicionario = CreateObject("scripting.dictionary")

i = 0

Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"

set Rs =Conexao.Execute(Sql)

If not Rs.Eof then

Dicionario.add i, "Nome de Site já cadastrado!"

i= i+1

end if

Sql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"

set Rs =Conexao.Execute(Sql)

If not Rs.Eof then

Dicionario.add i, "Email já cadastrado!"

i= i+1

end if

Sql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"

set Rs =Conexao.Execute(Sql)

If not Rs.Eof then

Dicionario.add i, "Login já cadastrado!"

i= i+1

end if

Vet = Dicionario.items

if Dicionario.Count<>0 then

Response.Write "<b><center><font face=verdana size=1>"

Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"

for i = 0 to Dicionario.Count - 1

Response.Write vet(i) & "<BR><br>"

next

response.write "<BR><br>"

Else

Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) "

Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')"

Conexao.Execute(Sql)

Cadastrado = True

End If

End If

If Cadastrado = False Then

Else

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 & "<b>Você acabou de se cadastrar no Sistema Cadastro e Login</b><br><br>"

HTML = HTML & "Lembre sempre de seus dados.<br><br>"

HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>"

HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

MyCDONTSMail.From="marcelo@siccone.com"

MyCDONTSMail.To=email

MyCDONTSMail.Subject="Cadastro no Sistema de Cadastro e Login - Site do Zanelati"

MyCDONTSMail.BodyFormat=0

MyCDONTSMail.MailFormat=0

MyCDONTSMail.Body=HTML

MyCDONTSMail.Send

set MyCDONTSMail=nothing

%>

<p align="center">

<font face="Verdana" size="1">

Cadastrado com sucesso!<BR>

Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">Clicando

Aqui! </font></a></font>

<% End If %>

Paginas das configurações CDO que o servidor fornece

<%

'##--------------------------------------------------

'## Envio de Emails pelo SMTP Autênticado usando CDO

'##--------------------------------------------------

'# Mais informações sobre as possiveis bibliotecas são encontradas no link:

'# http://msdn.microsoft.com/library/en-us/dn...cdo_roadmap.asp

'#

'# Documentação do CDO pode ser encontrada no link:

'# http://msdn.microsoft.com/library/en-us/dn...dataobjects.asp

'#

'# Para ler sobre as possiveis configurações do objeto de configuração, acesse:

'# http://msdn.microsoft.com/library/en-us/cd...nfiguration.asp

'# http://msdn.microsoft.com/library/default....e_interface.asp

'#

'# IMPORTANTE

'# O codigos de erros estão documentados em:

'# http://msdn.microsoft.com/library/en-us/cd...error_codes.asp

'#

'# Para ler sobre a comparação do CDO com CDONTS acesse:

'# http://support.microsoft.com/default.aspx?...kb;en-us;177850

'##--------------------------------------------------

' Definindo uma variavel auxiliar

sch = "http://schemas.microsoft.com/cdo/configuration/"

' Criando o objeto de configuração do CDO

Set cdoConfig = Server.CreateObject("CDO.Configuration")

' Definindo as configurações

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.siccone.com"

cdoConfig.Fields.Item(sch & "sendusername") = "marcelo=sobmedidadesign.com"

cdoConfig.Fields.Item(sch & "sendpassword") = "rato"

cdoConfig.fields.update

' Criando o objeto de msg do CDO

Set cdoMessage = Server.CreateObject("CDO.Message")

' Associando as configurações ao obj Mensagem

Set cdoMessage.Configuration = cdoConfig

' Definido variaveis da msg

cdoMessage.From = "marcelo@siccone.com"

cdoMessage.To = "DESTINATARIO@DominioDestinatario.com"

cdoMessage.Subject = "TITULO DO E-MAIL"

' Utilize esta opção caso deseje definir o e-mail de resposta

' cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"

cdoMessage.TextBody = "Escreva aqui o texto do seu e-mail"

cdoMessage.Send

Set cdoMessage = Nothing

Set cdoConfig = Nothing

%>

</body>

</html>

Valeu Galera desde já

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...