<% 'Declare all variables dim conn dim rs dim blnFirstParameter dim strconn dim cmd dim strsql dim Div_ID dim record_ID dim counter dim sortBy dim orderSQL 'On Error Resume Next %>