If Not objRS.EOF Then If objRS.RecordCount > 0 Then nMyPage = CInt(mypage) nRecStart = (nMyPage - 1) * maxrecs iCount = 0 Do Until objRS.eof Or howmanyrecs >= maxrecs nRecStart = nRecStart + 1 i = nRecStart iCount = iCount + 1 SQL02 = "SELECT DISTINCT GDAccessCatCd FROM tbledbusunit WHERE GDAccessCatCd = '" & Trim(objrs.fields(0).value) & "'" SQL03 = "SELECT DISTINCT GDAccessCatCd FROM GDAccessCatInfoDetInfoCatRel WHERE GDAccessCatCd = '" & Trim(objrs.fields(0).value) & "'" SQL04 = SQL02 & " UNION " & SQL03 RecSet = ObjHRMISDACom.SQLSelectRS(SQL04, strFILEDSN) If IsConnOK(RecSet) Then strDisabled = " DISABLED " Else strDisabled = "" RecSet.Close() If Trim(objrs.fields(0).value) = "01" Then strDisabled = " disabled " Else strDisabled = "" End If