Ir para conteúdo
Fórum Script Brasil
  • 0

Mudar Nivel

mestre fyoda

Perguntado por mestre fyoda,

 Share

Pergunta

mestre fyoda

mestre fyoda

Postado
Postado

Esse script não esta fazenso update no nivel .

me ajudem

<%@ 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("banco.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">
    &nbsp;&nbsp;
    <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"))%>
&nbsp;</font>
    <td align="center" bgcolor=<%=rcolor%> width="127" height="20"> <font size="2" face="arial" color="BLACK">
      <%Response.Write(RS("usuario"))%>
&nbsp;</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>

Link para o comentário
Compartilhar em outros sites

14 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

porque você colocou isso aqui:

A = Request.Form("A")

M = Request.Form("M")

U = Request.Form("U")

loop

  SET rs=nothing

  set conn=nothing

  %>

o que aquilo faz?

depois.. aqui:

If Request("A") = "on"  Then

strSQL = "UPDATE usuarios set nivel = '"&A&"'"

conexao.Execute(strSQL)

   end if

de onde vem o REQUEST("A")???????

não entendi.. tá tudo muito confuso..

Link para o comentário
Compartilhar em outros sites
  • 0
mestre fyoda

mestre fyoda

Postado
  • Autor
Postado

por favor me ajudem . esta dando o seguinte erro :

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/teste123/sistema em asp/muda_nivel.asp, line 14

<%@ Language=VBScript%>

<%

intSno=Request("Delete")

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("banco.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

%>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Olá

Eu JUNTEI os dois tópicos, pois os mesmos são do mesmo autor, e abordam o mesmo assunto!

até mais..

DARK

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Mestre Fyoda -

Guest - Mestre Fyoda -

Postado
Postado

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/teste123/sistema em asp/muda_nivel.asp, line 14

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Bom.. cade seu código?

A ultima versão, que é essa que gera erro, é aquela que você postou antes?

Pois, o deividy falou para fazer aquela alteração.

E aí..?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...