samle recordsets

jeg har 2 sql queries hvor indholdet skal spyttes ud på skærmen
den ene indeholder nyhedsoverskrift og historie
og den anden indeholder info til streaming filer der hører til historien

koden kommer her:

strSQL1 = "SELECT * FROM news WHERE"
strSQL1 = strSQL1 & " (dato LIKE '%" & strKeyword & "%')"

strSQL2 = "SELECT * FROM stream WHERE"
strSQL2 = strSQL2 & " (dato LIKE '%" & strKeyword & "%')"


' Skaber et recordset udfra SQL strengen
Set rs1 = Conn.Execute(strSQL1)
Set rs2 = Conn.Execute(strSQL2)
If Not (rs1.BOF Or rs1.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p class='text'><b>Søgeresultat</b></p>"
    Response.Write "<table border=0 class='text'>"
    Do While Not rs1.EOF
        Response.Write "<tr><td class='text'><b>" & rs("headline") & "</b></td></tr>"
        Response.Write "<tr><td class='text'><b>" & rs("story") & "</b></td></tr>"
        rs1.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p class='text'><b>Der er ikke fundet noget på denne søgning</b></p>"
End If

sådan som det er nu så vil den først udskrive første recordset rs1 og så derefter rs2
men skal ha dem så der står feks
nyhedsoverskrift
historie
og så streaming info

og så den næste nyhedsoverskrift
historie streaminfo

osv osv
nogle ideer?