Jag får inte till detta!
---------------------------------------------------------------
Do Until RS.EOF
x = x +1

RS.MoveFirst

Do Until RS.EOF
x = x -1

Response.Write(RS("datum") & " " & RS("namn"))
If x > 0 Then
Response.Write(" / ")
End If

RS.MoveNext
Loop
----------------------------------------------------------------
Alla namn som har samma datum skall skrivas på samma rad med en slash (/) som avgränsare. Detta fungerar. Men sedan vill jag att nästa datum skall börja på ny rad, hur gör jag då??

Nån som vet??

mvh
Torbjörn

Jag fårstår inte riktigt koden, men så här kanske fungerar. Byt ut

If x > 0 Then
Response.Write(" / ")
End If

mot

If x > 0 Then
Response.Write " / "
Else
Response.Write "<br>" & vbCrLf
End If


/Johan

Koden är en exempelkod för att visa hur jag tänkt. Datum är något som namnen skall sorteras efter.

En slash (/) skrivs nu ut som avgränsare om det förekommer fler än ett namn per rad.

Såhär skall det se ut vid utskrift:

01 Anders / Johan 'radbryt
02 Bert / Sune 'radbryt
03 Sonja 'radbryt
04 Andreas / Rolf / Sven 'radbryt
osv.........

Varje rad är kopplat till varsitt enskilt datum. Alltså när alla namn som hör till datumet är utskrivna, skall en radbrytning komma efter sista namnet. Därför funkar det inte bara med ELSE....

mvh
Torbjörn

Om recordsetet är sorterat på datum skulle detta fungera:
<%
Dim fldDatum
Dim fldNamn
Dim LastDatum

Set fldDatum = RS("datum")
Set fldNamn = RS("namn")

Do Until RS.EOF
If LastDatum <> fldDatum Then
Response.Write "<BR>" vbCrLf & fldDatum & " " & fldNamn
LastDatum = fldDatum
Else
Response.Write " / " & fldNamn
End If
RS.MoveNext
Loop
%>

Tack Andreas!!


Som vanligt så funkade detta :)


mvh
Torbjörn