<%SUB ocnList()%> <% DIM objRS DIM strSQL Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT id_bmsUsers,bmsFirstName,bmsSurname FROM bmsWebUsers WHERE bmsDelete = 'false' AND bmsContactType = 1 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 %> <%ELSE%> <% 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")%> " target="_parent" class="black"><%=objRS("bmsSurname")%> " target="_parent" class="black"><%=objRS("bmsFirstName")%>

<%END SUB%>