Ir para conteúdo
Fórum Script Brasil
  • 0

Sistema Rolante De Jornal Com Asp

rafaeltejeda

Perguntado por rafaeltejeda,

 Share

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0
ursolouco

ursolouco

Postado
Postado

alguém sabe como juntas java script, dhtml sei lá com asp + bd huh.gif

gostaria de fazer um sistema de jornal online aonde o texto rola horizontalmente já tentei com um script que peguei na net mais sem sucesso...

atenciosamente. smile.gif

Rafael Tejeda

Brother!!

Na seção de dicas do imasters, há um sisteminha de rolagem muito interessante (Acho que é até com pausa, quando o internauta posiciona o mouse!! huh.gif ).

Há uma extensão do DW que também faz este tipo de procedimento, mas não sei lhe dizer, se há pausa. -> Download

Mas como cavalo dado não se olha os dentes, vou lhe passar a dicas e você adapta diretamente a sua necessidade.

Abraços e Boa Sorte!!!

[urso]

Link para o comentário
Compartilhar em outros sites
  • 0
rafaeltejeda

rafaeltejeda

Postado
  • Autor
Postado

urso loco

eu montei mas ele não ta achando o bd porque esse é o código.

<% 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
%>

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.

atencioasamente. blink.gif

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

Set conexao = server.createobject("ADODB.connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("../db/banco_dados")

Brother!!

Seu banco de dados não esta sendo localizado, porque, o método MapPath, não esta sendo utilizado corretamente.

Veja só:

 pastaAtual = site
Dentro de WWWROOT: 
 db
Seu arquivo de conexão, para include, é claro: 
 conecta.asp
Sua pagina, de exibição de produtos, que esta dentro do diretorio site: 
 produtos.asp
Como puxar este arquivo ? Simples né... 
<!--#INCLUDE FILE="./db/conecta.asp"-->
Sei que esta explicação, não tem nada a ver com seu código, mas é para esclarecer um método do objeto Response... Para resolver seu código, altere sua conexão para o seguinte codigo: 
 strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source =" & cBanco
cBanco = Server.MapPath("./db/banco_dados")
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

Abraços e Boa Sorte!!!

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...