Løkker i forbindelse med hentning af data fra DB

Hej

Jeg har en sql forespørgsel der skal køres fire gange når siden loades, hvorfor ? jo den det er nemlig ikke samme sqlstatement hvergang, jeg vil derfor gerne ligge det ind i en løkke således det hele ikke skal skrives flere gange, men jeg kan ikke finde den rigtige løsning, det jeg forsøger virker bare som om det er en uendelig løkke


<%
dim strTmpSql, I
I = 0
           
Do Until I  = 4

strSQL = "SELECT Fornavn, Efternavn" & _
    "WHERE Gruppe = " & I                                             dbConnection.Open DSN
Set rsRecordSet = dbConnection.Execute(strSQL)
if not(rsRecordSet.EOF and rs.RecordSet.BOF) then
                                rsRecordSet.MoveFirst
    While not rsRecordSet.EOF
%>               
// OPRETTER HTML MED DATA FRA RECORDSET
<%
                                rsRecordSet.MoveNext
    WEND
    end if
                       
    rsRecordSet.Close
    dbConnection.Close
    set rsRecordSet = Nothing

i = i + 1
Loop
%>