<table align="center" border="1" bordercolor="#000000" cellpadding="5" cellspacing="0">
<tr><td><b>File nel db</b></td><td><b>File su server</b></td></tr>
<tr>
<%
if not rs.eof then
arr_db = rs.getRows()
end if

dim folder,path
dim fso,str

folder="/dati/public/venduto/"&strId&""
%>
<td>
<%
'stampo la prima colonna (file nel db)
str="|"
set fso=server.CreateObject("scripting.filesystemobject")
for i=0 to ubound(arr_db,2)
response.Write arr_db(4,i) & ".txt" &"<br>"
str=str & arr_db(4,i) & ".txt|"


next
%>
</td>
<td valign="top">
<%
'stampo la seconda colonna (file nella cartella)
set fo=fso.getFolder(server.MapPath(folder))
for each f in fo.files
response.write f.name  & "<br>"

next
%>
</td>
<tr>
<td colspan="2">
File diversi:<br />
<%
'trovo i file diversi
for i=0 to ubound(arr_db,2)
path=server.MapPath(folder & arr_db(4,i) & ".txt")
if not fso.FileExists(path) then response.Write arr_db(4,i)& ".txt" & "<br>"
next

%>
</td>
</tr>
</table>