Esse código nasceu da necessidade que tive de entregar um trabalho para um cliente e como era “pra hora” ou seja, não tinha tempo de esperar fui consultar a net pra ver se encontra algo pronto e não achei. Corri e fiz algumas adaptações e criações e deu nessa boa aplicação.
O visitante vê o conteúdo aprovado no seu site. Ele pode publicar qualquer assunto, porém só quando o administrador avaliar e liberar que será publicado na página principal.
Dica.: use iframes para inserir o conteúdo em seu site.
<%
'Criaremos uma SUB para a conexão para conectarmos com o banco de dados do AccessAdmin
'Detalhe: Não é o banco que será administrado
sub abrir_conexao
localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dados/banco.mdb")
set bd=Server.CreateObject("ADODB.Connection")
bd.open localbd
end sub
'SUB que fechará a conexão
sub fechar_conexao
bd.close
Set bd = nothing
end sub
%>
