Error VBScript (0x800A01A8)

[Mplus]

Hola de nuevo!

Tengo un procedimento

<%
sub consulta(tipo,var)
Dim sQa
Dim sQa_numRows

Set sQa = Server.CreateObject("ADODB.Recordset")
sQa.ActiveConnection = MM_connBD_STRING

if tipo="dir" then
sQa.Source = "SELECT * from Emp_Datos inner join Emp_servicios on Emp_Datos.Cod_Emp=Emp_servicios.Cod_Emp where Emp_Datos.Cod_Emp in (select Cod_Emp FROM Emp_Actv WHERE SubPral like '00' or Sub2 like '00' or Sub3 like '00' )"
else
sQa.Source = "SELECT * FROM Emp_Datos INNER JOIN Emp_Servicios ON Emp_Datos.Cod_Emp = Emp_Servicios.Cod_Emp WHERE (Emp_Datos.Nombre LIKE '%prat%')"
end if

sQa.CursorType = 0
sQa.CursorLocation = 2
sQa.LockType = 1
sQa.Open()

sQa_numRows = 0
end sub
%>

y la llamada al procedimiento

consulta request.QueryString("opcion"),request.QueryString
("consulta")

y la consulte del valor de ese campo

<%=(sQa.Fields.Item("Emp_Datos.Nombre").Value)%>

...y me da ese error

alguien ve el fallo...

Gracias!

[nazkatuta]

Hola,

yo diriá que el problema está en que declaras el objeto recordset "sQa" DENTRO del procedimiento y lo pretendes usar FUERA de este.

si declaras el objeto dentro del procedimiento este tendra un uso local ( es decir, solo dentro de ese procedimiento) Como lo que necesitas es que tenga un alcance global lo que deberias hacer es declararlo fuera de este procedimiento.

espero que te sirva, suerte.

[Cauchemar]

Ese error suele ser que o bien el objeto no se ha podido crear, o si ha expirado.

No te da mas datos el error? En que linea exacta te dice que peta? y que hay en esa linea?

[Mplus]

GRACIAS, nazkatuta, ese era el problema..
Tomate unas birras telepaticas a mi salud...jejeje

[nazkatuta]

en cuanto salga del curro lo haré. prometido... jejeje

saludos.


Aupa Galeano