@dDate DateTime,@cPadcStr varchar( 10 ) 

.................
    var oCmd = new ActiveXObject("ADODB.Command");
    var oRs = new ActiveXObject("ADODB.Recordset");
     oCmd.CommandText = "dbo.MyProcedure";
     oCmd.CommandType = adCmdStoredProc ; //  4 

     // the Command object's parameters collection
     var adDBTimeStamp =  135  ;
     var adDBDate =  133  ;
     var adVarChar =  200  ;
     var adParamInput =  1  ;
     var adChar =  129  ;
     var adDate =  7  ;
     var adVariant =  12  ;
     var dDats = new Date();
     var dDats1 = "20080412" ;

     var prmDate = oCmd.CreateParameter("dDate", adDBDate, adParamInput);
         oCmd.Parameters.Append(prmDate);
         prmDate.Value = dDats ;
     var prmName = oCmd.CreateParameter("cPadcStr", adVarChar, adParamInput);
         oCmd.Parameters.Append(prmName);
         prmName.Value = "ru-ru";
         //**********************
         oCmd.ActiveConnection = oConn;
         oRs = oCmd.Execute();

 prmDate.Value = dDats ;

oCmd.Parameters.Append(prmName) ;

 oRs = oCmd.Execute(); 

  var cDate = "20080401"
  var prmDate = oCmd.CreateParameter("cDate", adChar, adParamInput, 8 ,cDate) 
  oCmd.Parameters.Append(prmDate);

     var prmName = oCmd.CreateParameter("cPadcStr", adVarChar, adParamInput, 8 ,"ru-ru");
      oCmd.Parameters.Append(prmName);