Loopa ut alla ordnat efter dag?

ASP

2 svar · 246 visningar · startad av Bosse168 9 jan. 2005

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan9 jan. 2005 17:00#1

sparar in data med veckodagen (1, 2, 3 osv.) hur gör jag för att loopa ut alla som exemplet nedan?

Måndag
data
data

Tisdag
data
data
data

Dvs först loopa ut dom som har dag två i kolumnen dag 2 och sedan dom som har 3 osv. hela veckan.

Bosse168Medlem sedan nov. 20031 018 inlägg

9 jan. 2005 17:22#2

Löste det med denna koden men tycker den verkar konstig, några förslag?

<%
Dim dag
dag=1
Do WHILE dag <= 7

Set Rs = Connect.Execute("SELECT * FROM halsa_schema WHERE sub_id='"& Request.QueryString("id") &"' AND dag='"& dag &"'")

Response.Write(WeekdayName(dag) &"<br>")

If Rs.EOF Then
	Response.Write("<em>Vilodag.</em><br><br>")
Else

Do until Rs.eof

Response.Write(Rs("namn") &"<br>")

Rs.movenext
loop

End If

Rs.Close : Set Rs=nothing
%>
<br>

<%
dag = dag + 1
Loop
%>

LarsGMedlem sedan dec. 200012 464 inlägg

9 jan. 2005 17:38#3

<%
Set Rs = Connect.Execute("SELECT * FROM halsa_schema WHERE sub_id='"& Request.QueryString("id") &"' order by dag)
d = 0
while not rs.eof
     do while d  < cint(rs("dag"))
        d = d + 1
        Response.Write WeekdayName(d) & "<br>"
        if  d = cint(rs("dag")) then exit do
        Response.Write "<em>Vilodag.</em><br><br>"
     loop
     Response.Write Rs("namn") & "<br>"
     Rs.movenext
wend
Rs.Close : Set Rs=nothing
%>
<br>