[Resolvido] Erro Interno de Servidor - 500

Ricardo Fressa · Fevereiro 20, 2009

Olá, gostaria de saber o que estou fazendo de errado nesse formulario... Será que alguém pode me ajudar?

Alterei o email@provedor.com.br por motivos de segurança...

Esse arquivo é meu enviar.asp

<%
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

strFrom = Request.Form("para")
strEnd = Request.Form("endereco")
strCid = Request.Form("cidade")
strEst = Request.Form("estado")
strTel = Request.Form("telefone")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")

aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strEnd = objRegExp.Replace(strEnd, "")
strCid = objRegExp.Replace(strCid, "")
strEst = objRegExp.Replace(strEst, "")
strTel = objRegExp.Replace(strTel, "")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
 message.From = strFrom
 message.End = strEnd
 message.Cid = strCid
 message.Est = strEst
 message.Tel = strTel
 message.To = strTo
 message.Subject  = StrSubject
 message.textBody = StrBody

message.HTMLBody = StrBody
message.Cc = "email@provedor.com.br"  
message.Fields("urn:schemas:httpmail:importance").Value = 2 


message.send

Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td> </td></tr>"
Response.Write "<tr><td> </td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

Essa pagina é do formulario o contato.asp

<form method="post" action="enviar.asp" name="Inputform">
<input type="hidden" name="email" value="email@provedor.com.br">
Nome: <input type="text" name="para" size="40">
Endereço: <input type="text" name="endereco" size="40">
Cidade: <input type="text" name="cidade" size="40">
Estado: <input type="text" name="estado" size="40">
Telefone: <input type="text" name="telefone" size="40">
E-mail: <input type="text" name="email" size="40">
Assunto: <input type="text" name="assunto" size="40">
Mensagem:
<textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea>
<input type="submit" value="Enviar >>" name="enviar"></font></td>
</form>

hgb7 · Fevereiro 20, 2009

http://support.microsoft.com/kb/311766/pt-br

Espero que ajude :)

xanburzum · Fevereiro 20, 2009

é gerado algum erro ????

Ricardo Fressa · Fevereiro 21, 2009

Então, píor que não... nenhum erro de linha, somente esse erro 500...

Se clico em Mais informacoes na pagina aparece isso

Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web.

Para obter mais informações sobre erros de HTTP, consulte a Ajuda.

Testei o codigo no meu servidor de IIS e no servidor on-line que tenho...mesma coisa...

Sabe, queria saber se está tudo certo no enviar.asp. Se estou pegando todas as variaveis e transformado certo do formulario contato.asp...

xanburzum · Fevereiro 21, 2009

desabilita a opção Mostrar mensagens de erro amigaveis na aba Avançada nas Opções do browser

Ricardo Fressa · Fevereiro 21, 2009

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'message.End'

/enviar.asp, line 37

e a linha 37 é essa

message.End = strEnd

o que pode estar ocorrendo?

xanburzum · Fevereiro 21, 2009

Realmente o objeto CDO, nao existe essa propriedade .end

olha um exemplo:

' conectar à porta 25 do servidor SMTP.
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Defina a configuração CDOSYS para usar a porta 25 no servidor SMTP.

With Flds
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
	'ToDo: indicar o nome ou o endereço IP do servidor SMTP remoto
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<remote SMTP server>" 
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10  
	.Update
End With

' Mensagem HTML para construir o body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> Este é o teste mensagem HTML body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' Aplicar as configurações para a mensagem 
With iMsg
	Set .Configuration = iConf
	.To = "<email address>" 'ToDo: Digite um endereço de email válido.
	.From = "<email address>" 'ToDo: Digite um endereço de email válido.
	.Subject = "Este é um teste CDOSYS enviado via Porta 25 "
	.HTMLBody = strHTML
	.Send
End With

' limpar variáveis
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

MsgBox "email enviado com sucesso!"

e procure no forum que existem varios exemplos...

Ricardo Fressa · Fevereiro 21, 2009

o que eu não estou entendo é qual o motivo do erro?

eu só quero pegar o que está no formulario e mandar para o meu email

strEnd seria a variavel em string request.form seria que eu estou pegando do formulario e endereco seria o nome do textbox?

strEnd = Request.Form("endereco")

o que ta fazendo essa linha?

message.End = strEnd

xanburzum · Fevereiro 21, 2009

o motivo de erro é que nao existe, nao tem a propriedade

.End no Objeto CDO.Message,entendeu...

na verdade nenhuma desta propriedades existe:

message.End = strEnd

message.Cid = strCid

message.Est = strEst

message.Tel=strTel

para passar estas variaveis no corpo do email, você deve concatená-las no corpo do email,

no HTMLBody , procure no forum que existem varios exemplos, dae você concatena as variaveis na mensagem, entendeu, você nao pode recuperar , o endereço,cidade,estado, etc e atribuir a uma propriedade do CDO.

sacou...

Ricardo Fressa · Fevereiro 27, 2009

dei uma arruma do no script em asp, agora está dando um erro assim

error '8004020e'

/enviar.asp, line 45

a linha 45 é essa

message.send

Eu vi que pode ser alguma coisa no componente mas usei um script pra ver quais sao os componentes asp instalador no meu servidor e o CDO está.

Também vi que pode ser alguma coisa no formato html dei uma olhada e nao achei nada, será que alguém pode me ajudar?

O código enviar.asp

<%
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fieldsparam("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "svr5.ravehost.com.br"
param.Update
strFrom = Request.Form("para")
strEnde = Request.Form("endereco")
strCid = Request.Form("cidade")
strEst = Request.Form("estado")
strTel = Request.Form("telefone")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")

aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = TrueobjRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strEnde = objRegExp.Replace(strEnde, "")
strCid = objRegExp.Replace(strCid, "")
strEst = objRegExp.Replace(strEst, "")
strTel = objRegExp.Replace(strTel, "")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
message.From = strFrom
message.To = strTo
message.Subject  = StrSubject
message.textBody = StrBody
message.HTMLBody = StrBody +"<br/><br/>End: "+ strEnde +"<br/>Cid: "+ strCid +"<br/>Est: "+ strEst +"<br/>Tel: "+ strTel
message.from = "inoxrodrigues@inoxrodrigues.com.br"  
message.send
Set message = nothingMsg = "Mensagem enviada com sucesso!"
Response.Write "<html><body><table align=center><tr><td> </td></tr>"
Response.Write "<tr><td> </td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

<form method="post" action="enviar.asp" name="Inputform">
<input type="hidden" name="email" value="inoxrodrigues@inoxrodrigues.com.br">
Nome: <input type="text" name="para" size="40">
Endereço: <input type="text" name="endereco" size="40">
Cidade: <input type="text" name="cidade" size="40">
Estado: <input type="text" name="estado" size="40">
Telefone: <input type="text" name="telefone" size="40">
E-mail: <input type="text" name="email" size="40>
Assunto <input type="text" name="assunto" size="40">
Mensagem: <textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea>
<input type="submit" value="Enviar >>" name="enviar">
</form>

xanburzum · Fevereiro 27, 2009

você verificou se o server svr5.ravehost.com.br esta td , OK ?

o que esta sendo passado na variavel strTo ?

dá um response.write na variavel para ver o que tem,

qual porta esta usando.

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Ricardo Fressa · Março 1, 2009

owww, beleza kara...

faltava especificar a porta no smpt....

beleza

Arquivado

[Resolvido] Erro Interno de Servidor - 500

Recommended Posts

Ricardo Fressa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hgb7 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ricardo Fressa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ricardo Fressa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ricardo Fressa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ricardo Fressa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ricardo Fressa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante