Duvida Em Passar Valores

[mestre fyoda]

o link é esse :

<a href="admin.asp?acao=Adiministrador&id=<%=RS("id") %>"> Admin </a>

ta dando erro nessa linha ,

DB.Execute("UPDATE usuarios SET tipo = 'Adiministrador' WHERE id = '"&id&"' ")

Eu verifiquei , e o id esta passando o numero corretamente .

o erro é o seguinte :

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/clanim/admin.asp, line 165

[dark0]

O campo id é Numero ou Texto?

[Victor]

ele é autonumeração certo mestre_fyoda?

A veriavel do id é request.querystring("id")?

então faça assim:

DB.Execute("UPDATE usuarios SET tipo = 'Adiministrador' WHERE id = "&id&" ")

[mestre fyoda]

agora deu esse erro

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'id ='.

[dark0]

a variavel ID recebe valor ONDE e QUANDO?

O erro aí, é porque ela está vazia.

Re-veja onde você passa o ID como parametro, e Onde você captura este dado

[mestre fyoda]

o codigo é grande , mas vou passa-lo todo .

<% 
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("bd.mdb") 
Conn.open 

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

SQL = "select * from usuarios" 
RS.Open SQL,Conn,3,3

IF RS.EOF then 
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
ELSE
   
   IF Request.QueryString("pagina")="" then 
      intpagina=1 
   ELSE
      IF cint(Request.QueryString("pagina"))<1 then
         intpagina=1 
      ELSE
         IF cint(Request.QueryString("pagina"))> RS.PageCount then 
            intpagina=RS.PageCount 
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
   END IF
END IF

RS.AbsolutePage=intpagina


intrec=0

%>
<% While intrec < RS.PageSize and not RS.EOF 
%>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center">
  <tr>
    <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="12">
    <p align="center">
    &nbsp;<img src="=RS(" width=32 height=32 align="left" icon").gif" ></td>
    <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8">
    <font size="1" face="Verdana" class="TD"><b>&nbsp;Nome:&nbsp;<%=RS("nome")%></b></font></td>
  </tr>
  <tr>
    <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8">
    <font size="1" face="Verdana" class="TD"><b>&nbsp;Login: &nbsp;<%=RS("login")%></b></font></td>
  </tr>
  <tr>
    <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8">
    <font face="Verdana" size="1" class="TD"><b>&nbsp;Email:&nbsp; <%=RS("email")%></b></font></td>
  </tr>

    <tr>
    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">
    <p align="left">
    <font face="Verdana" size="1" class="TD"><b>&nbsp;Banido:&nbsp;<%=RS("banido")%>
    </b></font>
    </td>
  </tr>
  
      <tr>
    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">
    <p align="left">
    <font face="Verdana" size="1" class="TD"><b>&nbsp;Tipo:&nbsp;<%=RS("tipo")%>
    </b></font>
    </td>
  </tr>
  
      <tr>
    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">
    <p align="left">
[B]    <font face="Verdana" size="1" class="TD"><b>&nbsp;Mudar o Tipo:&nbsp;<a href="admin.asp?acao=Adiministrador&id=<%=RS("id") %>"> Admin </a>  |  <a href="admin.asp?acao=Moderador&id=<%=RS("id") %>"> Moderador </a>  | <a href="admin.asp?acao=Usuario&id=<%=RS("id") %>"> Estagiario </a><br>
[/B]
    </b></font>
    </td>
  </tr> 
  
      <tr>
    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">
    <p align="left">
    <font face="Verdana" size="1" class="TD"><b>&nbsp;Banir ou Desbanir:&nbsp;
    </b></font>
    </td>
  </tr> 
<% if Request.QueryString("acao") = "Adiministrador" then  

Conn.Execute("UPDATE usuarios SET tipo = 'Adiministrador' WHERE id = "&id&" ")
Response.write" Tipo de usuario modificado para Adiministrador"
End IF
%>

</table>
<p align="center">
<br>

<%  RS.MoveNext

   ' Acrescenta +1 ao contador
   intrec=intrec+1 
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then 
      response.write " " 
   END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 
IF intpagina > 1 then 
%> 
   <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>&nbsp;&nbsp;&nbsp;
<a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp;
Próxima </a> 
<% 
END IF
%>

[dark0]

que comando você ta usando pra 'resgatar' o valor dessa variavel?

Tente usar 'request("id")' , sendo que ID é o campo que você enviou como parametro no link..

Depois de dar esse comando, dê um 'response.write id'

só pra ver se sua variavel ID esta pegando o valor certinho!

Abraços

Editado: você editou seu tópico, não é? malandrinho, huauhahua

Salienta no seu codigo a parte que da erro, e a parte que você resgata ovalor do ID

Editado Dezembro 11, 2004 por dark0

[mestre fyoda]

o id esta pegando certinho , mas na hora de entra no if da acao do link ele da pau na linha do update .

[dark0]

não entendi como usar. me passa como coloca-lo

o que você não entendeu?

Como você esta passando o link?

ex: pagina.asp?ID=1

Se você esta passando assim, para recuperar o numero do ID passado, você usa:

id = request("id")

[mestre fyoda]

deu certo mano , valeu mesmo so podia ser vc para consertar meu codigo .

Valeu , pode fechar a conta e passar a regua ,

rssssss

[dark0]

huahuauha

É isso ae ..

Um problema a menos então !

Abraços, to fechando o tópico

T+