2 sql satser till en

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)

Vad vill du uppnå? De verkar ju inte direkt påminna om varandra.

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.

Hoppas att ni förstår.

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

den fungerade inte.

Så här skrivs det ut idag.

Idrott

rad1
rad2
rad3

Svenska
rad1
rad2
rad3

SQL sats 2

Idrott

text1
text2
text3

Svenska
text1
text2

Jag vill ha det på följande sätt.

Idrott

rad1
rad2
rad3

---
text1
text2
text3

Svenska
rad1
rad2
rad3
----
text1
text2

Är kanske mer en asp fråga än sql?