Control de salida en pantalla de datos: Recordset, Do While, If ... algo falla

Como mero aficionado que soy, tengo problemas de novato.of course!!



Tengo un recordset con unos datos que quiero presentar de la siguiente forma



Datos del recordset:



Nombredelcentro Nombreempleado Fechabaja

Madrid Pepe1 01022007

Madrid Pepe2 01022007

Madrid Pepe3 01022007

Corboba Pepe4 01022007

Cordoba Pepe5 01022007

Barcelona Pepe6 01022007

Barcelona Pepe7 01022007

Barcelona Pepe8 01022007





Presentación deseada:



Centro de Trabajo: Madrid

Nombreempleado Fechabaja

Pepe1 01022007

Pepe2 01022007

Pepe3 01022007



Centro de Trabajo: Cordoba

Nombreempleado Fechabaja

Pepe4 01022007

Pepe5 01022007



Centro de Trabajo: Barcelona

Nombreempleado Fechabaja

Pepe6 01022007

Pepe7 01022007

Pepe8 01022007





Para hacerlo he preparado el siguiente código de Novato (que no funciona.por
eso estoy preguntando. Sólo me sale el primer bloque de registros: el que
corresponde al primer centro de trabajo)



(quito del código las etiquetas html que controlan la salida en pantalla de
los datos.)



<%@language=VBScript%>



<%



Set rsdatos = Server.CreateObject("ADODB.Recordset")

rsdatos.Open todaselect , db , adOpenDynamic



do while not rsdatos.eof

Response.Write rsdatos.Fields("Nombredelcentro")



controlcentro=rsdatos.Fields("Nombredelcentro")

controlcentro2=controlcentro



do while not rsdatos.eof



if controlcentro2=controlcentro then



Response.Write
rsdatos.Fields("nombreempleado")

Response.Write
rsdatos.Fields("fechabaja")

end if



rsdatos.movenext



if rsdatos.eof=false then

controlcentro2=rsdatos.Fields("Nombredelcentro ")



end if



loop



loop



rsdatos.close



%>





Gracias por sus respuestas



Fernando