ingen ny rad för bilderna

4 svar · 212 visningar · startad av WebbisNet 19 aug. 2004

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan19 aug. 2004 23:59#1

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

HermanMedlem sedan maj 2001431 inlägg

20 aug. 2004 08:04#2

<%
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?

LennholmMedlem sedan aug. 2004108 inlägg

20 aug. 2004 08:22#3

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

LennholmMedlem sedan aug. 2004108 inlägg

20 aug. 2004 08:24#4

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

WebbisNetMedlem sedan feb. 20032 027 inlägg

20 aug. 2004 12:21#5

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