ASP - ¿ActiveX no puede crear el objeto?

 
Vista:

¿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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿ActiveX no puede crear el objeto?

Publicado por Fox_M. (19 intervenciones) el 18/10/2000 00:00:00
Sorry, pero no alcanzó todo en el mensaje anterior, así es que aquí continuo el código desde donde quedó:

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
end if

Tabla.MoveNext
Wend

´Cierro la conexion
Conexion.close


if aux=1 then
´En el caso de que existan usuario-password se inicia sesión en Intranet
Response.Redirect("inicio.asp")
else
´De no existir se envía mensaje de Error
Response.Redirect("Sorry.html")
end if

%>

Como pueden ver estoy accediendo a las BD vía ODBC. Tengo varias páginas que accesan a AS400, y lo único que se me ocurre es que en la actualización automática del Client Access haya pasado algo con los ODBC, pero ¿por qué me afecta también a BD Access?, ¿será eso o no?...

Help me, please!!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar