3 replies to this topic

[Tatynha]

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.

[viniciusjau]

If (Request.Form("nm_login")) = Qry_Cad("nm_login") Then // linha q acusa o erro

o formulário tá mandando esse nm_login ?

[Alexvp]

Tatynha dá uma olhada neste tópico abaixo que você vai entender

http://forum.wmonlin...showtopic=96774

[Tatynha]

If (Request.Form("nm_login")) = Qry_Cad("nm_login") Then // linha q acusa o erro

o formulário tá mandando esse nm_login ?

Olá viniciusjau!

É, ele manda p banco o que está no nm_login.