Konstig loopning

Jag loopar på en hemsida ut lite bilder. Jag har i koden bestämt att han ska loppa 5 i sidled och sedan en ny rad. Men det funkar inte. Bara på första avdelningen är det loopas rätt. Sen loppar den lite som den själv tycker.

Länk till sidan: http://www.markuz.se/portfoliografik.asp

<table width="500" border="0" cellspacing="2" cellpadding="2" align="center">

<tr><td colspan="5" class="rander"><b>Dansband</b></td></tr>

	
<tr>

<%

 

sql = "SELECT * from bilder where namn='portfoliodansband' order by bild asc"

rs.Open sql, mincon, 0, 1

 

 

Do until rs.EOF

 

Response.Write(strRow & "<td align=center>")
response.write("<a href=""fotoalbum/pics/" & rs("bild")& """ target=""_blank""><img src=""fotoalbum/pics/" & rs("bild") & """ border=1 width=90 height=70></a>")
response.write("</td>" & vbCrLf)

nummer = nummer + 1	

    If nummer Mod 5 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rs.MoveNext

Loop

rs.Close

 

%>

</tr>

<tr><td colspan="5">&nbsp;</td></tr>

<tr><td colspan="5" class="rander"><b>Montage, manipulerade bilder</b></td></tr>

	
<tr>

<%

 

sql = "SELECT * from bilder where namn='portfoliophs' order by bild asc"

rs.Open sql, mincon, 0, 1

 

 

Do until rs.EOF

 

Response.Write(strRow & "<td align=center>")
response.write("<a href=""fotoalbum/pics/" & rs("bild")& """ target=""_blank""><img src=""fotoalbum/pics/" & rs("bild") & """ border=1 width=90 height=70></a>")
response.write("</td>" & vbCrLf)

nummer = nummer + 1	

    If nummer Mod 5 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rs.MoveNext

Loop

rs.Close

 

%>

</tr>

<tr><td colspan="5">&nbsp;</td></tr>

<tr><td colspan="5" class="rander"><b>Annonser</b></td></tr>

	
<tr>

<%

 

sql = "SELECT * from bilder where namn='portfolioannons' order by bild asc"

rs.Open sql, mincon, 0, 1

 

 

Do until rs.EOF

 

Response.Write(strRow & "<td align=center>")
response.write("<a href=""fotoalbum/pics/" & rs("bild")& """ target=""_blank""><img src=""fotoalbum/pics/" & rs("bild") & """ border=1 width=90 height=70></a>")
response.write("</td>" & vbCrLf)

nummer = nummer + 1	

    If nummer Mod 5 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rs.MoveNext

Loop

rs.Close

 

%>

</tr>

<tr><td colspan="5" class="rander"><b>Logotyper</b></td></tr>

	
<tr>

<%

 

sql = "SELECT * from bilder where namn='portfoliologo' order by bild asc"

rs.Open sql, mincon, 0, 1

 

 

Do until rs.EOF

 

Response.Write(strRow & "<td align=center>")
response.write("<a href=""fotoalbum/pics/" & rs("bild")& """ target=""_blank""><img src=""fotoalbum/pics/" & rs("bild") & """ border=1 width=90 height=70></a>")
response.write("</td>" & vbCrLf)

nummer = nummer + 1	

    If nummer Mod 5 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rs.MoveNext

Loop

rs.Close

 

%>

</tr>

</table>

HEJ!

Skriv ut dina variabler så du ser vad de är var, och om du inte har det du vill, varför inte det?

Skulle gissa på att du får gör fel med strRow när bilderna är slut och du skapar en tom rad, eftersom du har en före och fyra efter vid första tillfället. (och 4-1 resp 3-2 sedan)

Usch, vad du har låååång kod med mellanrum, svårläst!

Som koden ser ut nu så nollställer du inte "nummer" innan varje loop.
Det innebär ju (beroende på hur många bilder det är / kategori) att "nummer" kan ha "fel" värde i början av de andra två looparna.

Om du innan vara "Do Until..." anger:

nummer = 0

...så kanske det funkar bättre?

MickeA: Tackar.........

http://www.webforum.nu/showthread.php?p=84651#post84651