Förbättra loop

Försöker vidarutveckla och köra en loop ut i en tabell, men det ser snarare ut som spagetti-kod. Målet är att få fram loopen så att jag kan skriva ut 3 poster i taget och sätta in det hela i paging.

Sub portfolio
Dim arrRecords, portfolio_id, portfolio_datum, portfolio_rubrik, portfolio_imgurl, portfolio_kategori

' Process values from the QueryString
strCheck = ChkString(CLng(Request.QueryString("sub")))

arrRecords = GetRows("SELECT id, datum, rubrik, imgurl, kategori FROM tbl_portfolio WHERE kategori ='"& strCheck &"' Order By datum, id")
  
If IsArray(arrRecords) THEN
    FOR i=0 to UBound(arrRecords,2)
      portfolio_rubrik = arrRecords(2,i)

      If i=0 Then Response.Write "<table id='portfolio'><thead><tr>"
      Response.write "<th>" & portfolio_rubrik &"</th>"

    Next

    FOR i=0 to UBound(arrRecords,2)

      	portfolio_id = arrRecords(0,i)
      	portfolio_datum = arrRecords(1,i)
      	portfolio_imgurl = arrRecords(3,i)
      	portfolio_kategori = arrRecords(4,i)
      
	If i=0 Then Response.Write "</tr></thead><tbody><tr>"
      	Response.write "<td><img alt='bild1' src='img/preview1.jpg' /></td>"

    Next

  Response.Write "</tr></tbody></table>
End if
End Sub