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