Går det att få ihop de här 2 sql satserna till en enda.
SQL = "select amne, niva, elevid, amnesid, elevniva, sum(elevniva) as totaltvarde, count(case when elevniva = 0 then elevniva else null end) as totaltvarde0, count(case when elevniva = 1 then elevniva else null end) as totaltvarde1, count(case when elevniva = 2 then elevniva else null end) as totaltvarde2, count(case when elevniva = 3 then elevniva else null end) as totaltvarde3, Count(amne) as AntalPerNiva from MalElever Where elevid = " & CInt(Request.QueryString("ElevId")) &" group by elevid, amnesid, niva ORDER by amne, niva"
Set RecSet = Connect.execute(SQL)
SQL = "select * from MalElever INNER JOIN MalText ON MalElever.malid=MalText.id Where MalElever.elevid = " & CInt(Request.QueryString("ElevId")) &" ORDER BY MalElever.amne, MalElever.niva"
Set RecSet = Connect.execute(SQL)
om vi börjar med den första sql satsen så plockar jag fram följande
Do Until recset.EOF
If sCurrentTopic <> recset("amne") Then
Response.Write "<p class='titel'>" & RecSet("amne") & "</p>"
End If
------------------
Här är det massor med kod
------------------
sCurrentTopic = recset("amne")
RecSet.MoveNext
Loop
End If
recset.close
sen kommer nästa
Do Until recset.EOF
If sCurrentTopic1 <> recset("amne") Then
Response.Write "<p class='titel'>" & RecSet("amne") & "</p>"
End If
Response.Write recset("maltext") &"<br>"
end if
sCurrentTopic1 = recset("amne")
RecSet.MoveNext
Loop
End If
recset.close
Det jag vill är att få in Response.Write recset("maltext") &"<br>"
i den översta så att allt för varje ämne blir samlat på ett ställe. Sen kommer all info om nästa ämne osv.
select amne
, niva
, elevid
, amnesid
, elevniva
, maltext
, sum(elevniva) as totaltvarde
, count(case when elevniva = 0 then elevniva else null end) as totaltvarde0
, count(case when elevniva = 1 then elevniva else null end) as totaltvarde1
, count(case when elevniva = 2 then elevniva else null end) as totaltvarde2
, count(case when elevniva = 3 then elevniva else null end) as totaltvarde3
, Count(amne) as AntalPerNiva
from MalElever
inner
join MalText
on MalElever.elevid = MalText.id
Where elevid = " & CInt(Request.QueryString("ElevId")) &"
group
by elevid
, amnesid
, niva
ORDER
by amne
, niva
