Ir para conteúdo

Arquivado

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

DackAle

Erro

Recommended Posts

E ae galerim beleza ? =)

 

Seguinte tenho um site que estava OK, dai o cliente solicitou algumas mudanças fiz beleza, dai fui entrar em 3 paginas internas e esta dando erro nuam include que tem em TODAS as paginas, mas só nessas 3 ocorre o erro, o erro que ocorre é o seguinte:

 

Microsoft JET Database Engine error '80004005' Could not use ''; file already in use. /cachacariapaulista2.com.br_non_ssl/includes/config.asp, line 6

a config.asp é esta

 

<% Session.LCID=1046Dim ConexaoSub AbreConexaoSet Conexao=Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_"data source=" &_Server.MapPath("./bd/tapas_b2w_1331.mdb")End SubSub FechaConexaoConexao.CloseSet Conexao = NothingEnd Sub%>

Só que o erro em si (aonde a pagina para de ser processada) ocorre em outra include dai mostra esse erro, alguem tem noção o por que pode estar dando este erro ?

 

E pa terminar a ultima include, aonde a pagina para de ser processada nessas 3 paginas...

 

<%Dim SQL10,RS10SQL10="SELECT TOP 1 * FROM noticias WHERE destaque = 's' ORDER BY destaque,id"Call AbreConexaoSet RS10 = Conexao.Execute(SQL10)If RS10.EOF Then%><%=Fonte10%><span class="style6">Nenhum registro foi encontrado</span><%=Fonte001%><br>              <%  end if  While Not RS10.EOF  %>  <td></td>  <td>  <%=Fonte10%><%=rs10("titulo")%><%=Fonte001%><br><%=fonte12%><%=rs10("data")%><%=Fonte001%><br><%=Fonte08%>                <%Response.Write left(trim(server.HTMLEncode(rs10("conteudo"))),100)%>                <% if len(trim(rs10("conteudo"))) => 100 then %>                <% Response.Write "... "%>                <% end if %>                <a href=noticia.asp?id=<%=rs10("id")%> class=LINK4><img src="imagens/icone_03.jpg" width="13" height="13" border="0" align="absbottom"></a><%=fonte%><br><br>    <div align="center"><a href=noticias.asp class=LINK5>Mais Notícias</a></div></td><% RS10.MoveNext          WEND    RS10.Close    SET RS10=Nothing    Call FechaConexao    %>

Bom se alguem souber me ajudar fico muito grato =)

 

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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