Do Until RS.EOF

[red]
<%
Do Until RS.EOF%>
<tr>
<td valign="top"><%=rs("namn")%></td>
<% If rs("foto")<> "" Then%>
<td valign="top"><img src="personalfoton/cdc/<%=rs("foto")%>" width="50" height="67" 
alt="" border="1"></td>
<% Else %>
<td valign="top"><img src="personalfoton/bild_saknas.jpg" width="50" height="67" 
alt="" border="1"></td>
<% End If %>
</tr>
<%
rs.MoveNext
Loop
%>
[/red]

Men hur gör jag för att lista det lite snyggare, först fem på en rad, sen nästa fem o.s.v. tills posterna tar slut. Nu hamnar allt på en lång rad... Det är nämligen rätt många poster och jag vill undvika scrollning.

soffan76 skrev:

först fem på en rad, sen nästa fem o.s.v.

ska man ladda en ny sida efter fem ?

Nej, allt på samma sida nedanför varann. Det blir kanske fler SQL-frågor...?
Först post 1-5, på nästa rad post 6-10 o.s.v.

Om det inte går får jag väl ha det som det är, tänkte bara höra efter...

Vänta lite.......

Det är klart att det går.

Använd en räknare och funktionen mod så går det att lösa galant.

mvh,

Någonting sådant här kanske?

<table width="500" border="1" cellspacing="0" cellpadding="0">
	<tr>
	<%
	For i = 1 To 50
	%>
		<td>x</td>
	<%
	If i Mod 5 = 0 And Not i = 50 Then Response.Write("</tr><tr>")
	Next
	%>
	</tr>
</table>

RED: Precis som @nders sa, använd mod.

Tack, jag testar...återkommer...

Hmmm, det blev en snygg tabell, men samma post i alla celler....
Vad gör jag för fel?

<table width="500" border="1" cellspacing="0" cellpadding="0" align="center">
<tr>
	<%
	For i = 1 To 50
	%>
		<td><%=rs("namn")%></td>
	<%
	If i Mod 5 = 0 And Not i = 50 Then Response.Write("</tr><tr>")
	Next
	%>
	</tr>
</table>
<% End IF %>
<% End IF %>
</table>

[red]
<table width="500" border="1" cellspacing="0" cellpadding="0">
<tr>
<%
i = 1
Do 
     If rs("foto") <> "" Then
          strBild = "<img src="personalfoton/cdc/"&rs("foto")
     Else
          strBild = "img src="personalfoton/bild_saknas.jpg"
     End If
Response.Write "<td valign=""top"">"&rs("namn")&" <br>"&vbCrLf
Response.Write "<img src="""&=rs("foto")&""" width=""50"" height=""67"" alt="""&rs("namn")&""" border=""1""></td>"&vbCrLf
If i Mod 5 = 0 And Not rs.EOF Then Response.Write "</tr><tr>"
i = i + 1
rs.MoveNext
Loop Until RS.EOF
%>
</tr>
</table>
[/red]

Så här kanske .......... :)
/Redigerade lite och lite till

Du har ju inte med din recordset-loop i koden?

<table width="500" border="1" cellspacing="0" cellpadding="0" align="center">
<tr>
	<%
	i=0
	Do Until RS.EOF
		i = i + 1
		%>
			<td><%=rs("namn")%></td>
		<%
		If i Mod 5 = 0 And Not i = 50 Then Response.Write("</tr><tr>")
		RS.MoveNext
	Loop
	%>
	</tr>
</table>
<% End IF %>
<% End IF %>
</table>

Jaaa, nu ser det snyggt ut. TACK!