não sei o porque do erro foi só eu colocar o java script
ele não acha o bd... porque
esse é o erro
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] '(desconhecido)' não é um caminho válido. Certifique-se de que o nome do caminho esteja escrito corretamente e que você esteja conectado ao servidor no qual o arquivo reside.
<% Response.Expires = 0 %>
<!--# include File="adovbs.inc"-->
<%
Const test_NumPerPage = 3
if Request.QueryString("CurPage") = "" then
CurPage = 1
Else
CurPage = Request.QueryString("CurPage")
End if
Set conexao = server.createobject("ADODB.connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../db/banco_dados")
Set rs = Server.CreateObject("ADODB.recordset")
rs.CursorLocation = 3
rs.CacheSize = NumPerPage
strSQL = "SELECT * from noticia order by id desc"
rs.Open strSQL, conexao
rs.MoveFirst
rs.PageSize = test_NumPerPAge
TotalPages = rs.PageCount
rs.AbsolutePage = CurPage
if rs.eof then
response.write " Não há testemunhos para ser exibido "
response.write aspSQL &"<br> Não retorna informação alguma..."
Conexao.close
Set conexao = nothing
end if
%>
<HTML>
<HEAD>
<TITLE>Fogo Suave</TITLE>
<script language="JavaScript">
<!--
var top;
var base;
var pos;
var speedy;
speedy = 1;
function Iniciar() {
top = document.all.Layer1.offsetHeight + 3;
base = 0 - (document.all.Layer2.offsetHeight + 3);
pos = parseInt(document.all.Layer2.style.top);
Mover();
}
function Mover() {
pos = pos - 2;
document.all.Layer2.style.top=pos;
if (pos<base) { pos=top;}
if (speedy==1) {
setTimeout("Mover()",100)
}
}
window.onload = Iniciar
// -->
</SCRIPT>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<TABLE WIDTH="18%" BORDER="0" HEIGHT="34%">
<TR>
<TD>
<%
Count = 0
Do While Not rs.EOF And Count < rs.PageSize
%>
<DIV ID="Layer1" STYLE="border: 1px solid #000000; width:100%; height:100%; overflow:hidden;" OnMouseOver="speedy=0" OnMouseOut="speedy=1;Mover()">
<DIV ID="Layer2" STYLE="position:absolute; left:15px; top:18px; width:192px; height:105px; background-color:yellow">
<p align="justify">
<a href="fogo_suave/ver_noticia.asp?id=<%=rs("id")%>">
<font face="Tahoma" size="2" color="#808080"><%=left(rs("noticia"),50)%>...</font></a></p>
<font face="Tahoma" size="2" color="#FF9900">Adicionado: <%=rs("data")%></font>
</DIV>
</DIV>
<%
Count = Count +1
rs.MoveNext
Loop
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
Rs.close
conexao.close
Set rs = nothing
Set conexao = nothing
%>
Pergunta
rafaeltejeda
não sei o porque do erro foi só eu colocar o java script
ele não acha o bd... porque
esse é o erro
<% Response.Expires = 0 %> <!--# include File="adovbs.inc"--> <% Const test_NumPerPage = 3 if Request.QueryString("CurPage") = "" then CurPage = 1 Else CurPage = Request.QueryString("CurPage") End if Set conexao = server.createobject("ADODB.connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../db/banco_dados") Set rs = Server.CreateObject("ADODB.recordset") rs.CursorLocation = 3 rs.CacheSize = NumPerPage strSQL = "SELECT * from noticia order by id desc" rs.Open strSQL, conexao rs.MoveFirst rs.PageSize = test_NumPerPAge TotalPages = rs.PageCount rs.AbsolutePage = CurPage if rs.eof then response.write " Não há testemunhos para ser exibido " response.write aspSQL &"<br> Não retorna informação alguma..." Conexao.close Set conexao = nothing end if %> <HTML> <HEAD> <TITLE>Fogo Suave</TITLE> <script language="JavaScript"> <!-- var top; var base; var pos; var speedy; speedy = 1; function Iniciar() { top = document.all.Layer1.offsetHeight + 3; base = 0 - (document.all.Layer2.offsetHeight + 3); pos = parseInt(document.all.Layer2.style.top); Mover(); } function Mover() { pos = pos - 2; document.all.Layer2.style.top=pos; if (pos<base) { pos=top;} if (speedy==1) { setTimeout("Mover()",100) } } window.onload = Iniciar // --> </SCRIPT> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000"> <TABLE WIDTH="18%" BORDER="0" HEIGHT="34%"> <TR> <TD> <% Count = 0 Do While Not rs.EOF And Count < rs.PageSize %> <DIV ID="Layer1" STYLE="border: 1px solid #000000; width:100%; height:100%; overflow:hidden;" OnMouseOver="speedy=0" OnMouseOut="speedy=1;Mover()"> <DIV ID="Layer2" STYLE="position:absolute; left:15px; top:18px; width:192px; height:105px; background-color:yellow"> <p align="justify"> <a href="fogo_suave/ver_noticia.asp?id=<%=rs("id")%>"> <font face="Tahoma" size="2" color="#808080"><%=left(rs("noticia"),50)%>...</font></a></p> <font face="Tahoma" size="2" color="#FF9900">Adicionado: <%=rs("data")%></font> </DIV> </DIV> <% Count = Count +1 rs.MoveNext Loop %> </TD> </TR> </TABLE> </BODY> </HTML> <% Rs.close conexao.close Set rs = nothing Set conexao = nothing %>pf me ajudem
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.