¿ActiveX no puede crear el objeto?
Publicado por Fox_M. (19 intervenciones) el 18/10/2000 00:00:00
Tengo un sitio en una intranet, administrado con PWS, en el cual tengo varias páginas ASP, sobretodo para acceso a bases de datos. Hasta hace un par de dÃas atrás todo funcionaba sin problemas, sin embargo, de repente ya no funcionó más...¡y juro que no hice nada!...
El error que me aparece al tratar de ejecutar cualquier archivo .asp es:
_______________________________________________
Error de Microsoft VBScript en tiempo de ejecución error ´800a01ad´
El componente ActiveX no puede crear el objeto
/Valida.asp, line 15
_______________________________________________
El código de Valida.asp es:
_______________________________________________
<%
login=Request("txt_usuario")
password=Request("pas_pass1")
aux=0
Dim Conexion, Tabla, consulta
´Establece una conexion entre el servidor asp y una base de datos
Set Conexion = Server.CreateObject("adodb.connection")
´crea un objeto de tipo recordset para retornar la consulta sql
Set Tabla = Server.CreateObject("adodb.recordset")
´Establece una conexion entre el ODBC y el servidor asp
Conexion.Open "acceso"
´Asigna a una variable de tipo String la consulta sql
consulta = "select * from acceso"
´Ejecuta la consulta, en caso de retornar algo lo asigna a la variable Tabla
Tabla.open consulta, Conexion
while (not Tabla.EOF)
if login=Tabla("user") then
if password=Tabla("password") then
´Si el usuario y la password existen en la BD, se asigna
´el valor 1 a la variable aux
aux=1
end if
en
El error que me aparece al tratar de ejecutar cualquier archivo .asp es:
_______________________________________________
Error de Microsoft VBScript en tiempo de ejecución error ´800a01ad´
El componente ActiveX no puede crear el objeto
/Valida.asp, line 15
_______________________________________________
El código de Valida.asp es:
_______________________________________________
<%
login=Request("txt_usuario")
password=Request("pas_pass1")
aux=0
Dim Conexion, Tabla, consulta
´Establece una conexion entre el servidor asp y una base de datos
Set Conexion = Server.CreateObject("adodb.connection")
´crea un objeto de tipo recordset para retornar la consulta sql
Set Tabla = Server.CreateObject("adodb.recordset")
´Establece una conexion entre el ODBC y el servidor asp
Conexion.Open "acceso"
´Asigna a una variable de tipo String la consulta sql
consulta = "select * from acceso"
´Ejecuta la consulta, en caso de retornar algo lo asigna a la variable Tabla
Tabla.open consulta, Conexion
while (not Tabla.EOF)
if login=Tabla("user") then
if password=Tabla("password") then
´Si el usuario y la password existen en la BD, se asigna
´el valor 1 a la variable aux
aux=1
end if
en
Valora esta pregunta


0