<%
Dim Imagen, Url, Texto, i, j
Imagen = 0
Url = 1
Texto = 2
' conexión
' consulta
registros = rs.getrows()
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
Dim ristra_img(5), ristra_url(5), ristra_texto(5)
For i = 0 to UBound(registros,2)
ristra_img(i) = registros(Imagen,i)
ristra_url(i) = registros(Url,i)
ristra_texto(i) = registros(Texto,i)
Next 'i
%>
<html>
<head>
<title>Rotador de publicidad</title>
<script type="text/javaScript">
var publicidad = [<%="'" & Join(ristra_img, "', '") & "'"%>];
var direccion = [<%="'" & Join(ristra_url, "', '") & "'"%>];
var texto = [<%="'" & Join(ristra_texto, "', '") & "'"%>];
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>