"select case" dentro "for each"

[optime]

sbagli la logica!

for each ....
DF=""
select case ....
If DF<>"" Then ' visto che assegni DF solo a quelli che ti interessano...
.....tabella
End If
Next

[Prof_Mauri]

Ok, scusa ma come faccio a non fargli ripetere la tabella o la frase tante volte per quanti file esistono nella cartella ?

<TABLE CELLPADDING=4  BORDER=1 WIDTH=100%>
<% 
    For Each whatever in fc
    DF = ""
    Select Case Right(whatever.name,4)
    Case ".doc", ".txt"
        DF = "File di testo"
    Case ".xls"
        DF = "File di excel"
    Case ".pdf"
        DF = "File PDF"    
    Case else
    end Select
%>
<% if DF<>"" then %>
<tr style="border-bottom-style: solid">
<td colspan="2"><b>Elenco dei file presenti nella cartella "<u> <%=Sotto_Cartella%> </u>" :</b></td>
    </tr>
    <tr style="border-bottom-style: solid">
    <td><b>Nome File</b></td>
    <td><b>Tipo</b></td>
    </tr>
    <TR>
    <TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%="<a href='"& Sotto_Cartella & "/" & whatever.Name & "'>"& whatever.Name & "</a>"%></FONT></TD>
    <TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=DF%></FONT></TD>
    </TR>
<% else %>
<tr style="border-bottom-style: solid">
<td colspan="2"><b>Nella cartella "<u> <%=Sotto_Cartella%> </u>" non sono presenti file da scaricare .</b></td>
    </tr>
<% end if %>
<% next %>    
</TABLE>