I am comparing the values in two recordsets.
Does anyone have a beter approach!!!
Very open to suggestions on this...
Public Sub db_select_with_recordset(rs1,rs2,field_value,field _label,msg)
found_match = false
'loop through contents of first recordset
Do While (NOT rs1.eof)
'for each item in recordset one, determine whether this is a matching
value in recordset two
Do While (Not rs2.eof)
'compare both recordset values
If (rs1(field_value) = rs2(field_value)) Then
'if a match is found create option with selected attribute
Response.Write("<option value=" & chr(34) & rs1(field_value) &
chr(34) & "selected>" & rs1(field_label) & "</option>")
found_match = true