<% SQL = "SELECT * FROM banners WHERE categoria = "&seguranca(zero(request("cat"))) ' response.Write(SQL) set RSCat = ObjConexao.Execute(SQL) if not RSCat.Eof then %>
<% SQL2 = "UPDATE banners SET visualizado = visualizado+1 WHERE desativado<> true and categoria = "&seguranca(zero(request("cat"))) set RSup = ObjConexao.Execute(SQL2) set RSup = nothing do while not rsCat.eof %>
&r=<%=rsCat("redirecionar")%>" target="_blank">" width="468" height="60" border="0">
<% i = i +1 rsCat.movenext loop %>
<%else%>

Nenhum banner foi encontrado nessa categoria

Clique aqui para incluir o banner de seu site.

<%end if%>

Voltar