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
%>