Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)

al introducir el siguiente codigo me da el error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''

el codigo es el siguiente

<%

Dim Conexion, rs,oConn,temp,temp2
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Visual FoxPro

c;exclusive=no"

Temp="Select * From familias Order By Nofami"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
%>
if (style1=="<%= Tabla1.Fields("nofami") %>")
{
fixSelect("Seleccione una subfamilia");
<%
Temp2="Select * From Subfamilia Where familia="' &_
Tabla1.Fields("familia") &_ '" Order By Nombre"
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
%>
fixSelect("<%= Tabla2.Fields("nofami") %>");
<%
Tabla2.MoveNext
Wend
Tabla2.Close
Response.Write("}")
Tabla1.MoveNext
Wend
Tabla1.Close
%>
<%
Temp="Select * From familias Order By familia"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
Temp2="Select * From Subfamilia Where familia="' &_
Tabla1.Fields("familia")
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
%>
if (style2=="<%= Tabla2.Fields("nofami") %>")
{
fixSelect1("Seleccione una clase");
<%
Temp3="Select * From articulo Where familia="' &_
Tabla1.Fields("familia") &_ "' And subfamilia="'
&Tabla2.Fields("subfamilia") & "' Order By descri"
Tabla3.Open Temp3, Conexion
While Not Tabla3.EOF
%>
fixSelect1("<%= Tabla3.Fields("descri") %>");
<%
Tabla3.MoveNext
Wend
Tabla3.Close
Response.Write("}")
Tabla2.MoveNext
Wend
Tabla2.Close
Tabla1.MoveNext
Wend
Tabla1.Close
%>

porque se esta produciendo el error ??? y como hay que hacer la
concatenaciones dado que unos libros no ponen "' &_ sino otras distintas
variaciones

muchas gracias

Estas usando mal las variables...

Cambia:
set oConn=Server.CreateObject("ADODB.Connection")
por esto otro:
oConn.Open "Driver={Microsoft Visual FoxPro

Estas Declarando oConn pero tratas de abrir Conexion que no ha sido declarda
o referenciada al objeto.

Salu2
MV


"Ignacio Betancor" wrote in message
news:uK9Eeiz$
> al introducir el siguiente codigo me da el error
>
> Tipo de error:
> Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
> Se requiere un objeto: ''
>
> el codigo es el siguiente
>
> <%
>
> Dim Conexion, rs,oConn,temp,temp2
> set oConn=Server.CreateObject("ADODB.Connection")
> set rs=Server.CreateObject("ADODB.Recordset")
> Conexion.Open "Driver={Microsoft Visual FoxPro
>
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
> c;exclusive=no"
>
> Temp="Select * From familias Order By Nofami"
> Tabla1.Open Temp, Conexion
> While Not Tabla1.EOF
> %>
> if (style1=="<%= Tabla1.Fields("nofami") %>")
> {
> fixSelect("Seleccione una subfamilia");
> <%
> Temp2="Select * From Subfamilia Where familia="' &_
> Tabla1.Fields("familia") &_ '" Order By Nombre"
> Tabla2.Open Temp2, Conexion
> While Not Tabla2.EOF
> %>
> fixSelect("<%= Tabla2.Fields("nofami") %>");
> <%
> Tabla2.MoveNext
> Wend
> Tabla2.Close
> Response.Write("}")
> Tabla1.MoveNext
> Wend
> Tabla1.Close
> %>
> <%
> Temp="Select * From familias Order By familia"
> Tabla1.Open Temp, Conexion
> While Not Tabla1.EOF
> Temp2="Select * From Subfamilia Where familia="' &_
> Tabla1.Fields("familia")
> Tabla2.Open Temp2, Conexion
> While Not Tabla2.EOF
> %>
> if (style2=="<%= Tabla2.Fields("nofami") %>")
> {
> fixSelect1("Seleccione una clase");
> <%
> Temp3="Select * From articulo Where familia="' &_
> Tabla1.Fields("familia") &_ "' And subfamilia="'
> &Tabla2.Fields("subfamilia") & "' Order By descri"
> Tabla3.Open Temp3, Conexion
> While Not Tabla3.EOF
> %>
> fixSelect1("<%= Tabla3.Fields("descri") %>");
> <%
> Tabla3.MoveNext
> Wend
> Tabla3.Close
> Response.Write("}")
> Tabla2.MoveNext
> Wend
> Tabla2.Close
> Tabla1.MoveNext
> Wend
> Tabla1.Close
> %>
>
> porque se esta produciendo el error ??? y como hay que hacer la
> concatenaciones dado que unos libros no ponen "' &_ sino otras distintas
> variaciones
>
> muchas gracias
>
>
>
>