Någonting i stil med detta. Skrev ihop lite snabbt. Tror det fungerar.
<%
dim intCols, objCon, objRS, i
intCols = 4 'Antal celler per rad
set objCon = Server.CreateObject("ADODB.Connection") 'Öppna databasen
objCon.open "driver=...." 'Connectionstring för databasen
set objRS = objCon.execute("select...") 'Hämta poster ur databasen
if not objRS.eof then
response.write "<table>"&vbcrlf
i=0 'Initiera räknaren för att räkna antal varv
do until objRS.eof
'Kolla om det är en ny rad
if i=0 then
response.write "<tr>"&vbcrlf
end if
response.write "<td>"&objRS("field")&"</td>"&vbcrlf 'Tabellcellen med innehåll
objRS.movenext 'Gå till nästa post
i=i+1 'Plussa på räknaren med ett för varje varv
'Kolla om det är dags att avsluta raden
if (i=intCols) or (objRS.eof) then
i=0
response.write "</tr>"&vbcrlf
end if
loop
response.write "</table>"&vbcrlf
end if
objRS.close
set objRS=nothing
objCon.close
set objCon=nothing
%>
