Código:
Y me da el siguiente error:<!--#include file="Connections/feaps.asp" -->
<%
' Obtenemos las variables del form
usuario = Trim(Request.Form("usuario"))
pass_ant = Trim(Request.Form("pass_ant"))
pass_nue_1 = Trim(Request.Form("pass_nue_1"))
pass_nue_2 = Trim(Request.Form("pass_nue_2"))
' Obtenemos los datos de la tabla usuarios
Dim compr_contr
Dim compr_contr_numRows
Set compr_contr = Server.CreateObject("ADODB.Recordset")
compr_contr.ActiveConnection = MM_feaps_STRING
compr_contr.Source = "SELECT * FROM usuarios WHERE Usuario='usuario'"
compr_contr.CursorType = 0
compr_contr.CursorLocation = 2
compr_contr.LockType = 1
compr_contr.Open()
compr_contr_numRows = 0
'si se reciben datos del form
If (pass_nue_1 <> "") Then
' *** Condicionamos para que se cambie el password
If (pass_nue_1 = pass_nue_2) Then
' si las contraseñas coinciden
If (compr_contr.Fields("Contrasena") = pass_ant) Then
'si la contraseña es correcta
Set actualiza = Server.CreateObject("ADODB.Recordset")
actualiza.ActiveConnection = MM_feaps_STRING
actualiza.Source = "Update usuarios Set Contrasena='pass_nue_1' Where Usuario='usuario'"
actualiza.CursorType = 0
actualiza.CursorLocation = 2
actualiza.LockType = 1
actualiza.Open()
missatge = "Password cambiado con exito."
Else
missatge = "Error, contraseña incorrecta."
End if
' Si las 2 contraseñas no coinciden
Else
missatge = "Las 2 contraseñas no coinciden, revisalas."
End If
Else
missatge = "En espera de datos..."
End if
%>
error '80020009'
/feaps/restringido_cambiapass.asp, línea 28
la linea num 28 contiene es la que contiene la condicion:
If (compr_contr.Fields("Contrasena") = pass_ant) Then
Cual es el fallo?
Gracias por adelantado.
