<% 'dim conexaodb Call abreconexao if request.form("submit")="Entrar" then usuario=request("txtnome") senha=request("txtsenha") if usuario="" then vMensagem="Por favor preencha o campo Usuario" elseif senha="" then vMensagem="Por favor preencha o campo Senha" else sql="select * from administrador where Admin_login='"&usuario&"'" set Rs=conexaodb.execute(sql) if not Rs.eof then if senha<>Rs("Admin_senha") then vMensagem="A senha está incorreta!" else session("id")=Rs("admin_id") session("usuario")=usuario session("senha")=senha session("emlSite")= "marcio@Consultta.com" response.Redirect("index.asp") end if else vMensagem="Usuario Inexistente!" end if end if end if Call fechaconexao %> • Nova Betim Imóveis
 
Nova Betim
  
   

Sistema Administrativo

IP: 
 <%=Request.ServerVariables("Remote_ADDR")%>
Usuario: 
Senha: 
   
 
                       
<%=vmensagem%>
Desenvolvimento e criação: Marcio Leandro - Consultta.com