Erro no código CDONTS

[tdelgrande 0]

Onde está o erro no código:

 

<%Set objCDOMail = Server.CreateObject("CDONTS.NewMail")objCDOMail.From = Request.Form("email")objCDOMail.To = "administracao@site.com"objCDOMail.Subject = "Indicação de site"objCDOMail.Body = "Formulário de indicação de site" & vbcrLf & "" &_vbCrlf & "" &_"Data = " & Date & vbcrlf & "" &_"Hora = " & Time & vbcrlf & "" &_"Remetente = " & Request.Form("email") & vbcrlf & "" &_"URL = " & Request.Form("url") & vbcrlf & "" &_"Categoria = " & Request.Form("categoria") & vbcrlf & "" &_ "Descrição = " & Request.Form("descricao") & vbcrlf = "" & _objCDOMail.SendSet objCDOMail = Nothing%>

O erro apresentado é o seguinte:

 

error '80040108'

/scripts/script_indique.asp, line 6

[fernandam 0]

Verifique o conteudo de Request.Form("email")

[tdelgrande 0]

Tudo correto!!Continua dando o erro...

[Crazy Navigator 0]

O erro pode estar ocorrendo por ter juntado tudo como se fosse em uma linha só. Faça o seguinte, reformulei o código pra você, acho q assim fica mais fácil de entender:

<%Set objCDOMail = Server.CreateObject("CDONTS.NewMail")objCDOMail.From = Request.Form("email")objCDOMail.To = "carloseduardo@dp7.com.br"objCDOMail.Subject = "Indicação de site"strmsg = "Formulário de indicação de site" & vbcrLf & vbcrlfstrmsg = strmsg & "Data = " & Date & vbcrlfstrmsg = strmsg & "Hora = " & Time & vbcrlfstrmsg = strmsg & "Remetente = " & Request.Form("email") & vbcrlfstrmsg = strmsg & "URL = " & Request.Form("url") & vbcrlfstrmsg = strmsg & "Categoria = " & Request.Form("categoria") & vbcrlfstrmsg = strmsg & "Descrição = " & Request.Form("descricao") & vbcrlfobjCDOMail.Body = strmsgobjCDOMail.Sendresponse.write "Mensagem enviada com sucesso!"Set objCDOMail = Nothing%>

Espero que funcione....

 

Abraços,

[Lucky 0]

No objCDOMail.From = vai o "teu" email que tem que ser de uma conta válida no servidor...No objCDOMail.To = vai o email do caraantes de executar o comando CDONTS testa se o mail do cara não tá vazio ou escrito errado, valida isso ainda na página anterior... (na do form)

[tdelgrande 0]

O erro pode estar ocorrendo por ter juntado tudo como se fosse em uma linha só. Faça o seguinte, reformulei o código pra você, acho q assim fica mais fácil de entender:

<%Set objCDOMail = Server.CreateObject("CDONTS.NewMail")objCDOMail.From = Request.Form("email")objCDOMail.To = "carloseduardo@dp7.com.br"objCDOMail.Subject = "Indicação de site"strmsg = "Formulário de indicação de site" & vbcrLf & vbcrlfstrmsg = strmsg & "Data = " & Date & vbcrlfstrmsg = strmsg & "Hora = " & Time & vbcrlfstrmsg = strmsg & "Remetente = " & Request.Form("email") & vbcrlfstrmsg = strmsg & "URL = " & Request.Form("url") & vbcrlfstrmsg = strmsg & "Categoria = " & Request.Form("categoria") & vbcrlfstrmsg = strmsg & "Descrição = " & Request.Form("descricao") & vbcrlfobjCDOMail.Body = strmsgobjCDOMail.Sendresponse.write "Mensagem enviada com sucesso!"Set objCDOMail = Nothing%>

Espero que funcione....Abraços,

Ok! Tudo funcionando, obrigado! ;)