|
<%
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 %>
|
<%else%>
Não foi encontrado nenhum banner nessa categoria clique aqui e cadastre o seu .
<%end if%>
