Nån som vet hur man skriver ut ex 6 bilder på en rad och sen skriver ut en ny under så man kan få ex 6 bilder X 4 rader

Behöver det till ett galleri på mitt community

<code>
<p>
<img src="bild01.png" alt="Bild01" height="100" width="100">
<img src="bild02.png" alt="Bild02" height="100" width="100">
<img src="bild03.png" alt="Bild03" height="100" width="100">
<img src="bild04.png" alt="Bild04" height="100" width="100">
<img src="bild05.png" alt="Bild05" height="100" width="100">
<img src="bild06.png" alt="Bild06" height="100" width="100">
<br>
<img src="bild07.png" alt="Bild07" height="100" width="100">
<img src="bild08.png" alt="Bild08" height="100" width="100">
<img src="bild09.png" alt="Bild09" height="100" width="100">
<img src="bild10.png" alt="Bild10" height="100" width="100">
<img src="bild11.png" alt="Bild11" height="100" width="100">
<img src="bild12.png" alt="Bild12" height="100" width="100">
<br>
<img src="bild13.png" alt="Bild13" height="100" width="100">
<img src="bild14.png" alt="Bild14" height="100" width="100">
<img src="bild15.png" alt="Bild15" height="100" width="100">
<img src="bild16.png" alt="Bild16" height="100" width="100">
<img src="bild17.png" alt="Bild17" height="100" width="100">
<img src="bild18.png" alt="Bild18" height="100" width="100">
<br>
<img src="bild19.png" alt="Bild19" height="100" width="100">
<img src="bild20.png" alt="Bild20" height="100" width="100">
<img src="bild21.png" alt="Bild21" height="100" width="100">
<img src="bild22.png" alt="Bild22" height="100" width="100">
<img src="bild23.png" alt="Bild23" height="100" width="100">
<img src="bild24.png" alt="Bild24" height="100" width="100">
</p>
</code>

Glömde visst nämna att jag ska loopa ut bilderna från databas :-)

<code>
Dim X
Dim Y

If rs.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=""" & rs("url") & """ />" & vbCrLf
Response.Write "</td>" & vbCrLf

rs.MoveNext
Loop Until rs.EOF

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