Check to see if field exisits in Recordset

Question

ASP/VB/Access
Can anyone help me out with a function that checks to see if
a field exists in a record set. I need to check it before I try and
output it on the page and cause an error. Similar to checking to
see if a field is null. The record set is being generated from a
crosstab query in Access.
Heres what I got so far
function FieldExists(rs, fldname)
Dim X
on error resume next
X= rs(fldname)
if err.number = 0 then
FieldExists = True
else
err.clear
FieldExists = False
end if
End Function
While ((Repeat1__numRows <> 0) AND (NOT rs_dates.EOF))
If FieldExists(rs_info,
rs_dates.Fields.Item("thedate").Value) Then
Response.Write(rs_info.Fields.Item(""&(rs_dates.Fields.Item("thedate").Value)&"").Value)
End If
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_dates.MoveNext()
Wend
Thanks

Answer 1

Depending on what exactly you are trying to do here you probably need to do one or more of the following:
1) Use a fully qualified record set reference of queryName.column.row:
I.E.
#rs_quthorized.county_name[2]#
2) Loop over the recordset to search all the rows.  <cfoutput query="..."> or <cfloop query="..."> constructs make this rather easy to do, but nothing is preventing you from using any looping mechinism you care to use.
3)Use the valueList(queryName.column) function to turn all the date from one column in the record set into a list.  This combined with either a listFind() or listContains() function will allow you to quickly search for a single value.