<%function showad1
set rs=server.CreateObject("Adodb.recordset")
sql="select top 1 * from WrzcNethtml_logo where sort=0 and nsort=0"
rs.open sql,conn,1,1
if not rs.eof then%><body onload="clearTimeout(theTimer);nextAd(1);">
<script language=JavaScript>
<!--
var imgUrl=new Array();
var imgLink=new Array();
var imgTz=new Array();
<%
pic=split(rs("banner"),"*")
ulink=split(rs("url"),"*")
c=split(rs("c"),"*")
ii=0
for i=0 to ubound(pic)
if pic(i)<>"" and ulink(i)<>"" and c(i)<>"" then
ii=ii+1
%>
imgUrl[<%=ii%>]="<%=pic(i)%>"; 
imgLink[<%=ii%>]="<%=ulink(i)%>";
imgTz[<%=ii%>]="<%=c(i)%>";
<%end if
next%>
-->
</script>
<script src="inc/index_1.js" language="javascript"></script>  
<%end if
rs.close
set rs=nothing
end function
%>