---
title: "Do Until RS.EOF"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56163-do-until-rs-eof"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "soffan76"
published: "2002-10-16T11:51:35.000Z"
updated: "2002-10-16T12:36:12.000Z"
replies: 13
views: 385
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/56163-do-until-rs-eof"
---

# Do Until RS.EOF

## #1 — soffan76, 2002-10-16T11:51Z

Hej!

Jag har en databas med en massa poster som jag vill visa i en lista.
Hur gör jag för att inte alla ska visas i en lång radda, det ser inte snyggt ut. Kan jag först lista tio poster, sedan tio till o.s.v. tills posterna tar slut.
Kan säga att det gäller anställda med foton och jag vill att det ska se snyggt ut i olika tabeller.
Svårt att förklara, hoppas nån fattade....
Nu är koden:

```
<%
Do Until RS.EOF%>
<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 %>
<%
rs.MoveNext
Loop
%>
```

Permalänk: https://www.webforum.nu/p/56163

## #2 — icaaq, 2002-10-16T11:57Z

```
[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]
```

Permalänk: https://www.webforum.nu/p/822135

## #3 — soffan76, 2002-10-16T12:00Z

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.

Permalänk: https://www.webforum.nu/p/822139

## #4 — icaaq, 2002-10-16T12:02Z

> **soffan76 skrev:**
>
> först fem på en rad, sen nästa fem o.s.v.

 ska man ladda en ny sida efter fem ?

Permalänk: https://www.webforum.nu/p/822141

## #5 — soffan76, 2002-10-16T12:05Z

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.

Permalänk: https://www.webforum.nu/p/822145

## #6 — soffan76, 2002-10-16T12:06Z

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

Permalänk: https://www.webforum.nu/p/822146

## #7 — icaaq, 2002-10-16T12:07Z

Vänta lite.......

Permalänk: https://www.webforum.nu/p/822147

## #8 — @nders, 2002-10-16T12:08Z

Det är klart att det går.

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

mvh,

Permalänk: https://www.webforum.nu/p/822148

## #9 — Skarre, 2002-10-16T12:09Z

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.

Permalänk: https://www.webforum.nu/p/822150

## #10 — soffan76, 2002-10-16T12:14Z

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

Permalänk: https://www.webforum.nu/p/822153

## #11 — soffan76, 2002-10-16T12:27Z

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

Permalänk: https://www.webforum.nu/p/822162

## #12 — icaaq, 2002-10-16T12:30Z

```
[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

Permalänk: https://www.webforum.nu/p/822163

## #13 — @nders, 2002-10-16T12:31Z

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

Permalänk: https://www.webforum.nu/p/822164

## #14 — soffan76, 2002-10-16T12:36Z

Jaaa,  nu ser det snyggt ut. TACK!

Permalänk: https://www.webforum.nu/p/822168

---

Tråden på webben: https://www.webforum.nu/amne/asp/56163-do-until-rs-eof
