fechar xml por mes

galera sera que alguem pode me dar uma luz ...

estou tendando montar um xml tipo

<Eventos>

<descricao mes =outubro >

<registro>
<id>5</id>
<data>23/10/2008</data>
<desc>ssssss</desc>
</registro>

<registro>
<id>6</id>
<data>24/10/2008</data>
<desc>eu</desc>
</registro>

</descricao mes =outubro >

<descricao mes =novenbro >
<registro>
<id>7</id>
<data>5/11/2008</data>
<desc>sdddd</desc>
</registro>

<registro>
<id>1</id>
<data>25/11/2008</data>
<desc>eventoa</desc>
</registro>

<registro>
<id>2</id>
<data>26/11/2008</data>
<desc>evento</desc>
</registro>
</descricao mes =novenbro >
</Eventos>
Não estou conseguindo fechar </descricao>

estou tentando montando xml assim

while not rsEvento.EOF
vData = rsEvento("evento_data")
vData2 = Split(vData,"/")
vData = vData2(1)&"/"&vData2(0)&"/"&vData2(2)

Select Case vData2(1)

	Case "01"
 mes = "01"
	Case "02"
 mes = "02"
	Case "03"
 mes = "03"
	Case "04"
 mes = "04"
	Case "05"
 mes = "05"
	Case "06"
 mes = "06"
	Case "07"
 mes = "07"
	Case "08"
 mes = "08"
	Case "09"
 mes = "09"
	Case "10"
 mes = "10"
	Case "11"
 mes = "11"
	Case "12"
 mes = "12"

End Select

if mes <> MesAtual Then

Response.Write mes

end if

if mes = vData2(1) then

if not rsEvento.EOF Then

 Response.Write "<registro>"
 Response.Write "<id>"&rsEvento("evento_id")&"</id>"
 Response.Write "<data>"& rsEvento("evento_data")&"</data>"
 Response.Write "<desc>"&rsEvento("evento_titulo")&"</desc>"
 Response.Write "</registro>"

	end if

	MesAtual = mes

end if

rsEvento.MoveNext

wend