<% sqlX = "select * from " & strTablePrefix & "FILECAT order by F_CAT" set rsX = my_conn.Execute (sqlX) %>

Select MOD Type: <% if rsX.EOF or rsX.BOF then %> - No categories in DB - <% else %>  All MODS <% do until rsX.EOF %> "> <% =Server.HTMLEncode(rsX("F_CAT")) %> <% rsX.MoveNext loop %> <% end if rsX.close %>

For version: <% sql2 = "select * from " & strTablePrefix & "FILEVERSION order by F_VERSION desc" set rsY = my_conn.Execute (sql2) %>  All versions <% rsY.MoveFirst while not rsY.EOF %> ">  <% =rsY("F_VERSION")%>   <% rsY.MoveNext wend %> <% rsY.close %>