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

Olá!
Eu comecei a programar em asp a pouco tempo, estou fazendo uma página de cadastro mas, aparece o seguinte erro:

error '80020009'
/ger_conteudo_asp/admin_cadastro.asp, line 17

O código p facilitar

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

Dim Qry_Cad, mess

mess = ""

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

Set Qry_Cad = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT nm_login, nm_senha FROM ger_conteudo_admin WHere nm_login = '"& (Request.Form("nm_login") ) &"' AND nm_senha = '"& (Request.Form("nm_senha")) &"'"

Qry_Cad.Open SQL, Conn
'Response.write SQL

If (Request.Form("nm_login")) = Qry_Cad("nm_login") Then // linha q acusa o erro
mess = "Login existente, escolha outro login."

ElseIf nm_senha >= 1 Then
mess = "Senha existente, escolha outra senha."

Else
Set Qry_Cad = Server.CreateObject("ADODB.RecordSet")

SQL = "INSERT INTO ger_conteudo_admin ( nm_admin, nm_login, nm_senha ) VALUES ('" + Request.Form("nm_admin") + "','" + Request.Form("nm_login") + "','" + Request.Form("nm_senha") + "')"

Qry_Cad.Open SQL, Conn

mess = "Operação realizada com sucesso"

End If
End If
%>


Se alguém puder me ajudar, eu agradeceria muito
Tatiana.