Ticker

claytonprog · Março 18, 2008

Pessoal! Peguei um código na net recentemente e estou tentando adaptá-lo porém não estou conseguindo, se alguém puder me ajudar.

Segue o código:

<html>
<head>
<style TYPE="text/css">
<!--

#tickertape{
position:relative;
width:240;
height:165;
}

#subtickertape{
position:absolute;
border: 1px solid black;
width:240;
height:165;
}

#noticia{
width: 240px;
height: 165px;
position:relative;
}

#imagem{
width: 240px;
height: 165px;
position:absolute;
}

#fill1{
top: 130px;
width: 240px;
height: 35px;
position:absolute;
background-color: #ffffff;
filter: alpha(Opacity=60);
}

#Nota{
top: 130px;
width: 240px;
height: 35px;
position:absolute;
font-size : 10pt;
font-family : Verdana;
font-weight : bold;
position:absolute;
text-align: center;
}

.light2 { top:-1; left:0; color:white; }
.light1 { top:+1; left:+1; color:white; }
.fill2 { top:0; left:0; color:black; }
.bg1 {border-color: #cc0033; border-width : medium;border-style : solid;;}

-->
</style>

</head>
<body onload="if (document.all||document.layers) {regenerate2();update()}">
<div id="tickertape">
<div id="subtickertape" class="subtickertapefont">
Carregando ...
</div>
</div>

<!-- Noticas com Foto -->
<script language="JavaScript1.2">
var speed=3000

dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = server.CreateObject("ADODB.Recordset")

/* Informaçoes para exibir */
NewImg = new Array (

do while RS.eof 
Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext
loop
);


i=0
if (document.all)
tickerobject=document.all.subtickertape.style;
else
tickerobject=document.tickertape.document;

function regenerate(){
window.location.reload()
}

function regenerate2(){
if (document.layers)
setTimeout("window.onresize=regenerate",240)
}

function update(){
BgFade(0xff,0xff,0xff, 0x00,0x00,0x00,10);
if (document.layers){

document.getElementById.subtickertape.document.open();
document.getElementById.subtickertape.document.write('<span class="subtickertapefont">'+news[i]+'</span>');
document.getElementById.subtickertape.document.close();

}
else
document.all.subtickertape.innerHTML=news[i];

if (i<news.length-1)
i++
else
i=0
setTimeout("update()",speed)}

function BgFade(red1, grn1, blu1, red2,
grn2, blu2, steps) {
sred = red1; sgrn = grn1; sblu = blu1;
ered = red2; egrn = grn2; eblu = blu2;
inc = steps;
step = 0;
RunFader();
}
function RunFader() {
var epct = step/inc;
var spct = 1 - epct;
if (document.layers)
tickerobject.bgColor =
Math.floor(sred * spct + ered *
epct)*256*256 +
Math.floor(sgrn * spct + egrn * epct)*256 +
Math.floor(sblu * spct + eblu * epct);
else
tickerobject.backgroundColor=
Math.floor(sred * spct + ered *
epct)*256*256 +
Math.floor(sgrn * spct + egrn * epct)*256 +
Math.floor(sblu * spct + eblu * epct);
if ( step < inc ) {
setTimeout('RunFader()',50);
}
step++;
}

function MontaCasca(imagem,urlbase,linhafina) {
var MontaCasca = "<table cellpadding='0' cellspacing='0'>"+
"<tr><td class='bg1'>"+
"<div id='noticia'>"+
"<div id='imagem'><a href='"+urlbase+"'>"+
"<img src='"+imagem+"' width='240' height='165' border='0'/></a>"+
"</div><div id='fill1'></div>"+
"<div id='nota' class='light1'>"+linhafina+"</div>"+
"<div id='nota' class='light2'>"+linhafina+"</div>"+
"<div id='nota' class='fill2'>"+linhafina+"</div>"+
"</div></td></tr></table>";

return MontaCasca;
}
</script>
</body>
</html>

Não está dando erro simplemesmente só aparece um quadrado com um texto carregando.

Ted k' · Março 18, 2008

creio que não seja o ASP, o que pode ser é o javascript

aqui:

var speed=3000
<%
dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = server.CreateObject("ADODB.Recordset")
%>

/* Informaçoes para exibir */
NewImg = new Array (
<%
do while RS.eof
Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext
loop
%>
);

claytonprog · Março 18, 2008

Eis a questão como consertar isso????????? Helppppp!!!!!

Anderson Roberto · Março 18, 2008

var speed=3000

<%

dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")

SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"

set rs = server.CreateObject("ADODB.Recordset")

%>

/* Informaçoes para exibir */

NewImg = new Array (

<%

do while not RS.eof 'Não seria Not RS.EOF?

Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext

loop

%>

Ted k' · Março 18, 2008

ai, a mesma coisa que postei e que o anderson postou!!

claytonprog · Março 18, 2008

tentei como você disse e nada continua do mesmo jeito

var speed=3000

dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = server.CreateObject("ADODB.Recordset")

/* Informaçoes para exibir */
NewImg = new Array (

do while not RS.eof 
Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext
loop

Ted k' · Março 18, 2008

você notou as tags asp??

<%

dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")

SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"

set rs = server.CreateObject("ADODB.Recordset")

%>

/* Informaçoes para exibir */

NewImg = new Array (

<%

do while not RS.eof 'Não seria Not RS.EOF?

Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat=&(rs("codnoticia"))&""""&],")

rs.movenext

loop

%>

claytonprog · Março 18, 2008

<%
dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = server.CreateObject("ADODB.Recordset")
%>
/* Informaçoes para exibir */
NewImg = new Array (
<%
do while not RS.eof 
Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext
loop
%>

coloquei as tags está dando o seguinte erro:

ADODB.Recordset (0x800A0E78)

Operação não permitida quando o objeto está fechado.

/tetel/ticker.asp, line 80

a linha 80 é essa: do while not RS.eof

Anderson Roberto · Março 18, 2008

Tenta assim:

<%
dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb")
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = dbConn.Execute(SQL)
%>
/* Informaçoes para exibir */
NewImg = new Array (
<%
do while not RS.eof
Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext
loop
%>

claytonprog · Março 19, 2008

Fiz como você mostrou e deu esse erro:

Objeto necessário: 'Provider=Microsoft.J'

/tetel/ticker.asp, line 75

Anderson Roberto · Março 19, 2008

Tem que instanciar e abrir uma conexão:

<%
Set dbConn = Server.CreateObject("ADODB.Connection") 'Instancia a conexao
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb") 'Abre a conexao
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = dbConn.Execute(SQL)
%>
/* Informaçoes para exibir */
NewImg = new Array (
<%
do while not RS.eof
Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],")

rs.movenext
loop
%>

claytonprog · Março 19, 2008

corrigi não dá erro nenhum, porém não está funcionando continua aparecendo um quadrado e uma mensagem carregando. A coisa tá dificil, será que vou conseguir fazer funcionar, pessoal ajuda ai!!!!!!!

O código agora ficou assim:

<html>
<head>
<style TYPE="text/css">
<!--

#tickertape{
position:relative;
width:240;
height:165;
}

#subtickertape{
position:absolute;
border: 1px solid black;
width:240;
height:165;
}

#noticia{
width: 240px;
height: 165px;
position:relative;
}

#imagem{
width: 240px;
height: 165px;
position:absolute;
}

#fill1{
top: 130px;
width: 240px;
height: 35px;
position:absolute;
background-color: #ffffff;
filter: alpha(Opacity=60);
}

#Nota{
top: 130px;
width: 240px;
height: 35px;
position:absolute;
font-size : 10pt;
font-family : Verdana;
font-weight : bold;
position:absolute;
text-align: center;
}

.light2 { top:-1; left:0; color:white; }
.light1 { top:+1; left:+1; color:white; }
.fill2 { top:0; left:0; color:black; }
.bg1 {border-color: #cc0033; border-width : medium;border-style : solid;;}

-->
</style>

</head>
<body onload="if (document.all||document.layers) {regenerate2();update()}">
<div id="tickertape">
<div id="subtickertape" class="subtickertapefont">
Carregando ...
</div>
</div>

<!-- Noticas com Foto -->
<script language="JavaScript1.2">
var speed=3000

<%
Set dbConn = Server.CreateObject("ADODB.Connection") 'Instancia a conexao
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb") 'Abre a conexao
SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC"
set rs = dbConn.Execute(SQL)
%>
/* Informaçoes para exibir */
NewImg = new Array (
<%
do while not RS.eof
Response.Write("[""../painel/imagens/"&(rs("foto1").Value)&""","""&(rs("data"))&""","""&Mid(rs("chamada"),1,45)&"..."",""/detalhes_noticias.asp?id="&(rs("id"))&""""&"],")

rs.movenext
loop
%>);


i=0
if (document.all)
tickerobject=document.all.subtickertape.style;
else
tickerobject=document.tickertape.document;

function regenerate(){
window.location.reload()
}

function regenerate2(){
if (document.layers)
setTimeout("window.onresize=regenerate",240)
}

function update(){
BgFade(0xff,0xff,0xff, 0x00,0x00,0x00,10);
if (document.layers){

document.getElementById.subtickertape.document.open();
document.getElementById.subtickertape.document.write('<span class="subtickertapefont">'+news[i]+'</span>');
document.getElementById.subtickertape.document.close();

}
else
document.all.subtickertape.innerHTML=news[i];

if (i<news.length-1)
i++
else
i=0
setTimeout("update()",speed)}

function BgFade(red1, grn1, blu1, red2,
grn2, blu2, steps) {
sred = red1; sgrn = grn1; sblu = blu1;
ered = red2; egrn = grn2; eblu = blu2;
inc = steps;
step = 0;
RunFader();
}
function RunFader() {
var epct = step/inc;
var spct = 1 - epct;
if (document.layers)
tickerobject.bgColor =
Math.floor(sred * spct + ered *
epct)*256*256 +
Math.floor(sgrn * spct + egrn * epct)*256 +
Math.floor(sblu * spct + eblu * epct);
else
tickerobject.backgroundColor=
Math.floor(sred * spct + ered *
epct)*256*256 +
Math.floor(sgrn * spct + egrn * epct)*256 +
Math.floor(sblu * spct + eblu * epct);
if ( step < inc ) {
setTimeout('RunFader()',50);
}
step++;
}

function MontaCasca(imagem,urlbase,linhafina) {
var MontaCasca = "<table cellpadding='0' cellspacing='0'>"+
"<tr><td class='bg1'>"+
"<div id='noticia'>"+
"<div id='imagem'><a href='"+urlbase+"'>"+
"<img src='"+imagem+"' width='240' height='165' border='0'/></a>"+
"</div><div id='fill1'></div>"+
"<div id='nota' class='light1'>"+linhafina+"</div>"+
"<div id='nota' class='light2'>"+linhafina+"</div>"+
"<div id='nota' class='fill2'>"+linhafina+"</div>"+
"</div></td></tr></table>";

return MontaCasca;
}
</script>
</body>
</html>

Ted k' · Março 19, 2008

se o ASP não está mais apresentando erros então tente rever esse Javascript!

Arquivado

Ticker

Recommended Posts

claytonprog 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

claytonprog 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Anderson Roberto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

claytonprog 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

claytonprog 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Anderson Roberto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

claytonprog 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Anderson Roberto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

claytonprog 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante