<% AbreConexao
Sql="SELECT * FROM banner"
Set RS = Conexao.Execute(Sql)
Do Until RS.EOF or RS.BOF
Valores = Valores & RS("ID") & ","
RS.Movenext
Loop
ArraySplit = Split(Left(Valores,Len(Valores)-1),",")
Randomize
x = CInt(Rnd()*Ubound(ArraySplit))
sID = ArraySplit(x)
Sql="SELECT * FROM banner WHERE id = "&sID&""
Set rsMostra = Conexao.Execute(Sql) %>
<%if rsMostra("flash")="1" then %>
document.write('&url=<%=rsMostra("url")%>">');
<%else%>
document.write('&url=<%=rsMostra("url")%>" class=link target=_blank>![<%=rsMostra(]()
" src="<%=rsMostra("banner")%>" border="0">
Saiba mais sobre o livro');
<%end if%>
<% Sql1 = "UPDATE banner SET exibicoes = exibicoes + 1 WHERE id = "&rsMostra("id")&" "
Conexao.Execute(Sql1) %>