TexasWebDevelopers--A Dallas Texas Web Design and Development Company.

<%
Option Explicit
Dim conn,strConn 
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=MICROSOFT.JET.OLEDB.4.0; " & "DATA SOURCE=" & Server.MapPath("fpdb/your_database.mdb")
conn.Open strConn
Dim rs 
Set rs = Server.CreateObject("ADODB.Recordset")
Dim strSQL 
strSQL = "SELECT First_Name,Last_Name FROM Clients ORDER BY First_Name" 

rs.Open strSQL, Conn 
rs.MoveFirst 
%> 
<HTML><title>db rows and columns</title>
<BODY bgcolor="#FFFFFF">

<%
Response.Write("<TABLE WIDTH=""60%"" border=""0"" cellspacing=""0"" cellpadding=""3"">")
Response.Write("<TR>")
DIM i, cellString
i=1
Do until rs.EOF 
cellString="<TD>" & rs("First_Name") & "" & rs("Last_Name") & "<br>" & "</TD>"
if not i mod 3=0 then
response.write(cellString)
else
response.write(cellString)
Response.Write("</TR>")
Response.Write("<TR>")
end if
i=i+1
rs.movenext
loop
Response.Write("</Table>")
%>
</body>
</html>
<%
response.end
rs.close
set conn=nothing
%>