<%@ codepage ="936" %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="config.asp"-->
<%
const TbMax=1
tbsql="select * from banner where bz=10 order by LinkID"
Set tbrs= Server.CreateObject("ADODB.Recordset") 
tbrs.open tbsql,conn,1,1 
if tbrs.eof then
else
total=tbrs.recordcount
Randomize 
D1 = Fix(Rnd * total)
for i=1 to D1
tbrs.movenext
next 
if tbrs("type1")="GIF" then
%><%if tbrs("web")<>"" then%><a target="_blank" href="<%=tbrs("web")%>"><img alt="<%=tbrs("deseriptor")%>" src="<%=linkurl+tbrs("picurl")%>" border=0 align=middle width="730" height="90"></a><%else%><img alt="<%=tbrs("deseriptor")%>" src="<%=linkurl+tbrs("picurl")%>" border=0 align=middle width="730" height="90"><%end if%><%else%><embed src="<%=linkurl+tbrs("picurl")%>" type="application/x-shockwave-flash" width="730" height="90"><%end if%><%end if%><BODY text=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">