Displaying 2 Records in 1 row before looping to the next row

<%
                    dim imagename,name,desc
                    dim rs,strSQL,pgnum,recCntr,rcp
                    strSQL = "SELECT a.fname,a.lname,a.adescription,a.imagename FROM TABLE a WHERE not a.lname is null ORDER by left(a.lname,3) ASC"
                    set rs = server.CreateObject("ADODB.RecordSet")
                    rs.Open strSQL,conn,1,3
                    pgCnt = (rs.RecordCount / 10)
                    
                    om = rs.RecordCount mod 10
                    if om <> 0 and rs.RecordCount > 10 then
                        pgCnt = pgCnt + 1
                    end if
                    recCntr = 0
                    rcp = 10'records per page
					pgNum = cint(Request.QueryString("pgNum"))
                    if pgNum = "" then
                     pgNum = 1
                    end if
                    if pgNum > 1 then
				      rs.move(pgNum*10 - 10)
				    end if
                    if not rs.EOF then
                      do while recCntr < rcp and not rs.EOF
                      imagename = rs("imagename")
                        fname = rs("fname")
                        lname = rs("lname")
                        desc = rs("Adescription")
                        desc = replace(desc,"""""""","""")
                      %>
                    
<td>
<IMG src="images/<%=imagename%>" width="165" height="130"><br><strong><%=fname%>&nbsp;<%=lname%></strong><br><%=desc%></td>
 
<%
rs.MoveNext
recCntr = recCntr +1
loop
end if
%>