3 replies to this topic

[Tatynha]

Olá!
Eu naum sei como resolver esse erro, vou postar o codigo e o erro pa ficar mais fácil. Se alguém puder me ajudar.


[code=auto:0]
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DSN=ger_conteudo_aspx")

Dim Rs_Pes, SQL

If Not IsEmpty(Request.Form("nm_pesquisa")) Then

Set Rs_Pes = Server.CreateObject("ADODB.RecordSet")
SQL = ("SELECT * FROM ger_conteudo_admin WHere nm_senha, dt_cadastro, nm_admin, nm_login = '"& (Request.Form("nm_pesquisa") ) &"' AND nm_senha = '"& session("cd_admin")&"' '")
response.write SQL
Rs_Pes.Open SQL,Conn
End if
While not Rs_Pes.EOF --> Esta é a linha 80

%>
<tr id="grupo0" bgColor="#F8F8F8" height="20">
<td width="20" align="center"><img src="../../images/ico_grupo.gif"></td>


<td class="Label_Item"><a href="../editar/detalhe_admin.asp?nm_login=<%=rs("nm_login")%>" class="Link"><%=Rs_Pes("nm_login")%></a></td>


<td><%request.QueryString("nm_admin")%> </td>
<td align="center"><%request.QueryString("dt_cadastro")%></td>
<td align="center">Sim</td>
<td width="20" align="center"><input type="checkbox" name="deleteAdmin[]" value="19" onClick="marcaCell('grupo0');" ></td>
</tr>
<%
Rs_Pes.Movenext

Wend

%>


Microsoft VBScript runtime error '800a01a8'
Object required: ''

/ger_conteudo_asp/admines/administrador/editar/index.asp, line 80

Valeu!
Beijos

[viniciusjau]

dá uma olhada nesse topico:
http://forum.wmonlin...showtopic=96774

[Tatynha]

Eu ja olhei, e o que está scrito lá tá certo no meu código.

[Prog]

Tem certeza de que a linha
If Not IsEmpty(Request.Form("nm_pesquisa")) Then
esta sendo executada adequadamente?