4 svar · 349 visningar · startad av mackanz
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"> </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"> </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.........