<%
	' Property of and written by Adam Ford -->
	' Close and kill the objects
		intCategory = empty
		intStartID = empty
		strSortMethod = empty
		set strDBPath = nothing
		set strConnectionString = nothing 
		if not isempty(objRS) then
			objRS.close
			set objRS = nothing
		end if
		objDBConn.close
		set objDBConn = nothing
		strSql = empty
%>