aqui esta o link http://i.1asphost.co...ivel_acesso.asp .
formulario para alterar o nivel
<%@ Language=VBScript %>
<BODY>
<FORM action="mudar_nivel.asp" method="Post" name=Form>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("dados.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
SQL = "select * from usuarios"
RS.Open SQL,Conn,3,3
%>
<table width="434" border="1" cellpadding="0" cellspacing="0" height="43" style="border-collapse: collapse" bordercolor="#CCCCCC">
<tr>
<th align="left" bgcolor=#DFE19D width="121" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b>
Selecione</b>
<th align="left" bgcolor=#DFE19D width="118" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b><font size="2" face="arial"> Nome</font> </b>
<td align="left" bgcolor=#DFE19D width="129" height="13" bordercolor="#FFFFFF" bordercolordark="#006699">
<p align="center"><b><font size="2" face="arial"> Login</font></b></td>
</tr>
<%intCounter=0%>
<%do until rs.EOF%>
<%
intCounter=intCounter+1
intMod=intcounter mod 2
if intmod=0 then
rcolor = "#c0c0c0"
elseif intmod=1 then
rcolor = "#FFFFFF"
end if
%>
<tr>
<td align="left" bgcolor=<%=rcolor%> width="121" height="20">
<p align="right">
<font size="2" face="arial" color="BLACK">
<width=35%>Adiministrador<input type=CheckBox name=A value=<%=RS("nivel")%>><br>
Moderador<input type=CheckBox name=M value=<%=RS("nivel")%>><br>
Usurio<input type=CheckBox name=U value=<%=RS("nivel")%>><br>
</font> <td align="left" bgcolor=<%=rcolor%> width="78" height="20"> <font size="2" face="arial" color="BLACK">
<%Response.Write (RS("nome"))%>
</font>
<td align="center" bgcolor=<%=rcolor%> width="127" height="20"> <font size="2" face="arial" color="BLACK">
<%Response.Write(RS("login"))%>
</font>
<%rs.MoveNext%>
</font></tr>
<%
A = Request.Form("A")
M = Request.Form("M")
U = Request.Form("U")
loop
SET rs=nothing
set conn=nothing
%>
<% If Request("A") = "on" Then
strSQL = "UPDATE usuarios set nivel = '"&A&"'"
conexao.Execute(strSQL)
end if
%>
<% If Request("M") = "on" Then
strSQL = "UPDATE usuarios set nivel = '"&M&"'"
conexao.Execute(strSQL)
end if
%>
<% If Request("U") = "on" Then
strSQL = "UPDATE usuarios set nivel = '"&U&"'"
conexao.Execute(strSQL)
end if
%>
</table>
<input type="submit" value="Atualizar Nivel" name="B1">
</form>
</BODY>
altera o nivel
<%@ Language=VBScript%>
<%
intSno=Request("Delete")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("dados.mdb"))
id = Request("nivel")
Set rs = conn.Execute("SELECT * FROM usuarios WHERE id = '"&id&"'")
If rs.EOF Then
Response.Write "O usurio no existe!!!"
ElseIf rs("nivel") = "1" Then ' tire as aspas caso seja valor numrico no BD
Response.Write "O man, no pode excluir usurios de nvel 1..."
Else
a=split(intSno,",")
for iLoop=LBound(a) to UBound(a)
intDelid=Trim(a(iLoop))
conn.Execute "update from usuarios where id = " & id & " "
next
Response.Write "O nivel do Usuario foi modificado"
End If
rs.Close
Set rs = Nothing
%>
_
