Server Side Includes

[Leebano 0]

^_^ Good afternoon Everybody! rsrsrs... seguinte:

 

Óia... tenho um site em asp que na primeira página desenvolvi o sistema de busca, porém queria colocar este sistema nas outras páginas do site utilizando das Server-Side Includes. Então criei uma nova página onde desenvolvi novamente o Sistema de Busca e deixei somente a codificação dele no código-fonte. Na página Index.asp, deletei as referências ao sistema que tava lá e chamei o sistema pela include. mas naum funfou!... pôtz! taí o código-fonte do sistema de busca:

<!--#include file="Connections/conn_parfums.asp" --><%Dim rsBuscaDim rsBusca_numRowsSet rsBusca = Server.CreateObject("ADODB.Recordset")rsBusca.ActiveConnection = MM_conn_parfums_STRINGrsBusca.Source = "SELECT * FROM GRIFE"rsBusca.CursorType = 0rsBusca.CursorLocation = 2rsBusca.LockType = 1rsBusca.Open()rsBusca_numRows = 0%><STYLE>A {text-decoration: none;}A:HOVER {text-decoration: underline;}.style1 {color: #848284}</STYLE><link href="Class.css" rel="stylesheet" type="text/css"><table border="0" cellpadding="0" cellspacing="0">  <tr valign="top">     <td width="235">       <div align="left">        <table width="235" border="0" cellpadding="0" cellspacing="0">          <tr>            <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img name="" src="Imgs/Capa/235X20a.png" width="235" height="20" alt=""></font></td>          </tr>          <tr>            <td valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font>                <form action="Links/Resultados.asp" method="get" name="busca" id="busca">                  <table width="100%"  border="0" cellspacing="0" cellpadding="0">                    <tr>                      <td valign="top"><font color="#848284" size="1" face="Verdana, Arial, Helvetica, sans-serif">Busque uma marca em nosso site:                                                                            <select name="grife" class="form" id="grife">                        <option selected value="">Pesquise por Grife</option>                        <%While (NOT rsBusca.EOF)%>                        <option value="<%=(rsBusca.Fields.Item("cod_grife").Value)%>"><%=(rsBusca.Fields.Item("grife").Value)%></option>                        <%  rsBusca.MoveNext()WendIf (rsBusca.CursorType > 0) Then  rsBusca.MoveFirstElse  rsBusca.RequeryEnd If%>                      </select>                            <input name="Submit" type="submit" class="form" value="Pesquisar">                            </font></td>                    </tr>                  </table>              </form></td>          </tr>          <tr>            <td valign="top"><font color="#848284" size="1" face="Verdana, Arial, Helvetica, sans-serif">Pesquise por palavra:</font>              <form action="Links/Resultados.asp" method="get" name="busca_ava" target="_self" id="busca_ava">              <input name="produto" type="text" class="form" id="produto" size="20">              <input name="Submit2" type="submit" class="form" value="Pesquisar">              </form>            </td>          </tr>          <tr>            <td valign="top"><font color="#FFFFFF"><img src="Imgs/spacer.gif" width="8" height="8"></font></td>          </tr>        </table>      </div></td>  </tr></table><%rsBusca.Close()Set rsBusca = Nothing%>

Podem notar que essa página "busca.asp" já traz uma include da conexão com o bd.

 

Meu include não funcionou, quem puder me auxiliar nesse problema...

 

Abraços,

 

Lee.

[Mário Monteiro 179]

não funcionou porque?? deu erro??

[Leebano 0]

não funcionou porque?? deu erro??

<{POST_SNAPBACK}>

Tem MSN? bem... seguinte, dá erro na conexão com o bd, mas o estranho é que se o sistema for integrado à pagina index.asp naum dá erro, só quando é com include. O erro é esse:

 

Microsoft VBScript compilation error '800a0411' Name redefined /Connections/conn_parfums.asp, line 2 Dim MM_conn_parfums_STRING----^

[Ricardorodh 0]

Cara o erro acontece porque tu deve estar chamando o include mais de uma vez no mesmo código, ou está com mais de uma referencia a string ( Dim MM_conn_parfums_STRING )OK

[Leebano 0]

Cara o erro acontece porque tu deve estar chamando o include mais de uma vez no mesmo código, ou está com mais de uma referencia a string ( Dim MM_conn_parfums_STRING )

 

OK

<{POST_SNAPBACK}>

É vou verificar com mais calma isso. Valew pela força!

 

Lee

[Mário Monteiro 179]

o erro é esse mesmo com isso a variavel esta sendo declarada mais de uma vez