---
title: "Förbättra loop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/130286-förbättra-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SannyW"
published: "2005-06-20T01:41:13.000Z"
updated: "2005-06-20T10:08:04.000Z"
replies: 1
views: 236
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/130286-förbättra-loop"
---

# Förbättra loop

## #1 — SannyW, 2005-06-20T01:41Z

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
```

Permalänk: https://www.webforum.nu/p/130286

## #2 — SannyW, 2005-06-20T10:08Z

Hittade hjälp i forumet, visade hur man kunde lösa det.

<http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=76209&highlight=Paging+getrows>

Permalänk: https://www.webforum.nu/p/1632225

---

Tråden på webben: https://www.webforum.nu/amne/asp/130286-förbättra-loop