Hej,

Jag har en tabell med data, exempel (förenkling av tabellen)

id, ant, t1, bokade, plats
------------------------------
1 2 vit 146 hemma
1 2 röd 146 hemma
2 3 gul 23 borta
2 3 röd 23 borta
2 3 vit 23 borta

Först börjar jag med "While NOT rs.EOF" för att stega igenom posterna och sen vill jag få ihop värdena [t1] till ett värde (exempel för id.1 "vit röd") eftersom jag bara vill skriva ut en rad per [id].

Jag provade med att göra en loop men det verkar inte funka att loopa när man redan stegar med While funktionen.

Någon som har tips på hur man kan lösa detta så vore jag tacksam.

Mvh,
Kristian (amatör)

Ja det får mha For
Men jag tror du får tänka om, kanske skriva om sql-frågan och ev istället ha 2 sql...

inte helt inne på vad du vill få fram men jodå.. det går göra två Loop, For, While i varandra

Också lite osäker på vad du menar, men chansar:
<code>
do until rs.eof
if rs("id") <> id then
response.write "<br>"
end if
response.write rs("t1") & "&nbsp;"
id = rs("id")
rs.movenext
loop
</code>

Får det fortfarande inte att fungera - försöker göra mitt problem mer tydligt:

jag har alltså flera rader av tex [id] och vill baka ihop [t1] raderna till ett värde för att skriva ut en rad per [id]. Det funkar fint (fast ger flera rader per id) om jag inte har med koden mellan --- och --- så det är här jag behöver hjälp.


While NOT rs.EOF
'----------
text = ""
x = rs("id")
while NOT x = rs("id")
text = text & " " & rs("t1")
rs.MoveNext
wend
'--------
// kod som skriver ut informationen på webbsida. //
rs.MoveNext
wend

Då ska vi se...här kommer en riktigt ful lösning. Den kanske fungerar?

SQL = SELECT * FROM tabellen ORDER BY ID ASC

set rs = connstr.open (SQL)

dim intID, intID2

intID2 = 0

Do Until rs.EoF
intID = rs("ID")

If Not intID = intID2 Then
Response.Write rs("ID") & "<br>"
Else
Response.Write ", " & rs("ID")
End If

intID2 = rs("ID")
rs.Movenext
Loop

Tack, men jag kan inte se att den sätter ihop [t1] värden till ett, innan den går vidare och behandlar sista "raden" innan [id] ändrar värde - gör den det?

Fredrik. Gör inte ditt exempel exakt samma sak som mitt?

Jo det bör den göra. Pröva den!

dim intID, intID2

intID2 = 0

Do Until rs.EoF
intID = rs("ID")

If Not intID = intID2 Then
Response.Write rs("t1") & "<br>"
Else
Response.Write ", " & rs("t1")
End If

intID2 = rs("ID")
rs.Movenext
Loop

Daniel. Jo, det gör den...såg inte det :)