<%
Dim Imagen, Url, Texto, i, j
Dim ristra_img, ristra_url, ristra_texto
Imagen = 0
Url = 1
Texto = 2
SQL ="SELECT Imagen, Url, Texto FROM RotadorBanner"
set rs = oConn.Execute(SQL)
registros = rs.getrows()
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
ristra_img = ""
ristra_url = ""
ristra_texto = ""
For i = 0 to UBound(registros,2)
ristra_img = ristra_img & "'" & registros(Imagen,i) &"',"
ristra_url = ristra_url & "'" & registros(Url,i) &"',"
ristra_texto = ristra_texto & "'" & registros(Texto,i) &"',"
Next 'i
%>
<html>
<head>
<title>Rotador de publicidad</title>
<script type="text/javaScript">
var publicidad = [<%=Left(ristra_img,Len(ristra_img)-1)%>];
var direccion = [<%=Left(ristra_url,Len(ristra_url)-1)%>];
var texto = [<%=Left(ristra_texto,Len(ristra_texto)-1)%>];
var contador = 0;
var url = "";
function RotarPublicidad(){
if(contador > 4)
contador = 0;
document.getElementById("publicidad").innerHTML = "<img src="+publicidad[contador]+" width='62px' height='12px' title="+texto[contador]+" border='0px' />"
url = direccion[contador];
document.getElementById("texto").innerHTML = texto[contador];
document.getElementById("publicidad_peq_4").style. background="#FFFFFF";
document.getElementById("publicidad_peq_"+contador ).style.background="#FF0000";
if (contador >= 1)
document.getElementById("publicidad_peq_"+(contado r-1)).style.background="#FFFFFF";
contador++;
}
timer = setInterval("RotarPublicidad()", 2000);
window.onload = RotarPublicidad;
</script>
</HEAD>
<body>
<a href="#" onClick="window.open(url,'Ventana');">
<div id="publicidad"></div>
</a>
<div id="texto"></div>
<table border="1">
<tr>
<%
For j = 0 to UBound(registros,2)
%>
<td id="publicidad_peq_<%=j%>">
<img src="<%=registros(Imagen,j)%>" />
</td>
<%
Next 'j
%>
</tr>
</table>
</body>
</html>