---
title: "ingen ny rad för bilderna"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109630-ingen-ny-rad-för-bilderna"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-08-19T23:59:49.000Z"
updated: "2004-08-20T12:21:41.000Z"
replies: 4
views: 218
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/109630-ingen-ny-rad-för-bilderna"
---

# ingen ny rad för bilderna

## #1 — WebbisNet, 2004-08-19T23:59Z

jag har den här koden för ett bildgalleri, men det är bara det att alla bilder visas på en lång rad, vill ha 6 bilder per rad sen ska en ny rad ritas ut tills alla bilder har loopats igenom

```
<%
Dim X 
Dim Y
Set bildRS=objConn.Execute("Select * From tblUsers")
    If bildRS.EOF Then
        Response.Write "Det finns inga bilder..." & vbCrLf
    Else
        X = 1
        Y = 1

        Response.Write "<table>" & vbCrLf
        Response.Write "<tr>" & vbCrLf
        Do
            If X >= 6 Then
                Response.Write "</tr>" & vbCrLf

                X = 1
                If Y >= 4 Then
                    Exit Do
                Else
                    Y = Y + 1
                End If

                Response.Write "<tr>" & vbCrLf
            End If

            Response.Write "<td>" & vbCrLf
            Response.Write "<img src=""/images/users/" & bildRS("picture") & """ />" & vbCrLf
            Response.Write "</td>" & vbCrLf

            bildRS.MoveNext
        Loop  Until bildRS.EOF

        Response.Write "</tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
    End If
%>
```

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

## #2 — Herman, 2004-08-20T08:04Z

```
<%
Set bildRS=objConn.Execute("Select * From tblUsers")
    If bildRS.EOF Then
        Response.Write "Det finns inga bilder..." & vbCrLf
    Else
        Response.Write "<table>" & vbCrLf
        Response.Write "<tr>" & vbCrLf
        Do
            If x mod 6=0 and x>1 Then Response.Write "</tr><tr>" & vbCrLf

            Response.Write "<td>" & vbCrLf
            Response.Write "<img src=""/images/users/" & bildRS("picture") & """ />" & vbCrLf
            Response.Write "</td>" & vbCrLf

            x=x+1
            bildRS.MoveNext
        Loop  Until bildRS.EOF

        Response.Write "</tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
    End If
%>
```

 

Någe sånt kanske?

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

## #3 — Lennholm, 2004-08-20T08:22Z

Gör så här istället.

\<%
Dim X 

Set bildRS=objConn.Execute("Select \* From tblUsers")
    If bildRS.EOF Then
        Response.Write "Det finns inga bilder..." & vbCrLf
    Else
        X = 1

        Response.Write "\<table\>" & vbCrLf
        Response.Write "\<tr\>" & vbCrLf
        Do
            Response.Write "\<td\>" & vbCrLf
            Response.Write "\<img src=""/images/users/" & bildRS("picture") & """ /\>" & vbCrLf
            Response.Write "\</td\>" & vbCrLf

            If X Mod 6=0 Then
                Response.write "\</TR\>" & vbCrLf
                If Not bildRS.EOF Then
                    Response.write "\<TR\>"
                End If
            End

            bildRS.MoveNext
            x=x+1
        Loop  Until bildRS.EOF

        If X Mod 6\>0 Then
            Response.Write "\<TD COLSPAN=" & X Mod 6 & "\>\</TD\>\</tr\>" & vbCrLf
        End If
        Response.Write "\</table\>" & vbCrLf
    End If
%\>

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

## #4 — Lennholm, 2004-08-20T08:24Z

Ojdå, missade en sak

If X Mod 6=0 Then
Response.write "\</TR\>" & vbCrLf
If Not bildRS.EOF Then
Response.write "\<TR\>"
End If
End

bildRS.MoveNext
Loop Until bildRS.EOF

Flytta upp "bildRS.MoveNext" några rader så att det blir så här:

If X Mod 6=0 Then
Response.write "\</TR\>" & vbCrLf

bildRS.MoveNext

If Not bildRS.EOF Then
Response.write "\<TR\>"
End If
End

Loop Until bildRS.EOF

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

## #5 — WebbisNet, 2004-08-20T12:21Z

> **Herman skrev:**
>
> ```
> <%
> Set bildRS=objConn.Execute("Select * From tblUsers")
>     If bildRS.EOF Then
>         Response.Write "Det finns inga bilder..." & vbCrLf
>     Else
>         Response.Write "<table>" & vbCrLf
>         Response.Write "<tr>" & vbCrLf
>         Do
>             If x mod 6=0 and x>1 Then Response.Write "</tr><tr>" & vbCrLf
> 
>             Response.Write "<td>" & vbCrLf
>             Response.Write "<img src=""/images/users/" & bildRS("picture") & """ />" & vbCrLf
>             Response.Write "</td>" & vbCrLf
> 
>             x=x+1
>             bildRS.MoveNext
>         Loop  Until bildRS.EOF
> 
>         Response.Write "</tr>" & vbCrLf
>         Response.Write "</table>" & vbCrLf
>     End If
> %>
> ```
>
>  
> 
> Någe sånt kanske?

funkar perfekt, tack

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/109630-ingen-ny-rad-för-bilderna