fechar xml por mes

[designmix 0]

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

[hargon 64]

Veja se resolve:

mes = Empty
Response.Write "<Eventos>"
while not rsEvento.EOF
	vData =  rsEvento("evento_data") 
	MesAtual = right("0" & month(vData), 2)
	vData = right("0" & day(vData), 2) & "/" & MesAtual & "/" & year(vData)


	if mes <> MesAtual Then
			Response.Write MesAtual

		If (len(mes) > 0) Then
			Response.Write "</descricao>"
		End If
		Response.Write "<descricao mes = "" & monthName(MesAtual) & "">"
		mes = MesAtual
	end if

		
		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>"	
	

	rsEvento.MoveNext
wend

Response.Write "	</descricao>"
Response.Write "</Eventos>"