---
title: "Bryta rad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74666-bryta-rad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-04-22T08:17:31.000Z"
updated: "2003-04-24T10:29:08.000Z"
replies: 3
views: 184
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/74666-bryta-rad"
---
# Bryta rad
## #1 — Asa, 2003-04-22T08:17Z
Någon som vet hur jag ska göra för att denna kod efter ex 2 ska byta rad?? Detta ska enkelt vara valbart upptill.
```
<%maxnumber = 3
Set RS = Conn.execute("SELECT id,product,cat,picture,price FROM shop_products Where picture <> ''")
response.write ""
if not rs.eof then
arr = rs.getrows()
items = ubound(arr,2) + 1
if items < maxNumber then maxNumber = items
dim choosen()
redim choosen(maxnumber-1)
randomize
cnt = 0
Do Until cnt = maxnumber
RndNumber = Int(Rnd * items)
found = false
for i = 0 to cnt - 1
if choosen(i) = rndNumber then
found = true
exit for
end if
next
if not found then
choosen(cnt) = rndNumber
cnt = cnt + 1
Set cat=Conn.Execute("Select * From shop_category Where id=" & arr(2,rndNumber))%>
style="border-right: 1px solid <%=ShopInst("color1")%>"<%End If%>>
| &ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>"><%=arr(1,rndNumber)%> |
&ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>">%>) |
<%=FormatNumber(arr(4,rndNumber),0)%>:- |
&ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>&type=start','bottom.asp');"> |
|
<%end if
loop
else
response.write " | "
end if
response.write "
"
RS.Close
Set Rs = Nothing%>
```
Permalänk: https://www.webforum.nu/p/74666
## #2 — OveRRidE, 2003-04-22T08:29Z
```
Do Until cnt = maxnumber
yxa = yxa + 1
RndNumber = Int(Rnd * items)
found = false
for i = 0 to cnt - 1
if choosen(i) = rndNumber then
found = true
exit for
end if
next
if not found then
choosen(cnt) = rndNumber
cnt = cnt + 1
Set cat=Conn.Execute("Select * From shop_category Where id=" & arr(2,rndNumber))%>
style="border-right: 1px solid <%=ShopInst("color1")%>"<%End If%>>
| &ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>"><%=arr(1,rndNumber)%> |
&ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>"> |
<%=FormatNumber(arr(4,rndNumber),0)%>:- |
&ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>&type=start','bottom.asp');"> |
|
<%
if yxa = maxnumber then
yxa = 0 %>
<% end if
end if
loop
```
Permalänk: https://www.webforum.nu/p/1019034
## #3 — Asa, 2003-04-22T09:43Z
Jag ändrade det du ändrat till såhär. Nu funkar det att i mitt fall visa 4 bilder totalt med 2 per rad men ibland visas alla på en rad. Nån ide varför?
```
<%
maxnumber = 4
PerRad = 2
Set RS = Conn.execute("SELECT id,product,cat,picture,price FROM shop_products Where picture <> ''")
response.write ""
if not rs.eof then
arr = rs.getrows()
items = ubound(arr,2) + 1
if items < maxNumber then maxNumber = items
dim choosen()
redim choosen(maxnumber-1)
randomize
cnt = 0
yxa = 0
Do Until cnt = maxnumber
yxa = yxa + 1
RndNumber = Int(Rnd * items)
found = false
for i = 0 to cnt - 1
if choosen(i) = rndNumber then
found = true
exit for
end if
next
if not found then
choosen(cnt) = rndNumber
cnt = cnt + 1
Set cat=Conn.Execute("Select * From shop_category Where id=" & arr(2,rndNumber))%>
| &ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>"><%=arr(1,rndNumber)%> |
&ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>"> |
<%=FormatNumber(arr(4,rndNumber),0)%>:- |
&ucat=<%=arr(2,rndNumber)%>&ID=<%=arr(0,rndNumber)%>&type=start','bottom.asp');"> |
|
<%if yxa = PerRad then
yxa = 0 %>
<%end if
end if
loop
else
response.write " | "
end if
response.write "
"
RS.Close
Set Rs = Nothing%>
```
Permalänk: https://www.webforum.nu/p/1019062
## #4 — Asa, 2003-04-24T10:29Z
Nu funkar det att i mitt fall visa 4 bilder totalt med 2 per rad men ibland visas alla på en rad eller 3 på en rad å den fjärde på rad 2. Någon som vet vad som strular i koden?
Permalänk: https://www.webforum.nu/p/1023650
---
Tråden på webben: https://www.webforum.nu/amne/asp/74666-bryta-rad