Guest Marcel Postado Junho 26, 2003 Denunciar Share Postado Junho 26, 2003 opa pessoal alguém pode me ajudar com esse codigo:está dando erro nessa linha: Set EnviarMail = Server.CreateObject("CDONTS.NewMail") <% Option Explicit Dim var_nome, var_icq, var_email, var_site, var_comentario, var_to, EnviarMail, MsgBody var_nome = request.querystring("txtnome") var_icq = request.querystring("txticq") var_email = request.querystring("txtmail") var_site = request.querystring("txtsite") var_comentario = request.querystring("txtcomentario") var_to = "demasterg33k@hotmail.com" Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = var_mail EnviarMail.Subject = " Waves o site do Surf !!!" MsgBody = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""#FFFFFF"">" _ & "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, icq <b>" & var_icq & "</b>, email <b>" & var_email & "</b>, site <b>" & var_site & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _ & "</body>" _ & "</html>" EnviarMail.Body = MsgBody EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send Set EnviarMail = Nothing Response.Redirect "waves_confirmar.html" %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Junho 26, 2003 Denunciar Share Postado Junho 26, 2003 O programa não está podendo criar a "instância" (não pode abrir) do objeto CDONTS.. verifique se existe este objeto no servidor e se tu tem permissão para usá-lo...Se tu estiver tentando rodar esta página na tua própria máquina, ele só funcionará se tu tiver um servidor configurado corretamente... (precisa tambem instalar o servidor de e-mail) Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Marcel
opa pessoal alguém pode me ajudar com esse codigo:
está dando erro nessa linha: Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
<%
Option Explicit
Dim var_nome, var_icq, var_email, var_site, var_comentario, var_to, EnviarMail, MsgBody
var_nome = request.querystring("txtnome")
var_icq = request.querystring("txticq")
var_email = request.querystring("txtmail")
var_site = request.querystring("txtsite")
var_comentario = request.querystring("txtcomentario")
var_to = "demasterg33k@hotmail.com"
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = " Waves o site do Surf !!!"
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, icq <b>" & var_icq & "</b>, email <b>" & var_email & "</b>, site <b>" & var_site & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send
Set EnviarMail = Nothing
Response.Redirect "waves_confirmar.html"
%>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.