Looks like big chunk of that is missing
I rearranged it to use getRows
This isn't tested
<!--#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
%>