Unexplainable OLE Error

From: Hugo <Hugo_at_nowhere.com>
Date: Thu, 23 Aug 2001 16:41:57 +1000
Message-ID: <VA1h7.1392$vI2.78639@ozemail.com.au>

Hi,

I am getting an ole error and I can't work out why, the specs are Windows NT Server 4.0 / Oracle 8i Ver 8.1.1.6 IIS 4.0, I am also using Oracle OLE Provider to access the database . The reason why I can't explain this error is because there is only one row causing it. I have paste the error message below - could someone help me out with this error.

'------------------------------------conn string

strConnection="PROVIDER=OraOLEDB.Oracle;DATA SOURCE=dsn;USER ID=user;PASSWORD=pwd;"

'---------------------------------- error message

OraOLEDB error '80040e4b'
Accessor is not a parameter accessor.

/fixit/client/client_detail.asp, line 77

'------------------------------------source code

if not isEmpty(Request.QueryString) then

  dim tmpval
  dim strQuery
    tmpval = Request.QueryString("RID")
      strQuery = "SELECT FIX.RID AS ""KATI NUMBER"", FIX.SUMMARY, FIX.RNAME AS ""REVIEW NAME"", FIX.DEPARTMENT, FIX.PROBLEM, FIX.DATEREC AS ""DATE RECEIVED"", FIX.NAME, FIX.DIFFICULTY, FIX.ATAKEN AS ""ACTION TAKEN"",

FIX.DATERES AS ""DATE OF RESOLUTION"", FIX.LVL1 AS ""1ST LEVEL ESCALTION"",
FIX.LVL2 AS ""2ND LEVEL ESCALTION"", FIX.LVL3 AS ""3RD LEVEL ESCALTION"",
FIX.DN1STDESC AS ""1ST ESCALTION NOTE"", FIX.DN2NDDESC AS ""2ND ESCALTION

NOTE"", FIX.DN3RDDESC AS ""3RD ESCALTION NOTE"", CURRENTSTATUS AS ""CURRENT STATUS"", TO_CHAR(DATECLOSED, 'DD-MON-YYYY') DATECLOSED FROM FIX WHERE RID=" & tmpval & ""

'strQuery = "SELECT FIX.RID AS ""KATI NUMBER"", FIX.SUMMARY, FIX.RNAME AS ""REVIEW NAME"", FIX.DEPARTMENT, FIX.PROBLEM, TO_CHAR(FIX.DATEREC, 'FMDAY, DD-MONTH-YYYY') DATEREC, FIX.NAME, FIX.DIFFICULTY, FIX.ATAKEN AS ""ACTION TAKEN"", TO_CHAR(DATERES, 'DD-MON-YYYY') DATERES, FIX.LVL1 AS ""1ST LEVEL ESCALTION"", FIX.LVL2 AS ""2ND LEVEL ESCALTION"", FIX.LVL3 AS ""3RD LEVEL ESCALTION"", FIX.DN1STDESC AS ""1ST ESCALTION NOTE"", FIX.DN2NDDESC AS ""2ND ESCALTION NOTE"", FIX.DN3RDDESC AS ""3RD ESCALTION NOTE"", CURRENTSTATUS AS ""CURRENT STATUS"", TO_CHAR(DATECLOSED, 'DD-MON-YYYY') DATECLOSED FROM FIX WHERE RID=" & tmpval & ""

rs.Open strQuery, objConn

'Check for data

if rs.EOF then

response.write("There are no records in the database!")

Else
'Declare varible to equal recordset
dim fldCount

fldCount = rs.Fields.Count

dim fld()
'redim the fieldCount to equal fld

     ReDim fld(fldCount)
dim i
'field = recordset

  for i = 0 to fldCount-1
  set fld(i) = rs(i)
  next

Response.Write("<Div align=center><table width=100% border=0 cellspacing=5 cellpadding=0><TR>")

      Response.Write("<TR>")
'while not at the end of a row

  do while not rs.eof
'write the field header names
  for i = 0 to fldCount-1
    Response.write("<TR><TD WIDTH=25% class=""RecordHeader"">" & fld(i).name & "</TD>")
  Response.write("<TD><BR>" & fld(i) & "</TD></TR>")   next

response.write("</tr>")
rs.movenext
loop
'out of memory

for i = 0 to fldCount-1
set fld(i) = nothing
next
response.write("</table></Div>")

end if
end if Received on Thu Aug 23 2001 - 01:41:57 CDT

Unexplainable OLE Error - Please Help