John,
Thanks for looking into this.
Here's the recordset:
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_finance_STRING
Recordset1_cmd.CommandText = "SELECT cafe_empno,
cafe_medical, cafe_basiclife, cafe_basicadd, cafe_basicstd,
cafe_life, cafe_add, cafe_deplife, cafe_dental, cafe_unum,
cafe_legal, cafe_aflac, cafe_aflac_taxable, cafe_bflex, cafe_oflex,
cafe_unre_med, cafe_dep_care, cafe_hsa, cafe_unum_a, cafe_unum_c,
cafe_unum_h, cafe_unum_i, cafe_unum_l, cafe_unum_p, cafe_unum_r,
cafe_unum_s, cafe_retired, up_date FROM erupert.rskcafetmp WHERE
cafe_empno = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append
Recordset1_cmd.CreateParameter("param1", 5, 1, -1,
Recordset1__MMColParam) ' adDouble
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>