JAVASCRIPT首页广告轮流显示

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>首页广告</title>
</head>
<body>
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr>
            <td valign="middle" align="center">
                <%call ad_home()%>
            </td>
        </tr>
    </table>
</body>
</html>
<%
sub ad_home()

dim id,pic,i,id0,pic0,temp2
i=0
id0=0
set rs=Server.CreateObject("Adodb.RecordSet")
sql="Select * from ad where Elite=true order by ID DESC"
rs.open sql,conn,1,1
do while not rs.eof
id=rs("id")
pic=rs("DefaultPicUrl")
if i=0 then
id0=rs("id")
pic0=rs("DefaultPicUrl")
end if
temp2= temp2&vbcrlf&" bannerAD["&i&"]="""&pic&""";"
temp2= temp2&vbcrlf&" bannerADlink["&i&"]=""ad_show.asp?
%>

var bannerAD=new Array();
var bannerADlink=new Array();
var adNum=0;
<%
response.write temp2
%>
var preloadedimages=new Array();
for (i=1;i<bannerAD.length;i++){
preloadedimages=new Image();
preloadedimages.src=bannerAD;
}

function setTransition(){
if (document.all){
bannerADrotator.filters.revealTrans.Transition=Math.floor(Math.random()*23);
bannerADrotator.filters.revealTrans.apply();
}
}

function playTransition(){
if (document.all)
bannerADrotator.filters.revealTrans.play()
}

function nextAd(){
if(adNum<bannerAD.length-1)adNum++ ;
else adNum=0;
setTransition();
document.images.bannerADrotator.src=bannerAD[adNum];
playTransition();
theTimer=setTimeout("nextAd()", 3500);
}

</script>

<%
end sub
%>