Cannot open any more tables.

[Vinicius Tardem]

Olá, estou com um problema na parte de BUSCA,

esse busca, ele procura a palavra-chave no site,

porém ele apresenta um erro.

Microsoft OLE DB Provider for ODBC Drivers error '8007000e'

[Microsoft][ODBC Microsoft Access Driver] Cannot open any more tables.

/home/conexao.asp, line 268

Esse é código onde está apresentando o problema, se puderem me

informar o erro sou grato.

Function relaciona(atual, emqual)
    If atual = emqual then
        relaciona = true
    Else
        line 268-> Set atual = Conexao_banco.Execute("Select * From nivel where id=" & atual)
        If atual("subfam") = emqual then
            relaciona = true
        Else
            If atual("subfam") <> 0 then
                relaciona = relaciona(atual("subfam"), emqual)
                
            Else
                relaciona = false
            End if
            
        End if
    End if
    on error goto 0
End function

Editado Maio 19, 2010 por Vinicius Tardem

[bareta]

ta agora q eu vi...

esqueça essa função.... o que seu script deve fazer?

[Vinicius Tardem]

Ele é executado nessa página !

<font size="3" face="Verdana, Arial, Helvetica, sans-serif"> </font> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
 <tr> 
  <td><font size="3" face="Verdana, Arial, Helvetica, sans-serif"> 
   <%
   
       str = "Select * From nivel where (pagina_inicial like '%" & busca & "%' or  nivel like '%" & busca & "%')"'" and (id=" & id & " or subfam="&id&") order by ordem"
    
Set rs = Conexao_banco.Execute(str)
If rs.EOF then
%>
   <font size="2"><a  class="linkBusca" href="java script:history.go(-1);"><strong>&lt;&lt; Voltar 
   </strong></a></font> 
   <center>
    Nada foi encontrado para a consulta <strong><%= busca %></strong>. 
   </center>
   <%
Else

%>
   <center>
    Resultado para a consulta <strong><%= busca %></strong>: 
   </center>
   <ul>
    <%
    If Request.QueryString("id") = empty then id = 0
    
        Do while not rs.EOF
        em = id
        if em = 29 then em = 0
        If relaciona(rs("id"), em) then
             %>
    <li><a class="linkBusca" href="<%= endereco_virtual %>default.asp?cliente=<%= cliente %>&id=<%= rs("id") %>"><%= texto_imagem("texto", rs("nivel")) %></a><br>
     <%         
            pagina = rs("Pagina_Inicial")
            if pagina = "undefined" then
                pagina = ""
            End if
            if pagina <> empty then
                conta = conta + 1
            End if
            
             %>
    </li>
    <br>
    <%
        end if
            
            rs.movenext
        Loop
        %>
   </ul>
   <%
End if
  %>
   <font size="2"><a  class="linkBusca" href="java script:history.go(-1);"><strong>&lt;&lt; Voltar 
   </strong></a></font> </font></td>
 </tr>
</table>

[bareta]

o que seu script deve fazer?