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

Acertando Um Código De Marquee. Me Ajudem!


Guest - Bruno -

Pergunta

Guest - Bruno -

Esse script funciona assim:

Pega dados de um Bco de Dados, após isso joga em um marquee vertical, porém gostaria que, quando não houvesse dados aparecesse uma mensagem parada <Não há evento cadastrado !!!> e quando houvesse apenas 5 registros, mostrasse os cinco parados, mais se houver de 6 registros p/ cima eles ficam rolando no marquee vertical.

 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%' USANDO O COMMAND - SEM ODBC (ADO)
SET CMD = Server.CreateObject("ADODB.COMMAND")
CMD.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("DB\AGENDA1.MDB")
CMD.CommandText = "SELECT * FROM estabelecimentos ORDER BY estabelecimento"
SET rsCompromisso = CMD.Execute
%>

<% if rsCompromisso("estabelecimento")="0" then%>
Nada Cadastrado !!
<%else%>
<script language="JavaScript1.2">
var marqueewidth="200px"
//Largura do Marquee
var marqueeheight="150px"
//Velocidade do Marquee
var marqueespeed=1
//Pause marquee onMousever (0=no. 1=yes)?
var pauseit=1


var marqueecontent='<font face="Verdana"><%WHILE NOT rsCompromisso.EOF%><a href="<%response.write(rsCompromisso("estabelecimento"))%>"><%response.write(rsCompromisso("estabelecimento"))%><a><p></font><%rsCompromisso.MoveNext%><%WEND%>'


marqueespeed=(document.all)? marqueespeed : Math.max(1, marqueespeed-1) //slow speed down by 1 for NS
var copyspeed=marqueespeed
var pausespeed=(pauseit==0)? copyspeed: 0
var iedom=document.all||document.getElementById
var actualheight=''
var cross_marquee, ns_marquee

function populate(){
if (iedom){
cross_marquee=document.getElementById? document.getElementById("iemarquee") : document.all.iemarquee
cross_marquee.style.top=parseInt(marqueeheight)+8+"px"
cross_marquee.innerHTML=marqueecontent
actualheight=cross_marquee.offsetHeight
}
else if (document.layers){
ns_marquee=document.ns_marquee.document.ns_marquee2
ns_marquee.top=parseInt(marqueeheight)+8
ns_marquee.document.write(marqueecontent)
ns_marquee.document.close()
actualheight=ns_marquee.document.height
}
lefttime=setInterval("scrollmarquee()",20)
}
window.onload=populate

function scrollmarquee(){

if (iedom){
if (parseInt(cross_marquee.style.top)>(actualheight*(-1)+8))
cross_marquee.style.top=parseInt(cross_marquee.style.top)-copyspeed+"px"
else
cross_marquee.style.top=parseInt(marqueeheight)+8+"px"
}
else if (document.layers){
if (ns_marquee.top>(actualheight*(-1)+8))
ns_marquee.top-=copyspeed
else
ns_marquee.top=parseInt(marqueeheight)+8
}
}

if (iedom||document.layers){
with (document){
if (iedom){
write('<div style="position:relative;width:'+marqueewidth+';height:'+marqueeheight+';overflow:hidden" onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed">')
write('<div id="iemarquee" style="position:absolute;left:0px;top:0px;width:100%;">')
write('</div></div>')
}
else if (document.layers){
write('<ilayer width='+marqueewidth+' height='+marqueeheight+' name="ns_marquee">')
write('<layer name="ns_marquee2" width='+marqueewidth+' height='+marqueeheight+' left=0 top=0 onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed"></layer>')
write('</ilayer>')
}
}
}
</script>
<%end if%>

<%
rsCompromisso.Close
set rsCompromisso=NOTHING
set CMD=NOTHING
%>

</BODY>
</HTML>
 

Favor evitar letras gritantes no forum!!

Editado por ursolouco
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Para ver se tem alguma coisa no BD você digita nessa linha :

<% if rsCompromisso("estabelecimento")="0" then%>, isso:

<% if rsCompromisso.EOF then%>
EOF quer dizer End Of Fields, ou seja fim dos campos, então se RsCompromisso chegou ao fim dos campos, ou seja, não tem nada... aí diz a mensagem se você quiser ver quantas mensagens tem você tem que fazer um SELECT COUNT:
 SQL = "SELECT COUNT(id) AS total FROM estabelecimentos"
SET rsSQL = CMD.Execute

If rsSQL("total") > 6 Then
<script language="javascript">
Else
Response.Write rsCompromisso("estabelecimento") & "&nbsp;&nbsp;"
End If

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

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