"Posto" anche la parte di codice del file report.asp, con i due cursori annidati. PErchè credo che il problema sia proprio qui.
Infatti l'output che mi dà è molto strano :master:

CODIAVVI - 3,13,14,16
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI - 3,10,14,16
42990_10.asp
CODIAVVI -
42990_10.asp
CODIAVVI - 3,13,14
42999_10.asp
CODIAVVI - 13,14,16
43000_10.asp

Il codice è il seguente (viene effettuata anche una insert in tabella)

<%
selectrelaservazie = "select CODI_AZIE "_
&" from v_asp_relaservazie "_
&" where DESC_SERV like '%GARE%' "_
&" GROUP BY CODI_AZIE;"

' response.write selectrelaservazie

Set rsrelaservazie = con.Execute(selectrelaservazie)

if not rsrelaservazie.EOF then

i=0


Do While Not rsrelaservazie.EOF

i=i+1
iprinci=0

vc_listcodiavvi=""
vc_listcodiavviapici=""

vn_codiazie = rsrelaservazie("CODI_AZIE").Value



%>

<%
selectprinci= "SELECT a.codi_avvi, a.NUME_AVVI "_
&" FROM V_Asp_repoanagbollavvi a, "_
&" v_asp_relaavviprov b, "_
&" v_asp_relaavvidettcate c, "_
&" v_asp_gestazieinte d "_
&" WHERE a.CODI_BOLL_AVVI= " & vn_codibollavvi &" "_
&" AND a.codi_avvi=b.codi_avvi "_
&" AND a.codi_avvi=c.codi_avvi "_
&" AND (c.codi_dett_cate=d.codi_dett_cate "_
&" OR b.codi_prov=d.codi_prov) "_
&" AND d.codi_azie= " & rsrelaservazie("CODI_AZIE").Value &" "_
&" group by a.codi_avvi,a.nume_avvi; "

Set rsprinci = con.Execute(selectprinci)

if not rsprinci.EOF then

Do While Not rsprinci.EOF

iprinci=iprinci+1

%>

<%
if (iprinci = 1) then
%>

<% ' Insert

vc_pathfile = "bollavvifile\"


vc_nomefile = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi &".asp"
vc_nomefilepdf = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi

iStoredProc = 4
set command = Server.CreateObject("ADODB.Command")
command.ActiveConnection = con
command.CommandText = "PR_MODISTORBOLLAVVIAZIE"
command.CommandType = iStoredProc

'PAREMETRI INPUT
set objParameter = command.CreateParameter ("VN_CODIBOLLAVVI",200,1,10,vn_codibollavvi)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_ROWID",200,1,10,"")
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VN_CODIAZIE",200,1,200,vn_codiazie)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_PATHFILE",200,1,200,vc_pathfile)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_NOMEFILE",200,1,2000,vc_nomefile)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_USERPROC",200,1,50,vc_userconn)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_CODITIPOOPER",200,1,2,"I")
command.Parameters.Append objParameter
'PAREMETRI OUTPUT
set objParameter = command.CreateParameter ("vc_codierro",200,2,16)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("vc_descerro",200,2,200)
command.Parameters.Append objParameter
command.Execute , , adExecuteNoRecords
' VERIFICO EVENTUALI ERRORI
vc_risuinse = command.Parameters("vc_descerro")
vc_codirisuinse = command.Parameters("vc_codierro")

' Response.write "esito " & vc_risuinse

' if vc_codirisuinse="2" then
' response.redirect "../modianagprog.asp?codice="&vn_codice&"&err="&vc_cod irisuinse&"&descerro="&vc_risuinse
' else
' response.redirect "../inseanagprog.asp?err="&vc_codirisuinse&"&descerro= "&vc_risuinse
' end if

%>


<%
vc_listcodiavvi=rsprinci("CODI_AVVI")

'response.write vc_listcodiavvi
%>
<%
else
%>
<%'=rsprinci("CODI_AVVI").Value%> <%'=rsprinci("NUME_AVVI").Value%>
<%
vc_listcodiavvi=vc_listcodiavvi&","&rsprinci("CODI _AVVI").Value

'response.write vc_listcodiavvi
end if
%>
<%

rsprinci.MoveNext
Loop

end if


%>


<%
response.write "CODIAVVI - " & vc_listcodiavvi %>






<%
' Prossimo cliente

rsrelaservazie.MoveNext

%>

<% response.write vc_nomefile %>


<script> javascript:f_aprichiudi('bollavvifile/<%=vc_nomefile%>');</script>

<%
For cresci=1 to 60000

cresci=cresci+1

Next
%>
<%


Loop

end if


rsprinci.Close
Set rsprinci = Nothing

rsrelaservazie.Close
Set rsrelaservazie = Nothing
%>