ASP / Aplicações Completas

Agenda de eventos com banco de dados em ASP

enviado por Carlos Henrique

Sistema com banco de dados em ACCESS para registro de eventos para o seu site.

Utilizei de vários mecanismos para criar esse sistema que me atende muito bem.
O admin através de uma senha de acesso pode incluir e excluir eventos.

Na página de cadastro você vera uma triagem muito boa para organizar o seu evento.

<%
'Criando variáveis
Dim localbd, bd, verificar_usuario, varCookie

'Se o cookie for vazio iremos dar um valor ZERO para não dar erro
'Se não irá setar o valor da variável com o valor do cookie
if request.cookies("access")("usuario")="" then
   varCookie=0
else
   varCookie=request.cookies("access")("usuario")
end if

'Abrir conexão
call abrir_conexao

'Criaremos um Recordset para verificar se o Codigo do Cookie existe no banco de dados
set verificar_usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar o usuário
verificar_usuario.Open "SELECT cod from usuario where cod="&varCookie&"", bd

'Se o usuário não existir, fecharemos a conexão e redirecionaremos para a página de logar
if verificar_usuario.EOF then
   call fechar_conexao
   response.redirect "entrar.asp"
end if

call fechar_conexao
%>

Versão impressa gerada em: quarta-feira, 25 de novembro de 2009