Ir para conteúdo
Fórum Script Brasil
  • 0

Cdonts

mariofdf

Perguntado por mariofdf,

 Share

Pergunta

mariofdf

mariofdf

Postado
Postado

Tenho um formulario em CDONT e ate semana passada estava normal , s´´ó que esta semana recebi algumas reclamações e contatei que ele havia parado de funcionar, não da nenhum erro, confirma a mensagem tudo direitinho, so que a mensagem n~~ao chega no destino... Problema no form e no arquivo não é pois não da erro, o que pode ser?

Me ajudem... :blink:

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0
Guest Gregório

Guest Gregório

Postado
Postado

Verifique se não existe em seu código a instrução "On error resume next", ela poderia estar ocultando um possível erro.

Caso não seja isso, envie seu codigo que fica mais fácil pra te ajudar.

[]'s

Gregório

Link para o comentário
Compartilhar em outros sites
  • 0
mariofdf

mariofdf

Postado
  • Autor
Postado

Não tem nenhum problema em meu form.

Pois tenho um outro forma que utiliza asp para enviar, eu testei ele e acontece a mesma coisa , não da nenhum erro, mas a mensagem não chega no destino....

Link para o comentário
Compartilhar em outros sites
  • 0
mariofdf

mariofdf

Postado
  • Autor
Postado

Não tambem não e isto, sera que pode ser problema no servidor, porque todos formularios meius ate o que confirma cadastro e vem uma copia para meu e-mail parou.

Link para o comentário
Compartilhar em outros sites
  • 0
mariofdf

mariofdf

Postado
  • Autor
Postado

<%

'declaração da variavel de memoria diretorio padrão

codcartao = Request.QueryString("codcartao")

codcategoria = Request.Form("codcategoria")

de = Request.Form("de")

deemail = Request.Form("deemail")

para = Request.Form("para")

paraemail = Request.Form("paraemail")

mensagem = Request.Form("mensagem")

foto = Request.Form("foto")

'data = Request.Form("data")

data = day(date)&"/"&month(date)&"/"&year(date)

hora = Request.Form("hora")

IF request.form("acao") = "" then

acao = Request.QueryString("acao")

else

acao = Request.Form("acao")

end if

%>

<%

function Verifica(valor)

'Veririca se alguns campos não foram preenchidos corretamente

Response.Write("<font id=resumo>")

If codcategoria = "" OR de = "" OR deemail = "" OR para = "" OR paraemail = "" OR mensagem = "" OR len(mensagem) > 250 OR foto = "" OR data = "" Then

Response.Write("<img src=../bt-aviso.gif width=16 height=16 border=0>&nbsp;")

Response.Write("<b>Campos obrigatórios não foram preenchidos corretamente!!</b><br><br>")

If codcategoria = "" then

Response.Write("<li>Campo CATEGORIA é obrigatório!!<br>")

end if

If de = "" then

Response.Write("<li>Campo DE é obrigatório!!<br>")

end if

If deemail = "" then

Response.Write("<li>Campo SEU E-MAIL é obrigatório!!<br>")

end if

If para = "" then

Response.Write("<li>Campo PARA é obrigatório!!<br>")

end if

If paraemail = "" then

Response.Write("<li>Campo E-MAIL DESTINO é obrigatório!!<br>")

end if

If len(mensagem) > 250 then

Response.Write("<li>Campo MENSAGEM deve ter no máximo 250 caracteres!!<br>")

end if

If mensagem = "" then

Response.Write("<li>Campo MENSAGEM é obrigatório!!<br>")

end if

Verifica = false

Response.Write("<p align=right>")

Response.Write("<a href=java script:window.history.back()>Voltar</a>")

else

Verifica = true

end if

Response.Write("</\font>")

end function

%>

<%

If acao ="Enviar" then

'verifica se os campos estão preenchidos corretamente

Resultado = Verifica(false)

If Resultado = true then

SQL = "INSERT INTO TbCartao (codcategoria, de, deemail, para, paraemail, mensagem, foto, data, hora)"

SQL = SQL & "VALUES ('" & codcategoria & "','" & de & "', '" & deemail & "', '" & para & "', '" & paraemail & "', '" & mensagem & "', '" & foto & "', '" & data & "', '"& hora &"')"

Set RC = Connexao.Execute(SQL)

'busca dados para enviar o cartão

SQLp = "SELECT * FROM TbCartao WHERE mensagem = '"& mensagem & "' AND de = '"& de & "' AND para = '"& para & "' AND data = '"& data & "' AND hora = '"& hora &"'"

Set RP = Connexao.Execute(SQLp)

'Inicia o CDONTS para envio de e-mail e cria variaveis do e-mail

Set objMail = Server.CreateObject("CDONTS.NewMail")

Dim objMail, htmlText

'enviando a mensagem

htmlText = "<!DOCTYPE HTML PUBLIC ""-//W3D//DTD HTML 4.0 Transitional//EN"">" & chr(13) & chr(10)

htmlText = htmlText & "<html>" & chr(13) & chr(10)

htmlText = htmlText & "<head>" & chr(13) & chr(10)

htmlText = htmlText & "<Title>diitroya.com.br - o maior e melhor site erotico gratuito</Title>" & chr(13) & chr(10)

htmlText = htmlText & "</head>" & chr(13) & chr(10)

htmlText = htmlText & "<body bgcolor='white'>" & chr(13) & chr(10)

htmlText = htmlText & "<font size=3>" & chr(13) & chr(10)

htmlText = htmlText & "Olá "&para&"<br>" & chr(13) & chr(10)

htmlText = htmlText & de&" acabou de enviar um SexyCard Diitroya para você.<br>" & chr(13) & chr(10)

htmlText = htmlText & "<font size=1>clique no link para abrir o cartão:</font><br>" & chr(13) & chr(10)

htmlText = htmlText & "<a href=http://www.diitroya.com.br/SexyCard/cartao-visualizar.asp?codcartao="&RP("codcartao")&"&paraemail="&RP("paraemail")&">ver o meu cartão!!!</a><br><br>" & chr(13) & chr(10)

htmlText = htmlText & "Obrigado, por participar e lembre-se:<br>" & chr(13) & chr(10)

htmlText = htmlText & "<b>Diitroya - O maior e melhor site erótico do Brasil!!</b><br>" & chr(13) & chr(10)

htmlText = htmlText & "atualizado diariamente !!!<br>" & chr(13) & chr(10)

htmlText = htmlText & "<b><a href=http://www.diitroya.com.br>www.diitroya.com.br</a></b>" & chr(13) & chr(10)

htmlText = htmlText & "</font>" & chr(13) & chr(10)

htmlText = htmlText & "</body>" & chr(13) & chr(10)

htmlText = htmlText & "<html>" & chr(13) & chr(10)

objMail.From = Request("deemail")

objMail.To = Request("paraemail")

ObjMail.Subject = "Você acaba de receber um SexyCard!!"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Body = htmlText

objMail.Send

If Err <> 0 Then

Response.Write "Erro encontrado: " & Err.Description

else %>

<font id="resumo">

<b>Seu cartão foi enviado!!</b><br>

<b>Obrigado por participar!</b><br>

<b>Aguarde...</b><br>

<meta http-equiv="refresh" content="1; URL=index.asp">

</font>

<%end if %>

<% End If %>

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...