3 gange While Not EOF

Hej Eksperter....

Er det ikke på en eller anden måde muligt at løbe en tabel igennem mere end én gang.

F.eks. sådan her:

\'første select-boks
    Response.Write \"<tr><td>Bla 1</td>\"
    Response.Write \"<td><select size=\'1\' name=\'Bla1\'><option>Choose..</option>\"
    While Not objBla.EOF
        Response.Write \"<option value=\'\" & objBla(\"Bla1\") & \"\'>\" & objCat(\"Bla1\") & \"</option>\"
    objCat.MoveNext
    Wend
    Response.Write \"</select></td></tr>\"

\'anden selectboks
    Response.Write \"<tr><td>Bla 2</td>\"
    Response.Write \"<td><select size=\'1\' name=\'Bla21\'><option>Choose..</option>\"
    While Not objBla.EOF
        Response.Write \"<option value=\'\" & objBla(\"Bla2\") & \"\'>\" & objCat(\"Bla2\") & \"</option>\"
    objCat.MoveNext
    Wend
    Response.Write \"</select></td></tr>\"


\'tredje Selectboks
    Response.Write \"<tr><td>Bla 3</td>\"
    Response.Write \"<td><select size=\'1\' name=\'Bla3\'><option>Choose..</option>\"
    While Not objBla.EOF
        Response.Write \"<option value=\'\" & objBla(\"Bla3\") & \"\'>\" & objCat(\"Bla3\") & \"</option>\"
    objCat.MoveNext
    Wend
    Response.Write \"</select></td></tr>\"


Skal jeg bruge noget andet end While-Wend ???