Upload de Banners
Categoria
Escolha uma Categoria
<% SQL = "SELECT * FROM categorias ORDER BY nome" set rsCat = ObjConexao.Execute(SQL) if not rsCat.Eof then catAtual = int(zero(Seguranca(request("id")))) do while not rsCat.Eof %>
" <%if rsCat("id") = catAtual then Response.write "Selected" %>><%=rsCat("nome")%>
<% rsCat.MoveNext loop Set rsCat = Nothing end if %>
Redirecionar *
Banner