Erro Ao Redirecionar (problemas Com Response.redirect?) -- Resolvido

[diraol]

Galera, depois do sistema efeutar a insercao no BD (ou de passar direto, tanto faz, depende só do nivel de acesso do usuario que adentrou a pagina), o sistema da um

Response.redirect("principal.asp")

So que no Navegador aparece o seguinte erro:

Response object error 'ASP 0156 : 80004005'

Header Error

/org/ae-tool/comentarios.asp, line 54

The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.

(a linha 54 é a que eu falei pra voces do response.redirect.)

alguém tem ideia do motivo para isso?

Abracos

Diego

[.Andreia.]

Diego, tenta assim: na primeira linha

<% Response.Buffer = True %>

[diraol]

não deu certo não.

Se eu coloco o

<% Response.Buffer = True %>

antes do

<% @ LANGUAGE = VBScript %>

, ele da "HTTP 500 - erro interno do servidor"

Se eu coloco depois disso, e antes de todo o resto do codigo, ele continua dando o mesmo erro de header.

[.Andreia.]

Diego, esse erro 500 não diz muito, para isso, no IE:

-Ferramentas

-Opções de internet

-Avançado

-E desmarque Mostrar mensagens de erro http amigáveis

rode novamente, com o response.buffer pra ve que erro aparece.

[diraol]

Achei que a opcao já estava desativada.......

Bem, depois de desativar o erro que apareceu foi o seguinte:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/iisHelp/common/500-100.asp, line 41

o que eu acho que tambem não ajuda muito......

[.Andreia.]

Diego, você está usando CDO pra envio de email, nunca vi essa mensagem mas pelo erro pode ser problema na a conexão com servidor. Se você puder passa o codigo...

Consultei um post com esse mesmo erro, no que dizia que era necessário esta linha:

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seudominio.com.br"

Veja se te ajuda

[diraol]

então Andreia, eu não estou usando componente nenhum de email, meu codigo não manda nenhum email. Alias, ate tem um codigo para mandar email, dentro do "seguranca.asp", mas ele esta como comentario apenas, 'e algo que eu ia implantar, mas deixei de lado.

O Codigo da pagina que possivelmente esta dando o erro segue abaixo.

Obrigado pela disposicao em ajudar ... :D

<% @ LANGUAGE = VBScript %>
<!--#include file="seguranca.asp" -->
<!--#include file="cn_2sem-2005.asp" -->
<%  Response.flush
   Dim disc,linhasturma,comentario,wsql,meio
   Session("msg")=""
   linhas_p=request.form("linhas_p")
'   linhas_d=request.form("linhas_d")
   meio=request("meio")
   'verificacao de campos em branco
   if meio="true" and Session("msg") = "" then 
   'meio controla se o usuário acabou de entrar na página
       'Insercao dos comentários no bd
       
      
 'perguntas adicionais
       Set Registros = Server.CreateObject("ADODB.Recordset")
           for disc=1 to linhas_p
               resposta=request.form(trim("are_perg"&disc))
               if resposta <> "n" then
                   wsql="insert into "&Session("area")&"respadic (email,id_pergadic,resposta) values ('"&Session("lgn")&"','"&disc&"','"&resposta&"')"
                   Set Registros=cn.execute(wsql)
               end if
           next

                    
                    'COMENTARIOS DESATIVADOS
                    'COMENTARIOS DESATIVADOS
                    'COMENTARIOS DESATIVADOS
                    'COMENTARIOS DESATIVADOS
                    'COMENTARIOS DESATIVADOS
                    

'           for disc=1 to linhas_d
'               turma=request.form(trim("txt_tur"&disc))
'               comentario=request.form(trim("are_disc"&disc))
'               if turma <> "n" and comentario <> "n" then
'                   wsql="insert into "&Session("area")&"comentaluno (email,id_disciplina,comentario,turma) values ('"&Session("lgn")&"','"&disc&"','"&comentario&"','"&turma&"')"
'                   Set Registros=cn.execute(wsql)
'               end if
'           next
            'Atualização e inserção do campo comentário na tabela questionarios
            If Session("comentario")=0 And Session("nivel")="1" Then
                Session("comentario") = Session("comentario") + 1
                wsql="insert into "&Session("area")&"questionarios set comentario='"&Session("comentario")&"' where email='"&Session("lgn")&"'"
                Set Registros=cn.execute(wsql)
                Set Registros=Nothing
            Else
                Session("comentario") = Session("comentario") + 1
                wsql="update "&Session("area")&"questionarios set comentario='"&Session("comentario")&"' where     email='"&Session("lgn")&"'"
                Set Registros=cn.execute(wsql)
                Set Registros=Nothing
            End If
        Response.Redirect ("principal.asp")
   else
        Response.Redirect ("principal.asp")
   end if
%>

[.Andreia.]

Diego, você comentou todo o codigo que usa CDO? Pelo que estou lendo, tudo indica esse erro à configuraçao do componente.. ou você não tem registrado na sua maquina ou você não configurou direito...

Se você comentou, veja se sem a parte do CDO funciona.

Ps.: Se eu achar alguma coisa mais util, te falo ;)

[diraol]

Realmente Andreia, não era nada referente a esta componente, eu retirei todo o codigo de envio de email que eu tinha, e ainda assim o erro persistiu.

E o estranho e que tem uma parte do codigo dessa pagina que funciona, e essa parte é no final do codigo...

'Atualização e inserção do campo comentário na tabela questionarios

If Session("comentario")=0 And Session("nivel")="1" Then

Session("comentario") = Session("comentario") + 1

wsql="insert into "&Session("area")&"questionarios set comentario='"&Session("comentario")&"' where email='"&Session("lgn")&"'"

Set Registros=cn.execute(wsql)

Set Registros=Nothing

Else

Session("comentario") = Session("comentario") + 1

wsql="update "&Session("area")&"questionarios set comentario='"&Session("comentario")&"' where email='"&Session("lgn")&"'"

Set Registros=cn.execute(wsql)

Set Registros=Nothing

End If

[diraol]

Problema Solucionado.

não tinha achado numa busca preliminar, mas agora vi que tem um monte de coisas iguais aqui no forum.

para quem esta com o mesmo problema, ou para quem não sabe, o Response.Redirect não pode ser utilizado apos o site ter escrito algum tipo de HTML na pagina.

Nesses casos pode-se utilizar 2 saidas alternativas:

---

Server.Transfer "pagina.asp"

- Esta EU acho que é melhor usar em todas as situacoes, a unica restricao 'e que o PWS não aceita ela, mas pensando em WEB, acho muito melhor utiliza-lo, uma vez que as chances de dar erro são infinitamente menores. ---

        response.write "<script>"
        response.write "window.location='principal.asp'"
        response.write "</script>"

Solucao alternativa....

[.Andreia.]

Dieeeegooo hauhaua, poxa nunca tive esse problema :blink:

Aliás, eu tinha testado seu codigo aqui e foi naaa boa.. vai entender