<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS, recCount
mySQL = "SELECT col1, col2 FROM tblData" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open mySql, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText

if objRS.EOF then
	recCount = ""
else
	allData = rs.GetRows(adGetRowsRest)
	recCount = UBound(allData,2)
end if

objRS.close
set objRS = nothing

if recCount <> "" then
        DIM intMarker,intItems,strStartRow,strEndRow

        intItems = 3  '###  You Set number of rows per row

        Response.Write "<table width=""100%"">"

        For intMarker = 0 to recCount

                col1 = allData(0,intMarker)
                col2 = allData(1,intMarker)

                if intMarker Mod intItems = 0 then
                        strStartRow = "<tr>"
                        strEndRow ="</tr>"
                else
                        strStartRow = ""
                        strEndRow =""
                end if
                Response.Write  strStartRow & "<td>" & col1 & "</td><td>" & col2 & </td>" & strEndRow

                if (intMarker = recCount) and (recCount mod intItems <> 0) then Response.Write  "</tr>"
        next

        Response.Write  "</table>"
ELSE
        Response.Write "Sorry, there are no records in our database."
END IF
%>

quote:

---

Originally posted by cripto9t

objRS.open mySql, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText

---

<%
	'Database connection string
	cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
	cnDataSource = "Data Source="&Server.MapPath("database\mydatabase.mdb")
	Conn = cnProvider & cnDataSource


DIM mySQL, objRS
mySQL = "SELECT * FROM tblData" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, Conn
DIM recCount
IF Not objRS.EOF THEN
  Response.Write "<table width='100%' border='1'>"
  recCount = 0
  Do UNTIL objRS.EOF
    IF recCount Mod 3 = 0 THEN
	    Response.Write "<tr>"
    END IF

        Response.Write "<td>"&objRS("Item")&"</td>"
	IF recCount = recCount - 1 THEN
	    Response.Write "</tr>"
		
    END IF
    recCount = recCount + 1
	
    objRS.MoveNext
  Loop
		Response.Write"</tr></table>"
ELSE
  		Response.Write "Sorry, there are no records in our database."
END IF

%>