"Scott" <srr@gksys.com> wrote:
>
>Why won't this allow me to create a recordset? Am I opening it in-correctly?
> The Error I get is 'ADODB.Field error '800a0cb3'"
>Object or provider is not capable of performing requested operation.
>/ProjectMangement2/SaveCompany.asp, line 43
>
>The purpose is to build a recordset and pass it into a DLL to be saved as
>a record in the Database.
>
>DIM saveRst, getRst, Comp 'Objects
>DIM ctr 'Counter
>DIM Info 'String
>SET saveRst = Server.CreateObject("ADODB.Recordset")
>SET getRst = Server.CreateObject("ADODB.Recordset")
>SET Comp = Server.CreateObject("GSIDataAccess.clsCompany")
>SET getRst = Comp.GetCompany(0) 'Get recordset Template
>IF getRst.State = adStateClosed then
> Response.Write "Get Recordset Closed"
>ELSE
> Response.Write " Get Recordset Open"
>END IF
>'Build Recordset out of Existing Recordset
>FOR CTR = 0 TO getRst.Fields.Count -1
> saveRst.Fields.Append getRst.Fields(ctr).Name,getRst.Fields(ctr).Type,


> getRst.Fields(ctr).DefinedSize , getRst.Fields(ctr).Attributes
> Response.Write saveRst.Fields(ctr).Name & "<BR>"
>NEXT
>saveRst.Open
>IF saveRst.State = adStateClosed THEN
> Response.Write "Recordset Closed"
> Response.End
>ELSE
> Response.Write "Recordset Open"
>END IF
>
>'Add the records to the save Recordset
>saveRst.AddNew
>FOR ctr = 0 TO getRst.Fields.Count -1
> IF UCASE(getRst.Fields(ctr).Name) = "COM_INACTIVE" THEN
> IF UCASE(Request(getRst.Fields(ctr).Name)) = "CHECKED" THEN
> getRst.Fields(ctr).Value = DATE
> ELSE
> getRst.Fields(ctr).Value = NULL
> END IF
> ELSE
> 'This is line 43
> getRst.Fields(ctr).Value = Request(getRst.Fields(ctr).Name)
> END IF
>NEXT
>
>'Pass the save recordset into method.
>info = Comp.SaveCompany(saveRst)
>IF info = "" THEN
> Response.Write "Good Save"
>ELSE
> Response.Write "Bad Save"
>END IF
>
>Thank you
>Scott