1 email - 2 loops

<%
Set RSQ= MyConn.Execute("Select * from Interviuri_Intrebari where ID_Interviu = '"& Request.QueryString("int") &"'")
If not RSQ.Eof then
RSQ.MoveFirst
do
Response.Write RSQ("Question") & "<br>"
Set RSR = MyConn.Execute("Select * from Interviuri_Raspunsuri where ID_Intrebare = '"&RSQ("ID_Intrebare") &"' AND UserName = '"& Session("UserName") &"'")
If not RSR.Eof then
RSR.MoveFirst
do
Response.Write RSR("Raspuns") & "<br>"
RSR.MoveNext
Loop Until RSR.EOF
End IF
RSQ.MoveNext
Loop until RSQ.Eof
End if

<%
Set RSQ= MyConn.Execute("Select * from Interviuri_Intrebari where ID_Interviu = '"& Request.QueryString("int") &"'")
If not RSQ.Eof then
RSQ.MoveFirst
do
Response.Write RSQ("Question") & "<br>"
Set RSR = MyConn.Execute("Select * from Interviuri_Raspunsuri where ID_Intrebare = '"&RSQ("ID_Intrebare") &"' AND UserName = '"& Session("UserName") &"'")
If not RSR.Eof then
RSR.MoveFirst
do
Response.Write RSR("Raspuns") & "<br>"
RSR.MoveNext
Loop Until RSR.EOF
End IF
RSQ.MoveNext
Loop until RSQ.Eof
End if
' Send Mail Copy to Admin
 Dim objMail
 Dim strBody
       strBody = "<h2>Rezultatele testului pentru candidatul " & Session("UserName") & "</h2><br>"
    strBody = strBody & "La testul nr. " & Request.QueryString("int") &" candidatul " & Session("UserName") & " a raspuns in felul urmator:<br> "
    strBody = strBody & Here it should be the loops' results
  strBody = strBody & "Pentru a vizualiza reultatele candidatilor, trebuie sa va logati in contul dumneavoastra de pe site.<br>"
    strBody = strBody & "<a href = TestariOnline.rohttp://www.testarionline.ro>TestariOnline.ro</a>" 
    
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = "webmaster@mydomains.ro"
  objMail.Subject = "Rezultatul testului"
  Set rsTo = MyConn.Execute ("Select Email from Login where ID_Firma = "& Session("ID_Firma") & " AND Tip_Cont = ""Companie""")
  objMail.To = rsTo("email")
  objMail.Bcc = "myemail@mydomains.ro"
  objMail.BodyFormat =0
  objMail.MailFormat = 0
  objMail.Body = strBody
  objMail.Send
  On Error resume Next
  'You must always do this with CDONTS.
  set objMail = nothing
  ' End of Mail Function
  RSTo.close
  set RSTo = nothing
 '___________________________________________________________ ____  
RSQ.Close
RSR.Close
Set RSR = Nothing
Set RSQ = nothing
MyConn.Close
Set MyConn = Nothing

Response.Redirect("menuc.asp")
%>