Onde esta errado

que estoy haciendo de errado , en este codigo, trato de pasar los
parametros
param1 y param2 a la consulta selec-autor pero no se que puede ser,
alguien
me puede ayudar, muchas gracias desde ya alejandro carnero


<%
timeout`
server.ScriptTimeout= timeout
set conn=server.createobject("adodb.connection")
conn.open= "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\inetpub\wwwroot\consulta\autores.mdb"

set commandOBJ=server.CreateObject("adodb.command")
commandOBJ.activeconnection=conn
commandOBJ.CommandTimeout=timeout
commandOBJ.CommandType=adCmdStoredProc

select case request("operacao")

case "0" 'selecciona los registros
commandOBJ.Commandtext="selec-autor"
commandOBJ.Parameters.Append
commandOBJ.CreateParameter(param1,_
adinteger, adParamInput,10,2)
commandOBJ.Parameters.Append
commandOBJ.CreateParameter(param2, adinteger, adParamInput,10,7)

end select
set rsObj=server.CreateObject("ADODB.recordset")
rsobj.cursortype=1
rsobj.open commandOBJ
%>

Que error obtienes?

Matías Iacono
Microsoft MVP ASP/ASP.net - DCE3

Profile: http://aspnet2.com/mvp.ashx?MatiasIacono
"alecarnero" escribió en el mensaje
news:
> que estoy haciendo de errado , en este codigo, trato de pasar los
> parametros
> param1 y param2 a la consulta selec-autor pero no se que puede ser,
> alguien
> me puede ayudar, muchas gracias desde ya alejandro carnero
>
>
> <%
> timeout`
> server.ScriptTimeout= timeout
> set conn=server.createobject("adodb.connection")
> conn.open= "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=c:\inetpub\wwwroot\consulta\autores.mdb"
>
> set commandOBJ=server.CreateObject("adodb.command")
> commandOBJ.activeconnection=conn
> commandOBJ.CommandTimeout=timeout
> commandOBJ.CommandType=adCmdStoredProc
>
> select case request("operacao")
>
> case "0" 'selecciona los registros
> commandOBJ.Commandtext="selec-autor"
> commandOBJ.Parameters.Append
> commandOBJ.CreateParameter(param1,_
> adinteger, adParamInput,10,2)
> commandOBJ.Parameters.Append
> commandOBJ.CreateParameter(param2, adinteger, adParamInput,10,7)
>
> end select
> set rsObj=server.CreateObject("ADODB.recordset")
> rsobj.cursortype=1
> rsobj.open commandOBJ
> %>
>
>