set mycmd=server.CreateObject("ADODB.Command")
set readrs=server.CreateObject("ADODB.RecordSet")
set mycmd.activeconnection=conn
mycmd.commandtype=4
mycmd.Parameters.append mycmd.CreateParameter("@number",200,1,50,kw1)
mycmd.Parameters.append mycmd.CreateParameter("@ksrq",200,1,50,kw2)
mycmd.Parameters.append mycmd.CreateParameter("@jzrq",200,1,50,kw3)
mycmd.commandtext=sql
readrs.CursorType=3
readrs.open mycmd,conn,,3,1