PLANEJAMENTO

<% wUsuario=request.item("Usuario") wSenha=request.item("Senha") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaoplan") SQL = "SELECT * FROM USUARIOS Where Usuario = '" & wUsuario & "' and Senha = '" & wSenha & "'" Set oRs = DataBase.Execute(sql) %> <% end if %>

<% if not oRs.eof then %> Usuário Logado: <%=oRs("Nome")%>

<% else %> Login ou Senha Inválida