<% 'verificar sessão if session("numUsuario") = "" then response.write("") Else Dim numUsuario numUsuario = session("numUsuario") end if 'Abrir conexão com o banco de dados Dim conn set conn = server.createobject("ADODB.Connection") conn.open DSNString Dim MyString, MyArray, Msg, tot Dim rs 'Ecluir selecionadas If request("excluir") = "Excluir selecionadas" then MyString = request.form("chkexc") MyArray = Split(MyString, ",", -1, 1) tot = ubound(MyArray) for i = 0 to tot Msg = MyArray(i) conn.execute(" Delete from Noticias where numNoticia=" & Msg) next End if 'Atualizar selecionadas If request("atualizar") = "Atualizar selecionadas" then encontrou = false MyString = request.form("chk") MyArray = Split(MyString, ",", -1, 1) tot = ubound(MyArray) Set rs = conn.execute(" Select * from Noticias order by datCria desc") do while not rs.eof Dim i for i = 0 to tot Msg = Cint(MyArray(i)) If rs("numNoticia") = Msg then encontrou = true exit for End if next If encontrou then conn.execute(" Update Noticias set status=true where numNoticia=" & Msg) encontrou = false Else conn.execute(" Update Noticias set status=false where numNoticia=" & rs("numNoticia")) encontrou = false End if rs.movenext loop rs.close set rs = nothing End if %> Administração
 
 


  


<%=msgErro%>

<% 'Listar Notícias set rs = conn.execute("select * from Noticias order by datCria desc") do while not rs.eof %> <% rs.movenext loop rs.close set rs = nothing %>

Título - Data do Cadastro

Publicar

Excluir

 
<%=rs("titulo")%> - <%=rs("datCria")%>
<% If rs("status") = False then %>
">
<% Else %>
" checked>
<% End if %>
">
">Editar