oc=CREATEOBJECT( "adodb.connection" ) oc.Open( "Provider=sqloledb;Data Source=<My-IP-SERVER>;Network Library=DBMSSOCN;Initial Catalog=cwebdata;Integrated Security=SSPI;" ) oc.Execute( "set arithabort on" ) oc.Execute( "set nocount on" ) ocom=createobject( "adodb.command" ) ocom.ActiveConnection = oc ocom.CommandText="dbo.pdulistaartdetuni" ocom.CommandType=4 ocom.Parameters.item( "@lnartcla" )=1 ors1=ocom.Execute ors1.MoveFirst ors1.MoveFirstthis is my sotore procedure in SQL Server 2000 SP3..
ALTER PROCEDURE dbo.pdulistaartdetuni ( @lnartcla int ) AS SELECT adu_cla,art_cla,adu_tip,uni_cla,adu_con FROM dbo.artdetuni WHERE art_cla=@lnartcla ORDER BY art_cla RETURNthank you very much.