Se requiere un objeto: ''

[dhs311]

Hola gente, estoy teniendo un problema en el q llevo ya varios dias en tratar de solucionarlo... al ejecutarlo me da el error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''
/paglia/Admin/login.asp, línea 39

Esta es la linea 39:

MM_rsUser_cmd.CommandText = MM_loginSQL

Copio el código completo, si alguien puede darme una mano estaré muy agradecido.


<!--#include file="../Admin/FuncAdmin.asp" -->
<%
Dim rsUsuarios
Dim rsUsuarios_cmd
Dim rsUsuarios_numRows

rsUsuarios_cmd = "SELECT usu_codigo, ussuari, usu_contra, usu_nombre, usu_apelli, usu_empres, usu_tipusu FROM usu"
AbrirCon Con
AbrirSQL Con,rsUsuarios,rsUsuarios_cmd

%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)

MM_valUsername = CStr(Request.Form("usuario"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd

MM_fldUserAuthorization = "usu_tipusu"
MM_redirectLoginSuccess = "/Admin/FormMenuAdmin.asp"
MM_redirectLoginFailed = "/Admin/loginError.asp"

MM_loginSQL = "SELECT ussuari, usu_contra"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM usu WHERE ussuari = ? AND usu_contra = ?"

'MM_loginSQL = MM_loginSQL & " FROM usu WHERE ussuari = ? AND usu_contra = ?"
'Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
'MM_rsUser_cmd.ActiveConnection = MM_BasePagliaroli_STRING

MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 25, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 25, Request.Form("password")) ' adVarChar

AbrirCon Con
AbrirSQL Con,MM_rsUser,MM_loginSQL


'MM_rsUser_cmd.Prepared = true
'Set MM_rsUser = MM_rsUser_cmd.Execute

If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization ).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And true Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>


Saludos.

[Myakire]

estoy teniendo un problema en el q llevo ya varios dias en tratar de solucionarlo...

Ya te fijaste que la linea donde creas al objeto la tienes comentada?

[dhs311]

Gracias Myakire por tu pronta respuesta. Si, es que estoy creando el objeto en el archivo "FuncAdmin.asp"

Function AbrirCon(Cnn)
'set cnn = server.CreateObject("ADODB.Connection")
set cnn = CreateObject("ADODB.Connection")
'cnn.Open "DSN=gewin"
cnn.Open Connect
end function

Gracias.

[Myakire]

Creo que deberías de borrar tanto comentario, pero igual no me refiero al objeto de la conexión, sino al que te esta marcando error:

Código ASP:

'Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
'MM_rsUser_cmd.ActiveConnection = MM_BasePagliaroli_STRING
 
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 25, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 25, Request.Form("password")) ' adVarChar
 

¿dónde estas creando el objeto MM_rsUser_cmd ?

[dhs311]

lo creo en otro archivo: FuncAdmin.asp

Function AbrirSQL(cnn,Tabla, SQL)
set Tabla = server.CreateObject("ADODB.Recordset")
Tabla.open SQL,cnn, 1, 1
end function

[Myakire]

Creo que deberías de borrar tanto comentario, pero igual no me refiero al objeto de la conexión, sino al que te esta marcando error:

Código ASP:

'Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
'MM_rsUser_cmd.ActiveConnection = MM_BasePagliaroli_STRING
 
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 25, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 25, Request.Form("password")) ' adVarChar
 

¿dónde estas creando el objeto MM_rsUser_cmd ?




Digo, si se trata de copiar lo mismo sin responder pues los dos podemos jugar a eso

La función que indicas no es la que crea el objeto command, creo que es por demás evidente.
¿dónde estas creando el objeto MM_rsUser_cmd ?