Hur gör man 2 loopar?

Hej!!

Jag har försökt mig på ngt nytt idag, och det vill inte fungera..
:(
Hur gör man en loop i en annan loop?

Hur jag än gör så blir det fel....

Nedan har Ni min kod i nuvarande skick, utan en loop i loopen...
Tacksam för tips..

 strSQL = "SELECT * From tblkull, tblhund  WHERE tblkull.id = "& strID &" AND tblhund.fldkull = "& strID &""

        Set objrs = objdb.Execute(strSQL)

        'Kullens info finns i tabellen tblkull
        strRas = objRs("ras")
        dteDatum = objRs("Datum")
        strHane = objRs("Hane")
        strTik = objRs("Tik")
        strText = objRs("Text")
        'Valparnas namn och id finns i tabellen tblhund
        strValp = objRs("fldNamn")
        strValpID = objRs("fldID")
       
      
       response.write "<tr><td><b>Ras</b>: " & strRas & "</td></tr>"
       response.write "<tr><td><b>Datum</b>: " & dteDatum & "</td></tr>"   
       response.write "<tr><td><b>Hane</b>: " & strHane & "</td></tr>" 
       response.write "<tr><td><b>Tik</b>: " & strTik & "</td></tr>" 
       
             'Här vill jag loopa ut de valpar som har samma id som
             'denna kull.
             'Finns det inga valpar, så skrivs det inte ut ngt.
             'Så här borde jag börja med loopen men hur??             
              response.write "<tr><td><b>Valpar</b>: " & strValp & "</td></tr>" 
                   
          
      response.write "<tr><td><b>Tik</b>: " & strText & "</td></tr>"
 
      objRs.MoveNext
      objRs.Close
      objdb.close

strSQL = "SELECT * From tblkull left outer join tblhund " & _
" on tblkull.id = tblhund.fldkull WHERE tblkull.id = "& strID 

Set objRs = objdb.Execute(strSQL)

first = true
while not objRs.eof        
   if  first then
       response.write "<tr><td><b>Ras</b>: " & objRs("strRas") & "</td></tr>"
       response.write "<tr><td><b>Datum</b>: " & objRs("dteDatum") & "</td></tr>"   
       response.write "<tr><td><b>Hane</b>: " & objRs("strHane") & "</td></tr>" 
       response.write "<tr><td><b>Tik</b>: " & objRs("strTik") & "</td></tr>" 
       first = false
   end if     
   if not isnull(objRs("strValp") then response.write "<tr><td><b>Valpar</b>: " & objRs("strValp") & "</td></tr>" 
   objRs.MoveNext
wend
objRs.Close
objdb.close

Red: Felstavning

Tackar och bockar, det var snällt!
:)
Nu har man lärt sig ngt nytt
:)