<%SUB pageList()%> <% DIM objRS DIM strSQL Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT bmsWebPages.id_bmsPage,bmsWebPages.bmsPageName FROM bmsWebPages ORDER BY bmsWebPages.bmsPageName;" 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 %> Page name " target="_parent" class="black"><%=objRS("bmsPageName")%> " target="_parent" class="black"><%=objRS("bmsPageName")%>

<%END SUB%>