Metalman

Galera tou com um problemas mas não consegui encontrar o ERRO: Tenho uma tabela temporária já carregada em minha aplicação
e estou usando o recordSet para fazer um relatório. Os campos a serem impressos na tabela são os seguintes:

Mat_Func | NM_FUNC | Departamento | Cargo | Horario | TP_Funcionario | Comissao | Valor Comissao

Gostaria que o relatório imprimisse a listagem subdividindo-a por DEPARTAMENTO, tipo ou seja quem for do mesmo departamento
será impresso somente em uma única sequencia, observe que o topo tera um <td colspan=8> com o campo nome do departamento.

DEPTO DE RH

123 | Fulano | DEPTO DE RH | Analista de RH |8 - 17h | CLT | sim | R$ 2000
345 | Cicrano | DEPTO DE RH | Aux. Administrativa |8 -17h | Contrato | não | -
567 | Manuel | DEPTO DE RH | Trainner RH |8 -12h | Estagio | não | -

DEPTO DE Engenharia

111 | zezinho | DEPTO DE Engenharia | Eng. civil |8 - 17h | CLT | sim | R$ 5000
222 | joaozinho | DEPTO DE Engenharia | Tec em edificacoes |8 -17h | CLT | sim | R$ 1000
333 | Manuel | DEPTO DE Engenharia | Desenhista CAD |8 -12h | CLT | sim | R$ 1500

DEPTO DE Marketing

111 | zezinho | DEPTO DE Marketing | publicitario |8 - 17h | Contrato| nao | -
222 | joaozinho | DEPTO DE Marketing | Trainner MKT |8 -17h | CLT | não | -
333 | Manuel | DEPTO DE Marketing | Estagiario |8 -12h | ESTAGIO | não | -


segue o cod para alguem me dizer onde estou errando

codigoDoDepto = 0

while not rs.EOF

	codigoDoDepto = rs("codDepto")

	response.write "<td><td>" & rs("NM_DEPTO") & "</td></tr>"

	Do while codigoDoDepto = rs("codDepto")
	
		'Aqui impreme os campos

	response.write "<tr><td>" & rs("campo1") & "</td>"
	response.write "<td>" & rs("campo2") & "</td>"
		.	.		.
		.	.		.
		.	.		.
	response.write "<td>" & rs("campoN") & "</td></tr>"

	if not rs.EOF then
		rs.movenext
		codigoDoDepto = rs("codDepto")
	else
	  	exit do
	end if

	Loop
wend