access_asp Error Type:ADODB.Recordset (0x800A0CB3)

[pooja1982]

Hi,
I m getting this message after executing the following code

<%
CALL OPENDATACON
DIM RS
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbpassenger order by ref_no"
CALL OPENRS(RS,S)
DIM RS1
dim aa
SET RS1=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbfare where flight_id='" & session("fid") & "'"
CALL OPENRS(RS1,S)
if rs.RecordCount >0 then
rs.MoveLast
aa=rs("ref_no") + 1
else
aa=1
end if
session("ref_no")=aa
DIM XX
xx=0
<%    if  len(trim(request("txtfname1")))>0 then
        RS.AddNew ' I m getting error on this line
        rs("ref_no")=CINT(aa)
        rs("flight_id")=session("fid")
        rs("first_name")=request("txtfname1")
        rs("last_name")=request("txtlname1")
        rs("sex")=request("sex1")
        rs("age")=request("TXTage1")
        if request("TXTage1")<12 then
            xx=xx+rs1("fare_child")
        else
            xx=xx+ rs1("fare_adult")
        end if
 

Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype

I m using SQL Server 2000 with asp.
here ref_no is numeric

[jhardman]

it looks like you are opening the db without the correct lock type. Try this:

DIM RS,RS1, objConn
set objConn = server.createObject("ADODB.Connection")
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbpassenger order by ref_no"
RS.open s, objConn, adOpenDynamic, adLockOptimistic
 

Let me know if this helps.

Jared

[pooja1982]

CALL OPENDATACON
DIM RS,RS1, objConn
set objConn = server.createObject("ADODB.Connection")
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbpassenger order by ref_no"
RS.open s, objConn, adOpenDynamic, adLockOptimistic'Now showing
'error on this line
'DIM RS
'SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
's="select * from dbpassenger order by ref_no"
'CALL OPENRS(RS,S)
'DIM RS1
dim aa
SET RS1=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbfare where flight_id='" & session("fid") & "'"
CALL OPENRS(RS1,S)
if rs.RecordCount >0 then
rs.MoveLast
aa=rs("ref_no") + 1
else
aa=1
end if
session("ref_no")=aa
DIM XX
xx=0

Error Type:
ADODB.Recordset (0x800A0E7D)
The connection cannot be used to perform this operation. It is either closed or invalid in this context.

[pooja1982]

<%@ Language=VBScript %>
<!-- #INCLUDE FILE="FLIGHT.inc" -->
<!--#include file="ADOVBS.inc"-->
<%=header%>
<br><br>
<%
CALL OPENDATACON
DIM RS
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbpassenger order by ref_no"
CALL OPENRS(RS,S)
DIM RS1
dim aa
SET RS1=SERVER.CreateObject ("ADODB.RECORDSET")
s="select * from dbfare where flight_id='" & request.querystring("id") & "'"
CALL OPENRS(RS1,S)
if RS.RecordCount >0 then
RS.MoveLast
aa=RS("ref_no") + 1
else
aa=1
end if
session("ref_no")=aa
DIM XX
xx=0
<% if len(trim(request("txtfname1")))>0 then
rs.AddNew 'Error for this line
rs("ref_no")=CINT(aa)
rs("flight_id")=session("fid")
rs("first_name")=request("txtfname1")
rs("last_name")=request("txtlname1")
rs("sex")=request("sex1")
rs("age")=request("TXTage1")
if request("TXTage1")<12 then
xx=xx+rs1("fare_child")
else
xx=xx+rs1("fare_adult")
end if

I even made changes to .inc file as suggested but achieved no success..
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.