<!--#include file="data.asp"-->
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Exit><BODY>
<%
	set rs=server.createobject("ADODB.recordset") 
    rs.Open "SELECT * FROM Ad",conn,1,1 
    if rs.eof then
    else
	total=rs.recordcount
	Randomize 
    D1 = Fix(Rnd * total)
	for i=1 to D1
	  rs.movenext
	next	 
	if rs("type")="GIF" then
	%><%if rs("url")<>"" then%><A HREF="<%=rs("url")%>" target=_blank><img alt="<%=rs("alt")%>" src="<%=rs("src")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border=0 align=middle></A><%else%><img alt="<%=rs("alt")%>" src="<%=rs("src")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border=0 align=middle><%end if%><%else%><embed src="<%=rs("src")%>" type="application/x-shockwave-flash" width="<%=rs("width")%>" height="<%=rs("height")%>"><%end if%><%end if%>
