"
'writes table headers
'the below method worked, but my field names were incomprehensible
'for i=0 to (rs.fields.count-1)
' response.write rs.fields(i).name
' th=th&cb&rs.fields(i).name&ce
'next
th="
"&cb&"UserID"&ce&cb&"AssetID"&cb&"Estimated contribution($)"&ce&cb&"Estimate Date"&ce&cb&"Actual contribution($)"&ce&cb&"Actual Date"&ce&re
'writes record data
while Not rs.EOF
rstm=rstm&rb&cb&rs("userid")&ce&cb&rs("assetid")&ce&cb&rs("estcont")&ce&cb&rs("estdate")&ce&cb&rs("actcont")&ce&cb&rs("actdate")&ce&re
rs.movenext
wend
rstm=tb&th&rstm&te
response.write rstm
rs.close
set rs=nothing