Me Ajudem Com Um Script

[mestre fyoda]

alguém poderia desemvolver um script de banir usuário e desbanir usuários.

Por favor daria para adaptar ao meu script de login á banir o usuario .

login.asp

<%

'Efetuando a conexão com a base de dados criada

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("banco.mdb")

Conn.open

'Vamos capturar o login e a senha digitada no firmulário

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

'Agora verificamos se o usuário e a senha estão corretos

SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "

Set RS = Conn.Execute(SQL)

'Caso não esteja correto, indicamos o erro

If RS.EOF Then

Response.Write "usuário ou senha inválida!"

Response.End

End If

'Se chegou até aqui, é porque o login e senha estão corretos.

'Vamos então verificar o nível de acesso do usuário.

session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas

SESSION("LOGADO")="S"

session("usuario") = request("usuario")

session("senha") = request("senha")

Response.Redirect "adm.asp" 'página restrita

%>

[dark0]

ei cara..

nada contra vc..

mas você já havia aberto outro tópico sobre isso..

tópico

ao invés de ficar abrindo 10 topicos sobre o mesmo assunto.. permanece no mesmo, pois a gente já não sabe mais em qual tópico responder..

quanto à sua duvida..

eu montaria assim:

coloca um campo no seu banco, Status.. e nele você coloca (banido, não banido)

e altera via codigo

abraços