Erro Na Busca

[ju_rezende]

Olá pessoal fiz uma pagina onde a mesma tem um form.

nela fiz um if se a pessoa não digitar nanda no campo endereço então ela vai para pagina de erro...

Só que ao invés de aparecer a pagina de erro que criei.

Aparece a seguinte mensagem

Response object error 'ASP 0156 : 80004005'

Header Error

/Enderecomostra.asp, line 70

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

Vou mostra meu código para verem...

</td>

    <td width="442" valign="top">

<%dim busca1

  if session("NomeBusca")=replace(request.form("NomeBusca"), "'drop", "") or session("NomeBusca")=replace(request.form("NomeBusca"), "'select*", "") or session("NomeBusca")=replace(request.form("NomeBusca"), "'select", "")then

  response.redirect ("erroendereco.asp")

end if

if session("NomeBusca")=replace(request.form("NomeBusca"), "'", "") or session("NomeBusca")= ""  then

  response.redirect ("erroendereco.asp")

end if

busca1=request.form("NomeBusca")

sql2 = "select * from clientes where Endereco  like '" & busca1 & "%' and del=0"

'db = server.MapPath ("dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"

set rs2 = server.CreateObject ("adodb.recordset")

                     

 

rs2.Open sql2,con,3,3 %>

<table width="460" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td colspan="2"><a href="Default.asp" target="_self">Home</a> <a href="../Endereco.asp" target="_self">Voltar</a>

          </td>

          <td width="173" colspan="9"><div align="right">Total de Registros

              <%=rs2.recordcount%>

            </div></td>

        </tr>

        <tr >

          <td colspan="11"background="../images/novasimagens/fundodaTd.gif"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#990000">Pesquisa

            por endere&ccedil;o da empresa </font></strong>&gt;&gt;

            <%response.write busca1%></font></td>

        </tr>

  <%if rs2.eof=true then %>

  <tr><td colspan="25"></td></tr>

  <tr><td colspan="25"><marquee position=alternate><%response.write " Nenhum registro encontrado"%></marquee></td></tr>

  <%

  else%>

  <% do while not rs2.eof%>

        <tr >

          <td colspan="11"background="../images/novasimagens/fundodacinza.gif"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresa:

            </strong><font color="#990000" size="2" face="Arial, Helvetica, sans-serif">

<strong><%response.write rs2("empresa")%></strong></font></td>

        </tr>

        <tr>

          <td colspan="2"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Endere&ccedil;o:

            </font></strong><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<%response.write rs2("Endereco")%></font></td>

          <td colspan="9"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Bairro:</font>

            <%response.write rs2("Bairro")%></strong></font></td>

        </tr>

        <tr>

          <td width="113"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Tel:</font></strong></font><font size="2" face="Arial, Helvetica, sans-serif"><strong>(12)

            </strong><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <% response.write rs2("Telefone")%>

            </font></td>

          <td colspan="10"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Site</font></strong></font><font color="#000000"><strong><font size="2" face="Arial, Helvetica, sans-serif">:

            </font>

            <% if rs2("site")<>"-" then%>

    <a href ="Http://<%=rs2("site")%>"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Site")%>

            </font>

            <%else%>

  <a href ="NaoSite.asp"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Site")%>

            </font>

            <%end if%>

        </tr>

  <%rs2.movenext%>

  <%loop%>

  <%end if%>

  <% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs2.state <> 0 Then rs2.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing%>

      </table> </td>

[fercosmig]

ponha este if:

if session("NomeBusca")=replace(request.form("NomeBusca"), "'drop", "") or session("NomeBusca")=replace(request.form("NomeBusca"), "'select*", "") or session("NomeBusca")=replace(request.form("NomeBusca"), "'select", "")then

  response.redirect ("erroendereco.asp")

end if

if session("NomeBusca")=replace(request.form("NomeBusca"), "'", "") or session("NomeBusca")= ""  then

  response.redirect ("erroendereco.asp")

end if

antes da tag <html>

abraços

[ju_rezende]

Poxa valeu mesmo funcionou, mas vc poderia me explicar porque tenho que colocar esta if , antes da tag.. html?

[fercosmig]

porque o response.redirect não funciona depois que você inicia a criacao do documento html.

então tem que vir antes de qualquer marcação html

não sou muito bom pra explicar, mas tá ae

abraços

----- edited -----

achei isto ae agora

Coloque no inicio de seu código Response.Buffer = True, e antes de fazer o redirect Response.Clear, esse erro é devido ao envio de dados ao browser já ter sido iniciada e se estar tentando redirecionar a página.

abraços

Editado Fevereiro 22, 2006 por fercosmig

[ju_rezende]

Poxa valeu mesmo, esses detalhes realmente nem sabia, brigada mesmo ....

Deu pre entender sim.....

Abraços

[ju_rezende]

pior que tó com um probleminha, quando coloquei aquele if acima, agora tudo que digito ele vai para o redirect, e não realiza a busca..

o que pode ser , já até mudei o nome do form mas não funciona....

Poderiam me ajudar?

Agradecida...

Vejam meu código

<%if session("PorNome")=replace(request.form("PorNome"), "'drop", "") or session("PorNome")=replace(request.form("PorNome"), "'select*", "") or session("PorNome")=replace(request.form("PorNome"), "'select", "")then

  response.redirect ("erropn.asp")

