How do we add parameters to a stored procedure call in ASP?

'Stored procedure 1
ALTER PROC [dbo].[spCSW_ListFocusISINList]
	@FocusISINGroupCd	varchar(7)	= 'ALL'
as
set nocount on
 
if @FocusISINGroupCd = 'ALL'
	select	FocusISINGroupCd, FocusISINGroupNm from tb_FocusISINGroup (nolock)
else
	Select SecISINNo from tb_FocusISINList (nolock) where FocusISINGroupCd = @FocusISINGroupcd
 
'Stored Procedure 2
 
ALTER PROC [dbo].[spCSW_UpdateFocusISINList]
	@FocusISINGroupCd	varchar(7)	
,	@ActionFlag		char(1)		
,	@XMLText		text	
,	@LoginDMSysId		varchar(40)	= null
,	@RefreshFlag		char(1)		= 'N'
as
set nocount on
 
declare @SMDBFlagIn	char(1)
,	@S3dFlagIn	char(1)
 
if @LoginDMSysId is null select @LoginDMSysId = current_user
 
if @RefreshFlag = 'Y' and @ActionFlag = 'A'
	delete tb_FOcusISINList where FocusISINGroupCd = @FocusISINGroupCd
 
if @XMLText is null return
 
select	@SMDBFlagIn	= substring(ValidateMappingCd,1,1)
,	@S3dFlagIn	= substring(ValidateMappingCd,2,1)
from	tb_FocusISINGroup (nolock)
where	FocusISINGroupCd = @FocusISINGroupCd
 
 
declare @ISINXMLdoc int
declare @ISINList table (SecISINNo varchar(30))
 
EXEC sp_xml_preparedocument @ISINXMLdoc OUTPUT, @XMLText
 
	insert	@ISINList 
	select	SecISINNo
	from	openxml (@ISINXMLdoc, '/ISINLIST/ISIN',2)
	with (	SecISINNo	varchar(30))
 
EXEC sp_xml_removedocument @ISINXMLdoc OUTPUT
 
--**********************************
if @ActionFlag = 'A'
begin
	insert tb_FocusISINList (FocusISINGroupcd, SecISINNo, RowInsrtdTS, RowInsrtdbyUserId)
	select	@FocusISINGroupCd, SecISINNo, getdate(), @LoginDMSysId from @ISINList i
	where	SecISINNo not in 
		(select f.SecISINNo from tb_FocusISINList f (nolock) where FocusISINGroupCd = @FocusISINGroupCd and f.SecISINNo = i.SecISINNo)
end
--**********************************
if @ActionFlag = 'D'
begin
	delete	tb_FocusISINList 
	from	tb_FocusISINList  f
	join	@ISINList i
	on	f.SecISINNo = i.SecISINNo
	where	f.FocusISINGroupCd = @FocusISINGroupCd
end
 
ASP CODE:
 
 dim oRSIsin
                                dim cmdoRSIsin
                                set cmdoRSIsin = server.CreateObject("ADODB.Command")
 set oRSIsin = server.CreateObject("ADODB.Recordset")
 with cmdoRSIsin
                                    .ActiveConnection = conn
                                    .CommandType=adCmdStoredProc
                                    .CommandText="[sp_CSWListFocusISINList]"
                                 set oRSIsin = .Execute
                                end with
                                set cmdoRSIsin = nothing