nao ta enviando os e-mails

[filipecrosk 0]

bom dia forum,

verifica para mim esse script:

 

<%@LANGUAGE="VBSCRIPT"%>

<%Option Explicit%>

<%

dim strnome, stremail, strcomentario, strtipo, objmail, strcorpo

Response.Buffer = True

strnome = request.form("nome")

stremail = request.form("mail")

strtipo = request.form("tipo")

strcomentario = request.form("comentario")

 

strcorpo = "Olá Filipe,<br>"

strcorpo = strcorpo & "Você acaba de receber um e-mail atraves do site, temos um novo contato:<br>"

strcorpo = strcorpo & "Nome:" &strnome& "<br>"

strcorpo = strcorpo & "E-mail:" &stremail& "<br>"

strcorpo = strcorpo & "Assunto:" &strtipo& "<BR>"

strcorpo = strcorpo & "Comentario:" &strcomentario&

 

 

set objmail = server.createobject("Cdonts.newmail")

objmail.to = "contato@turmateen.com.br"

objmail.from = "turmateen@turmateen.com.br"

objmail.subject = "Contato - Turmateen"

objMail.MailFormat = 0

objMail.BodyFormat = 0

objmail.body = strcorpo

objmail.send

set objmail = nothing

 

response.redirect("contato.asp?txtmsg=E-mail enviado com sucesso")

%>

 

era para enviar os e-mails normalmente certo??

mas nao esta enviando..

se quizerem ver as paginas que dao erro entre em www.turmateen.com.br/contato.asp

da erro 500 - erro interno de servidor

o pessoal do servidor diz que ta dando erro de sintax, mas eu ja utilizei esse mesmo script em outro servidor e da certo.

olha para mim.

Grato

filipe

[Salgado 4]

Seu erro é esse

Microsoft VBScript compilation error '800a03ea'

 

Syntax error

 

/contatomail.asp, line 16

 

strcorpo = strcorpo &  "Comentario:" &strcomentario&

Para você ver os erros desse jeito você deve desmarcar a opção "exibir mensagens de erro Http amigáveis" de seu browser, tem uma descrição no tópico pendurado "Dúvidas Frequentes"

 

Nessa linha: strcorpo = strcorpo & "Comentario:" &strcomentario& Retire o "&" do final, ficaria assim:

<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit%>
<%
dim strnome, stremail, strcomentario, strtipo, objmail, strcorpo
Response.Buffer = True
strnome = request.form("nome")
stremail = request.form("mail")
strtipo = request.form("tipo")
strcomentario = request.form("comentario")

strcorpo = "Olá Filipe,<br>"
strcorpo = strcorpo & "Você acaba de receber um e-mail atraves do site, temos um novo contato:<br>"
strcorpo = strcorpo & "Nome: " &strnome& "<br>"
strcorpo = strcorpo & "E-mail: " &stremail& "<br>"
strcorpo = strcorpo & "Assunto: " &strtipo& "<BR>"
strcorpo = strcorpo & "Comentario: " &strcomentario


set objmail = server.createobject("Cdonts.newmail")
objmail.to = "contato@turmateen.com.br"
objmail.from = "turmateen@turmateen.com.br"
objmail.subject = "Contato - Turmateen"
objMail.MailFormat = 0 
objMail.BodyFormat = 0
objmail.body = strcorpo
objmail.send
set objmail = nothing

response.redirect("contato.asp?txtmsg=E-mail enviado com sucesso")
%>