end if

if session("PorNome")=replace(request.form("PorNome"), "'", "") or session("PorNome")= ""  then

  response.redirect ("erropn.asp")

end if%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Comércio de Jacareí - Pesquisa Por Nome</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id="Layer1" style="position:absolute; left:300px; top:72px; width:107px; height:16px; z-index:1"pesquisamostrab.asp" method="post">

  <%dim busca

db = server.MapPath ("dados\treino.mdb")

set con = server.CreateObject("adodb.connection")

set rs = server.CreateObject ("adodb.recordset")

set rs1 = server.CreateObject ("adodb.recordset")

sql1 = "select distinct Bairro from clientes where del=0"

sql = "select distinct Categoria from clientes where del=0"

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"

rs.Open sql,con,3,3

rs1.Open sql1,con,3,3%>

<form id="procurar" method="post" action="pesquisa.asp" name="form1">

  <font face="Arial">

  <select style="width: 130px;" name="Bairro">

    <%rs1.movefirst%>

    <option>Bairro</option>

    <% do while rs1.eof = false %>

    <option>

    <%response.write rs1("bairro")%>

    </option>

    <% rs1.movenext %>

    <%loop %>&nbsp;

   

  </select>

  </font> </div>

<div id="Layer2" style="position:absolute; left:434px; top:73px; width:109px; height:17px; z-index:2">

  <font face="Arial">

  <select style="width: 130px;" name="categoria">

    <%rs.movefirst%>

<option>Categoria</option>

    <% do while rs.eof = false %>

    <option>

    <%response.write rs("categoria")%>

    <% rs.movenext %>

    </option>

    <%loop %>&nbsp;

   

  </select>

  </font> </div>

<div id="Layer3" style="position:absolute; left:566px; top:72px; width:108px; height:17px; z-index:3">

  <input type="text" name="Empresa" style = "width: 120">

</div>

<div id="Layer4" style="position:absolute; left:690px; top:74px; width:68px; height:39px; z-index:4">

<input type="image" img src="../images/novasimagens/botao/bntprocurar.jpg" alt= "procurar" onclick="document.getElementById('procurar').submit()"></form></div>

<table width="339" border="0" cellpadding="0" cellspacing="0">

  <tr>

    <td colspan="3"><img src="../images/novasimagens/1.gif" width="770" height="112" border="0" usemap="#Map">

      <img src="../images/novasimagens/2.gif" width="769" height="89"> </td>

  </tr>

  <tr>

    <td colspan="3" heig="14">&nbsp;</td>

  </tr>

  <tr>

    <td width="147" valign="top"><img src="../images/novasimagens/pesquisa3.gif" width="147" height="648" border="0" usemap="#Map2">

    </td>

    <td width="442" valign="top">

<%dim busca1

busca1=request.form("PorNome")

sql2 = "select * from clientes where empresa  like '" & busca1 & "%' and del=0"

'db = server.MapPath ("dados\treino.mdb")

'set con = server.CreateObject("adodb.connection")

'con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\dados\treino.mdb") &";Persist Security Info=False"

set rs2 = server.CreateObject ("adodb.recordset")

                     

 

rs2.Open sql2,con,3,3 %>

<table width="460" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td colspan="2"><a href="Default.asp" target="_self">Home</a> <a href="../PN.asp" target="_self">Voltar</a>

          </td>

          <td width="173" colspan="9"><div align="right">Total de Registros

              <%=rs2.recordcount%>

            </div></td>

        </tr>

        <tr >

          <td colspan="11"background="../images/novasimagens/fundodaTd.gif"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#990000">Pesquisa

            por nome da empresa </font></strong>&gt;&gt;

            <%response.write busca1%></font></td>

        </tr>

  <%if rs2.eof=true then %>

  <tr><td colspan="25"></td></tr>

  <tr><td colspan="25"><marquee position=alternate><%response.write " Nenhum registro encontrado"%></marquee></td></tr>

  <%

  else%>

  <% do while not rs2.eof%>

        <tr >

          <td colspan="11"background="../images/novasimagens/fundodacinza.gif"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>Empresa:</strong><font color="#990000" size="2" face="Arial, Helvetica, sans-serif"><strong><%response.write rs("empresa")%><strong>

            </font></td>

        </tr>

        <tr>

          <td colspan="2"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Endere&ccedil;o:</font></strong><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Endereco")%></font></td>

          <td colspan="9"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Bairro:</font>

            <%response.write rs2("Bairro")%></strong></font></td>

        </tr>

        <tr>

          <td width="113"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Tel:</font></strong></font><font size="2" face="Arial, Helvetica, sans-serif"><strong>(12)

            </strong><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

            <% response.write rs2("Telefone")%>

            </font></td>

          <td colspan="10"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Site</font></strong></font><font color="#000000"><strong><font size="2" face="Arial, Helvetica, sans-serif">:

            </font>

            <% if rs2("site")<>"-" then%>

    <a href ="Http://<%=rs2("site")%>"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Site")%>

            </font>

            <%else%>

  <a href ="NaoSite.asp"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%response.write rs2("Site")%>

            </font>

            <%end if%>

        </tr>

  <%rs2.movenext%>

  <%loop%>

  <%end if%>

      </table> </td>