Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Raphael

Erro!!!

Por , em ASP Clássico

Recommended Posts

Raphael    0

Raphael
Postado

Olá pessoal....Estou usando um código em ASP para que os visitantes indiquem o meu site para outras pessoas, ele usa o objeto CDONTS para enviar os emails.Ao tentar indicar o site, ele acusa um erro interno no servidor:HTTP 500 - Erro interno do servidor Internet Explorer Já conferi os códigos e estão certos, mas não consigo solucionar o problema.Se alguém puder me ajudar....Desde já agradeço a tenção.[]'sRaphaelcpd@chiaperini.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

d.eleete    0

d.eleete
Postado

Mas erro 500 eh pq o servidor ta com pau... naum eh seus scripts.. espera um pouco q ja volta..

Compartilhar este post

Link para o post
Compartilhar em outros sites

silas_i    0

silas_i
Postado

d.eleete, necessariamente não é o servidor que esta com pau.... pode ser sim ! Mas se tratando de CDTONS, pode ser erro na hora do envio ou qualquer coisa... sabe como a Microsoft é né !..rs..rs..rsCara poe o código aqui pra gente ver !

Compartilhar este post

Link para o post
Compartilhar em outros sites

d.eleete    0

d.eleete
Postado

Eh verdad... eh q geralmente esse erro 500 eh qndo f*** geral..P.S. Valeu silas pelas dicas no PM...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Raphael    0

Raphael
Postado

Olá pessoal...Muito obrigadi pela atenção.Fiz alguns teste e está funcionando ele envia o email, mas continua o erro!!HTTP 500 - Erro interno do servidor Internet Explorer Daixeme explicar melhor:São 3 arquivos indique.asp, indique2.asp, ok1.aspO arquivo indique.asp contem o formulario, para preenchimento e recebe o comando response.redirect "indique2.asp" para enviar o email...Entou postando o código para melhor compreeensão.<%dim useractionuseraction = request("action")select case useraction case "login" seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail") htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>" htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font " htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#000080>!<br>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da Chiaperini e pensou que você iria gostar de visitar o site também!</font></font></strong></font></p>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana> á chiaperini agradece</font><br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> Geek Brasil" htmlemail = htmlemail & "- O seu Portal de Informática<br>" htmlemail = htmlemail & " </font><a href=http://www.chiaperini.com.br><font face=Verdana size=2 color=#000080>www.chiaperini.com.br</font></a></i></strong></p>" objCDO.To = emailamigo objCDO.From = seunome objCDO.Subject = "V I S I T E ! ! !" objCDO.Body = htmlemail objCDO.MailFormat = 0 objCDO.Bodyformat = 0 objCDO.Send response.redirect "indique2.asp" end select%> <html><head> <title>Geek Brasil - Indicação</title></head><body topmargin="0" leftmargin="0" bgcolor="#429AC6"><p align="center"><font face="Verdana" size="2"> <br> </font> <font face="Arial" size="2" color="#FFFFFF"><b>Preenchendo este formulário,você estará indicando o site da Geek Brasil à seu amigo.</b> </font> <br><form name="theform" action="indique.asp?action=login" method="post"><div align="center"><center><table bgcolor="#39597D" width="388" height="30"><tr><td width="111" height="1" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu Nome:</font></b></td><td width="263" height="1" bgcolor="#A5B4C4"><input type="text" name="seunome" size=31></td></tr><tr><td width="111" height="0" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu E-mail:</font></b></td><td width="263" height="0" bgcolor="#A5B4C4"><input type="text" name="seuemail" size=31 maxlength=30></td></tr><tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Nome do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="nomeamigo" size=31 maxlength=30></td></tr><tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">E-mail do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="emailamigo" size=31 maxlength=30></td></tr></table></center></div><p align="center"><input type="submit" value="< < I N D I C A R > >"></p></form></body>indique2.asp<% seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail")htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>" htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font " htmlemail = htmlemail & "face=Verdana color=#FF0000>" & seunome & "</font></i><font face=Verdana color=#000080>!<br>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "Toda a equipe Geek Brasil, agradece à você por indicar o nosso site e queremos dizer que a indicação foi enviado com sucesso para " & nomeamigo & "!</font></font></strong></font></p>" htmlemail = htmlemail & "<br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> Geek Brasil" htmlemail = htmlemail & "- O seu Portal de Informática<br>" htmlemail = htmlemail & " </font><a href=http://www.chiaperini.com.br><font face=Verdana size=2 color=#000080>www.chiaperini.com.br</font></a></i></strong></p>" objCDO.To = seuemail objCDO.From = "cpd@chiaperini.com.br" objCDO.Subject = "O B R I G A D O" objCDO.Body = htmlemail objCDO.MailFormat = 0 objCDO.Bodyformat = 0 objCDO.Send if objCDO.Send = true then response.redirect "ok1.asp" else response.redirect "indique.asp" end if %>Grato pela tenção Raphaelcpd@chiaperini.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

aparentemente ta tudo certo kra...é f*** esse tipo de erro 500 é muito genérico...sei lá... vai "compilando" por partes pra ver +/- onde ta o possível erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

silas_i    0

silas_i
Postado

Qual das páginas esta dando erro !?E qual a linha de erro !?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Raphael    0

Raphael
Postado

Caro amigo mais uma vez agradeço a atenção sua e de todos.

 

Á pagina que está dando erro é indique2.asp e ela não mostra linha de erro mas só mostra que é um erro interno de servirdo.

(HTTP 500 - Erro interno do servidor

Internet Explorer)

 

ai vai o link para que quiser acessar: Chiaperini

 

Grato pela atenção

 

Raphael

cpd@chiaperini.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dá uma olhada no códico da indique.asp

o action do form está ssim:

<form name="theform" action="indique.asp?action=login" method="post">

Creio que deveria ser assim:

<form name="theform" action="indique2.asp" method="post">

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Raphael    0

Raphael
Postado

Caro amigo salgado..Tentei fazer o que me disse mas também nao deu certo, se eu retirar o action=login" ? ao invés de me mostrar o nome de quem enviou a mensagem ele mostra a variavél que gurda o nome de que enviou.Mesmo assim muito obrigado pela ajuda... :rolleyes: Mas ainda nao consegui resolver o problema.Raphaelcpd@chiaperini.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

da uma olhada na linha 39...

 

Microsoft VBScript compilation error '800a03f6' Expected 'End' /indique2.asp, line 39

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

cara, erro 500 indica q ele num encontrou determinado arquivo!!então, vai no seu navegador, ferramentas>opções de internet>avançadas> e habilite a opção "Mostrar erros de http amigáveis"!ai ele irá te mostrar o verdadeiro erro....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito