hola a tod@s!
tengo una web q funciona perfectamente q contiene asp y un marquee, pero como queremos q cumpla el W3C tenemos q deshacernos del marquee.
He probado varias soluciones q venian en este foro, links y demas q aconsejaban otros foreros, he probado casi todos, pero el problema con todos viene a la hora de mostrar los mensajes q no lo hace. En el siguiente ejemplo lo q quiero hacer es q me muestre los resultados de una select utilizando javascript y asp:
muchas gracias por anticipado
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "noticias"
sql="select * from news where estado=yes"
set rs=Conn.execute (sql)
%>
<style type="text/css">
<!--
.textanimlink,a {
text-decoration : none;
}
P.main {
font-family : Arial;
font-size : 15pt;
font-weight : bold;
}
-->
</style>
<script language="Javascript">
<!-- Hiding
/*
Script created by Lefteris Haritou
([email protected])
Permission granted to Dynamicdrive.com to feature the script
For more DHTML scripts, visit Dynamicdrive.com
*/
bname=navigator.appName;
bversion=parseInt(navigator.appVersion);
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4))
window.onload=start;
else
stop();
window.onunload=stop;
if (bname=="Netscape"){
brows=true;
dt=2;
}
else{
brows=false;
dt=20;
}
var z=0;
var msg=0;
var rgb=0;
var mylink=false;
var status=true;
var updwn=false;
var message= new Array();
var value=0;
var h=window.innerHeight;
var w=window.innerWidth;
var timer1;
var timer2;
var timer3;
var convert = new Array();
var hexbase= new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F");
// Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines below)
var bgcolor="#FFFFFF"; //Color of background
var color="#00008D"; //Color of the Letters
<%
i=0
do while not rs.eof
parte=trim(replace(rs("noticia"),"<br>"," "))
%>
message[<%=i%>]=<%=parte%>;
<% i=i+1
rs.movenext
loop
%>
// Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines above)
for (x=0; x<16; x++){
for (y=0; y<16; y++){
convert[value]= hexbase[x] + hexbase[y];
value++;
}
}
redx=color.substring(1,3);
greenx=color.substring(3,5);
bluex=color.substring(5,7);
hred=eval(parseInt(redx,16));
hgreen=eval(parseInt(greenx,16));
hblue=eval(parseInt(bluex,16));
eredx=bgcolor.substring(1,3);
egreenx=bgcolor.substring(3,5);
ebluex=bgcolor.substring(5,7);
ered=eval(parseInt(eredx,16));
egreen=eval(parseInt(egreenx,16));
eblue=eval(parseInt(ebluex,16));
red=ered;
green=egreen;
blue=eblue;
function start(){
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
mylink=false;
updwn=true;
if (brows)
res=document.layers['textanim'].top;
else{
textanim.style.width=document.body.offsetWidth-20;
textanim.innerHTML='<Pre><P Class="main" Align="Center">'+message[<%=x%>]+'</P></Pre>';
res=textanim.style.top;
for (x=0; x<document.all.length; x++)
if(document.all[x].id=="textanimlink")
mylink=true;
}
up();
}
}
function stop(){
clearTimeout(timer1);
clearTimeout(timer2);
clearTimeout(timer3);
}
function resz(){
h=window.innerHeight;
w=window.innerWidth;
if (updwn)
timer1=setTimeout('up()',1000);
else
timer2=setTimeout('down()',1000);
}
function breakf(){
if (status){
clearTimeout(timer1);
clearTimeout(timer2);
status=false;
return;
}
else{
status=true;
if (updwn)
timer1=setTimeout('up()',dt);
else
timer2=setTimeout('down()',dt);
}
}
function up(){
if (red<hred){
if ((red+7)<hred)
red+=7;
else
red=hred;
redx = convert[red];
}
else{
if ((red-7)>hred)
red-=7;
else
red=hred;
redx = convert[red];
}
if (green<hgreen){
if ((green+7)<hgreen)
green+=7;
else
green=hgreen;
greenx = convert[green];
}
else{
if ((green-7)>hgreen)
green-=7;
else
green=hgreen;
greenx = convert[green];
}
if (blue<hblue){
if ((blue+7)<hblue)
blue+=7;
else
blue=hblue;
bluex = convert[blue];
}
else{
if ((blue-7)>hblue)
blue-=7;
else
blue=hblue;
bluex = convert[blue];
}
rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
if (window.innerHeight!=h || window.innerWidth!=w){
clearTimeout(timer1);
resz();
return;
}
else{
document.layers['textanim'].document.write('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>');
document.layers['textanim'].document.close();
}
}
else{
textanim.style.color=rgb;
if(mylink)
textanimlink.style.color=rgb;
}
if (z<38){
if (brows)
document.layers['textanim'].top--;
else
textanim.style.posTop--;
z++;
timer1=setTimeout('up()',dt);
}
else
{
updwn=false;
down();
}
}
function down(){
if (red<ered){
if ((red+7)<ered)
red+=7;
else
red=ered;
redx = convert[red];
}
else{
if ((red-7)>ered)
red-=7;
else
red=ered;
redx = convert[red];
}
if (green<egreen){
if ((green+7)<egreen)
green+=7;
else
green=egreen;
greenx = convert[green];
}
else{
if ((green-7)>egreen)
green-=7;
else
green=egreen;
greenx = convert[green];
}
if (blue<eblue){
if ((blue+7)<eblue)
blue+=7;
else
blue=eblue;
bluex = convert[blue];
}
else{
if ((blue-7)>eblue)
blue-=7;
else
blue=eblue;
bluex = convert[blue];
}
rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
if (window.innerHeight!=h || window.innerWidth!=w){
clearTimeout(timer2);
resz();
return;
}
else{
document.layers['textanim'].document.write('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>');
document.layers['textanim'].document.close();
}
}
else{
textanim.style.color=rgb;
if(mylink)
textanimlink.style.color=rgb;
}
if (z<76){
if (brows)
document.layers['textanim'].top--;
else
textanim.style.posTop--;
z++;
timer2=setTimeout('down()',dt);
}
else
{
if (brows){
document.layers['textanim'].document.write('');
document.layers['textanim'].document.close();
}
else
textanim.innerHTML='';
window.clearInterval(timer2);
if(msg<message.length-1){
msg++;
z=0;;
if (brows){
document.layers['textanim'].top=res;
}
else
textanim.style.top=res;
timer3=setTimeout('start()',100);
}
else
{
msg=0;
z=0;
if (brows)
document.layers['textanim'].top=res;
else
textanim.style.top=res;
timer3=setTimeout('start()',2000);
}
}
}
// done hiding -->
</script>
<div id="textanim" style="position: absolute; left: 0; top: 440" onclick="breakf()">
</div>
<layer name="textanim" left="0" top="440">
</layer>
