How to write using ADODB RecordSet

[sanika1507]

Hi
.Actually I want to count the number of records in a recordset. So I m using the ADODB.Recordset. I just want some one to correct me.

Set Cmd = Server.CreateObject("ADODB.Recordset")
Cmd.ActiveConnection = C
Cmd.CommandText = "CP.dbo.spBCode"
Cmd.CommandType = adCmdStoredProc


cmd.Parameters.Append cmd.CreateParameter("@Bcode", adVarChar, adParamInput, 255, dbQuoteOrNull(sBCode))
cmd.Parameters.Append cmd.CreateParameter("@F_Ind",adInteger, adParamInput, , dbQuoteOrNull(bFInd))
cmd.Parameters.Append cmd.CreateParameter("@S_Ind", adInteger, adParamInput, , dbQuoteOrNull(bSInd))
cmd.Parameters.Append cmd.CreateParameter("@H_Ind", adInteger, adParamInput, , dbQuoteOrNull(bHInd))
cmd.Parameters.Append cmd.CreateParameter("@Active", adInteger, adParamInput, , dbQuoteOrNull(bActive))
cmd.Parameters.Append cmd.CreateParameter("@ACF", adInteger, adParamInput, , dbQuoteOrNull(bACF))
cmd.Parameters.Append cmd.CreateParameter("@Base", adInteger, adParamInput, , dbQuoteOrNull(bBase))
cmd.Parameters.Append cmd.CreateParameter("@MHN", adInteger, adParamInput, , dbQuoteOrNull(bMHN))
cmd.Parameters.Append cmd.CreateParameter("@SHEVHO", adInteger, adParamInput, , dbQuoteOrNull(bSHEVHO))


The error i m gettin here is
LogTime = 11/7/2007 3:28:07 PM
ASPCode =
ASPDescription =
Category = Microsoft VBScript runtime
Column = -1
Description = Object doesn't support this property or method: 'Cmd.CommandText'
File = /cp/an/ref/BCode.asp
Line = 414
Number = -2146827850
Source =
-----------------------
Here only the Bcode is a character type , the rest are all bit type.


Can anyone look into this plzzzzzzzzzz .
just want to be sure we use the recordset here or the ADODB command????????

thanks in advance..

[sonu5588]

Aik Bar phir Aapka Advance Thanks Acha Laga
AAp Mail Id Do Mujhe On [e-mail]