Qualcuno mi aiuta a capire come mai anche se vedo tutti i file il link è unico ?
il codice è questo
codice:
<%
Cartella = Trim(LCase(Request.QueryString("cartella")))
If Right(Cartella,1) <> "\" then Cartella = Cartella & "\"
%>
<%
If Cartella = "" then
    Response.redirect "elencocartelle.asp?percorso=d:.......\FileMan\"
    Else
    If Right(Cartella,1) <> "\" then Cartella = Cartella & "\"
end if
    %>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Cartella)
Set fc = f.Files
%>
<%
Numero_File = 0
FP = ""
DF = ""
For Each whatever in fc
    Nome_File = Trim(LCase(whatever.name))
    If Nome_File <> "" Then Numero_File = Numero_File + 1

    Select Case Right(Nome_File,4)

    Case ".doc"
        FP = FP & Nome_File & "<br>"
        DF = DF & "File di testo<br>"
    Case ".xls"
        FP = FP & Nome_File & "<br>"
        DF = DF & "File di excel<br>"
    Case ".pdf"
        FP = FP & Nome_File & "<BR>"
        DF = DF & "File PDF<BR>"    
    Case ".txt"
        FP = FP & Nome_File & "<BR>"
        DF = DF & "File di testo<BR>"
    Case ".asp"
        FP = FP & Nome_File & "<BR>"
        DF = DF & "File ASP<BR>"
    Case Else
        FP = FP & Nome_File & "<BR>"
        DF = DF & "<BR>"    
    End Select
Next
%>
<%
Mostra_Directory Cartella
Function Mostra_Directory(cartella)
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set FL = fso.GetFolder(cartella)
    Set SF = fl.SubFolders
If Len(cartella) > 60 then
        Precedente = ""
        For f = len(cartella)-1 to 1 step -1
            If Mid(cartella,f,1) = "\" and Precedente = "" then
                Precedente = Mid(cartella,1,f)
            End If
        Next
Response.write "<a name=cartella id=cartella href='elencofile.asp?cartella=" & Precedente & "' TARGET='_parent'>..torna su di un livello</A><BR>"
End If
For Each FL in SF
    Sotto_Cartella = FL.Name
    If Len(cartella) < 60 then
        Response.write Sotto_Cartella & "<BR>"
    Else
        Response.write "<a name=cartella id=cartella href='elencofile.asp?cartella=" & Cartella & Sotto_Cartella & "' TARGET='_parent'>" & Sotto_Cartella & "</A><BR>"
End If
next
End Function
%>
<%
Set Fso = CreateObject("Scripting.FileSystemObject")
    Set FL = fso.GetFolder(cartella)
    Set SF = fl.SubFolders
Sotto_Cartella = FL.Name
%>
<FONT FACE="Arial" SIZE=2>
<%If Numero_File = 0 then%>
<TABLE CELLPADDING=4  BORDER=1 WIDTH=100%>
    <tr style="border-bottom-style: solid">
    <td colspan="2"><b>Nella directory corrente non sono presenti file.</b></td>
    </tr>
</TABLE>
<%ElseIf Numero_File = 1 then%>
<TABLE CELLPADDING=4  BORDER=1 WIDTH=100%>
    <tr style="border-bottom-style: solid">
    <td colspan="2"><b>E' stato trovato un solo file:</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='elencofile.asp?cartella="& Cartella & "' FP'>" & FP& "</a>"%></FONT></TD>
        <TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=DF%></FONT></TD>
    </TR>
</TABLE>
<%Else%>
<TABLE CELLPADDING=4  BORDER=1 WIDTH=100%>
    <tr style="border-bottom-style: solid">
    <td colspan="2"><b>Sono stati trovati <%=Numero_File%> File:</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 & "/" & Nome_File & "'>"& FP& "</a>"%></FONT></TD>
    <TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=DF%></FONT></TD>
    </TR>
</TABLE>
<%
end if
%>