Ho trovato questa soluzione è abbastanza accettabile oppure ha qualche problema?
So che il client deve avere per forza excel per effettuare questa operazione.
Ma tolto questo ci sono altri problemi?

codice:
<%@LANGUAGE = VBScript%>

<%
'















  sono da mettere tra la prima e la seconda etichetta
'






  sono da mettere tra  la seconda e la prima etichetta
scrivi = 1
Dim file
file = "etichette.xls"

sql = "select * from Anagrafica where categoria>0"
set rsed=OBJdbConnection.Execute(sql)
With Response	
    .Buffer = True
    .ContentType = "application/vnd.ms-excel"
    .AddHeader "content-disposition", "inline; filename=" & file
	while not rsed.eof
		idNaz = rsed("idNaz")
		provincia = rsed("provincia")
		comune = rsed("comune")
		
		if idNaz = 0 then
			strNazione = "Italia"
			if isnumeric(comune) then
				sqlCom = "select * from Comuni where id=" & comune 
				set rsCom=OBJdbConnection.Execute(sqlCom)
				if not rsCom.eof then
					strcomune = rsCom("descr")
				end if
				rsCom.close		
			end if
			
			if isnumeric(provincia) then
				sqlCom = "select * from province where id=" & provincia 
				set rsCom=OBJdbConnection.Execute(sqlCom)
				if not rsCom.eof then
					strprovincia = rsCom("sigla")
				end if	
				rsCom.close		
			end if
		else
			strNazione = ""
			sqlCom = "select * from nazioni where id=" & idNaz 
			set rsCom=OBJdbConnection.Execute(sqlCom)
			if not rsCom.eof then
				strNazione = rsCom("descr")
			end if	
			rsCom.close	
			
			strprovincia = rsed("provincia")
			strcomune = rsed("comune")
		end if
		
		.Write "<table border=1 align=center><tr><td><table>"
		.Write "<tr>"
		.Write "<td  colspan=8>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center><font face=verdana size=4>" & rsed("nome") & "</font></td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center><font face=verdana size=4>" & rsed("indirizzo") & "</font></td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center><font face=verdana size=4>" & rsed("cap") & " - " & strcomune & " (" & strprovincia & ") - " & strNazione & " </font></td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=right><font face=verdana size=15>9</font></td>"
		.write "</tr>"
		.Write "</table></td></tr></table>"
		
		if scrivi = 1 then
			scrivi = 2
			.Write "















"
		else	
			scrivi = 1
			.Write "






"
		end if	
		rsed.movenext
	wend	
    .Flush
    .End
End With
%>