<% ' Property of and written by Adam Ford --> if isempty(strSortMethod) then strSortMethod = "name" end if ' Create the SQL statement strSQL = "SELECT * from Contacts WHERE CTID>=" & CINT(intStartID) & " AND Deleted=False AND LEVEL>1 ORDER by " & strSortMethod & ";" ' Open a recordset set objRS = objDBConn.execute(strSQL) strSortMethod = empty intStartId = 1 %>