<%SUB userList()%> <% DIM objRS DIM strSQL Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT id_bmsUsers,bmsFirstName,bmsSurname,bmsActive FROM bmsWebUsers WHERE bmsDelete = 'false' AND bmsContactType = 2 ORDER BY bmsSurname;" objRS.CursorType = 2 objRS.Open strSQL,objConn %>

<% DIM iRecordCount iRecordCount = 0 DO WHILE NOT objRS.EOF IF iRecordCount Mod 2 = 0 THEN %> <% IF objRS("bmsActive") = "false" THEN %> <% ELSE IF objRS("bmsActive") = "true" THEN %> <% END IF END IF %> <%ELSE%> <% IF objRS("bmsActive") = "false" THEN %> <% ELSE IF objRS("bmsActive") = "true" THEN %> <% END IF END IF %> <% END IF iRecordCount = iRecordCount + 1 objRS.MoveNext LOOP objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> Surname Name " target="_parent" class="black"><%=objRS("bmsSurname")%> " target="_parent" class="black"><%=objRS("bmsFirstName")%> account in-active account active " target="_parent" class="black"><%=objRS("bmsSurname")%> " target="_parent" class="black"><%=objRS("bmsFirstName")%> account in-active account active

<%END SUB%>