<%
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 %>
<%
i = i +1
rsCat.movenext
loop
%>
|
<%else%>
Nenhum banner foi encontrado nessa categoria
Clique aqui para incluir o banner de seu site.
<%end if%>
