Esportare in excel

[[trodat]]

Ciao, ho una query del tipo:

sql = "TRANSFORM Count([Prot.ID) AS ConteggioDiID SELECT [Prot].[Nome],"_
&"[Prot].[Cognome], [Prot].Indirizzo, Count([Prot].ID) AS [Totale di ID] "_
&" FROM [Prot] WHERE ((([Prot].[Sez]) Is Null) AND (([Prot].Indirizzo) "_
&" Like 'Pippo')) GROUP BY [Prot].[Nome], [Prot].[Cognome],"_
&" [Prot].Indirizzo PIVOT Format([Data],'mmm') In ('gen','feb','mar','apr','mag','giu','lug','ago','set','ott','nov','dic');"

che restituisce un certo numero di records corrispondenti al criterio previsto.

Adesso vorrei esportare in excel quanto restituito da asp ed ho scritto così:

Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn

ID = ""

rs.MoveFirst

do while Not rs.eof	
ID  = ID  & rs("ID") & ","

rs.MoveNext
loop
%>
    <form method="post" action="EsportaInExcel.asp">
<input type="hidden" name="Id" value="<%=Id%>"> 
</form>

Ma l'ID non si valorizza, dove sbaglio?

Grazie