Så här fungerar det idag, men är säker på att det är ett förkastligt sätt att göra det på.
SQL = "SELECT * FROM n_kunder WHERE Avslutade = '2025-01-01' ORDER BY ID ASC"
Set RS = Connection.Execute(SQL)
If Rs.BOF OR Rs.EOF Then
response.write "Här var det tomt!"
else
response.write "<p>"& RS("Namn") &":<br>"
Do until Rs.Eof
SQL2 = "SELECT * FROM n_tjanster WHERE KundID = "& Rs("ID") &" ORDER BY Tjanst, Start"
Set RS2 = Connection.Execute(SQL2)
If Rs2.BOF OR Rs2.EOF Then
response.write "Här var det tomt!"
else
Do until Rs2.Eof
if Rs2("Typ") = 0 Then
response.write "Info saknas"
elseif Rs2("Typ") = 1 Then
response.write "A"
elseif Rs2("Typ") = 2 Then
response.write "B"
elseif Rs2("Typ") = 3 Then
response.write "C"
elseif Rs2("Typ") = 4 Then
response.write "D"
elseif Rs2("Typ") = 5 Then
response.write "E"
elseif Rs2("Typ") = 6 Then
response.write "F"
End if
response.write " "& RS2("Start") &" - "& RS2("slut") &"<br>"
RS2.movenext
loop
End if
Rs2.Close : Set Rs2 = Nothing
response.write "</p><hr>"
RS.movenext
loop
End if
Rs.Close : Set Rs = Nothing
Fast har ännu inte kommit på hur man räknar ut antal timmar om start/slut sker under aktuell månad.
