Ticker Dúvida

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 dizendo: carregando.

webdeveloper · Março 18, 2008

Tente alterar este trecho:

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

Entrar

Ticker Dúvida

Pergunta

claytonprog

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

webdeveloper

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades