<%
sql="select * from table"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.EOF then
%>
<table>
<%
i=1
Do while not rs.EOF
%>
<%if i mod 2=1 then%><tr><%End If%> '------- mod ให้เศษเป็น 1 เพื่อให้ได้ 2 คอลัมน์
<td><%=rs("field1")%></td>
<td><%=rs("field2")%><//td>
<%if i mod 2=0 then%></tr><%End if%>
<%
rs.movenext
i=i+1
Loop
%>
</table>
<%
rs.close : set rs=nothing
%>
Load balance : Server 01
