Vise Alle ?

hej
Jeg prøver på at vise alle de forskellige rum + hvor mange personer der er logget på, i de forskellige rum..

men der bliver kun viset ET indlæg fra databasen med dette script ?

strSQL = \"Select * from Rum\"
Set rs = Conn.Execute(strSQL)

  If Not Rs.EOF Then
  Do
  Response.Write(\"\" & rs(\"Rum\") & \"<br>\")
  Rs.MoveNext
 
          StrSQL2 = \"Select * from Funktioner\"
        Set rs = Conn.Execute(strSQL2)

          If Not Rs.EOF Then
          Do
          Response.Write(\"\" & rs(\"Online\") & \"<br>\")
          rs.MoveNext
          Loop While Not rs.EOF
        Else
          Response.Write(\"Ingen Bruger Online<br>\")
          End If
  Loop While Not rs.EOF   
  Else
  Response.Write(\"Ingen Rum oprettet<br>\")
  End If