<% sEmail=session("Email") If sEmail <> "" then set conexao=server.createobject("adodb.connection") dbname=server.mappath("../dados/agdate.mdb") conexao.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbname sql="SELECT Nome FROM Cadastro where Email='" & sEmail & "'" set registro=conexao.Execute(sql) %> Untitled Document
Olá, seja bem-vindo.
Email
Senha
<% session("left")=false sacao=Request.querystring("acao") if sacao="u" then Response.Write "Usuário não Cadastrado!" end if if sacao="s" then Response.Write "Senha incorreta!" end if if sacao="n" then Response.Write "Usuário não Cadastrado!" end if %>
HOME CADASTRE-SE
contatos@amigosdogalaxie.com.br
<% Else response.redirect "top.htm" end if %>