Error When Formatting Date

[charbrad]

I am receiving error:
ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/*****/*****.asp, line 21

MyRecordSet.OPEN MySQL, ssddbb
dim stgdte
if MyRecordSet.fields("stgdte") <> "" or MyRecordSet.fields("stgdte") then
  stgdte = FormatDateTime(MyRecordSet.fields("stgdte"))
else
    stgdte = ""
end if 
MyArray = MyRecordSet.GETROWS()
FOR MyCursor = LBOUND(MyArray,2) TO UBOUND(MyArray,2)
body = body + "<TR><TD BGCOLOR=""" & SHADE & """>" & MyArray(0,MyCursor) & "&nbsp;</TD><TD WIDTH=300 ALIGN=""CENTER"" BGCOLOR=""" & SHADE & """>" & 

MyArray(1,MyCursor) & "</TD><TD BGCOLOR=""" & SHADE & """>" & MyArray(2,MyCursor) & "&nbsp;</TD><TD ALIGN=""RIGHT"" BGCOLOR=""" & SHADE & """>" & 

MyArray(3,MyCursor) & "</TD><TD ALIGN=""RIGHT"" BGCOLOR=""" & SHADE & """>" & MyArray(4,MyCursor) & "</TD><TD ALIGN=""RIGHT"" BGCOLOR=""" & SHADE & """>" & 

[b]---->Line 21[/b] MyArray(5,MyCursor) & "</TD><TD ALIGN=""CENTER"" BGCOLOR=""" & SHADE & """>" & [u]FormatDateTime(MyRecordSet.fields("stgdte").Value,2)[/u] & "</TD><TD 

ALIGN=""CENTER"" BGCOLOR=""" & SHADE & """>" & MyArray(7,MyCursor) & "</TD><TD BGCOLOR=""" & SHADE & """>" & MyArray(8,MyCursor) & " </TD><TD BGCOLOR= """ & 

SHADE & """>" & MyArray(9,MyCursor) & " </TD><TD ALIGN=""RIGHT"" BGCOLOR=""" & SHADE & """>" & MyArray(10,MyCursor) & " </TD></TR>" & vbcrlf
IF SHADE = "#FFFFFF" THEN SHADE = "#DDDDDD" ELSE SHADE = "#FFFFFF"
MyRecordSet.CLOSE

Any clue?

 

[charbrad]

Found an easier way to include it in my select statement. Thanks anyway.

 

[Sheco]

Why not convert that line to use MyArray instead of MyRecordSet?