non benissimo
se trovo il codice scritto riesco a modificare e a scrivere alcune funzioni la magior parte le creo con dreamweaver

cambio idea per arrivare allo stesso risultato questo credo sia più semplice e più preciso :

con questa funzione leggo le dimensioni del file presente sul server :

<%
'dimensione file 
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write("La dimensione del file è: ")
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function

Dim fname, fpath
fname = "/public/download/q.txt"  'nome del file da controllare
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 
%>

```il problema è che in questo caso devo inserire il percorso e il nome del file 

fname = "/public/download/q.txt"

<%
While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF))
%>
<tr>
<th scope="row"><a href="public/download<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>
<td><%=(Estrai.Fields.Item("DataFile").Value)%></th>
<td><%=(Estrai.Fields.Item("Data").Value)%></td>
<td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
<td><%=(Estrai.Fields.Item("Autore").Value)%>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Estrai.MoveNext()
Wend
%>

tipo questo che mi crea il link al file sul server nella tabella sopra riportata :

href="public/download<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>

Il percorso del file è
public/download<%=Estrai.Fields.Item("NomeFile").Value%>

Microsoft VBScript compilation error '800a03ea'
Syntax error
/AreaDownload/sommario.asp, line 58
Function GetFileSize(filepath)

^

lo ho modificato in questo modo ma mi da errore

'dimensione file 
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write("La dimensione del file è: ")
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function

Dim fname, fpath
fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"  
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 

riga 58

Function GetFileSize(filepath)

mi avete abandonato ?????????

help !

Mi spiace ma non sono così esperto di ASP. in ogni caso che errore da?

è sul post sopra

grazie

Non so a cosa potrebbe essere dovuto, forse a qualche riga precedente?

non credo perchè se io quì

fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>" 

il percorso diretto mi da la dimensione di quel file

Se visualizzi fname cosa restituisce?

mi dà l'errore .
se gli metto il percorso singolo mi restituisce

/public/download/q.txt

ti spiego se inserisco il codice fuori della tabella con la queri funziona

roma122.it/AreaDownload/sommario.asp

quarga ora

se lo metto nella posizione affianco al file mi da l'errore di prima

icrosoft VBScript compilation error '800a0411' Name redefined
/AreaDownload/sommario.asp, line 75
Dim fname, fpath
----^

hai msn si fa prima ?

ma Estrai.Fields.Item("NomeFile") è valorizzato? sei sicuro che sia giusto prenderlo così?

No infatti......

il problema è che non so come rendere dinamica quello script

Come sarebbe rendere dinamico?

nel senso che se io scrivo il percorso esatto funziona se inserisco

fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"

non va ....
quindi come gli indico il percoro relativo alla posizione del file da calcolare ?

scusa ma Estrai.Fields.Item dove lo hai preso? Perchè non usi request.form?

Risoltoooooooooo
se volete pulire la discussione per renderla più agevole penso possa diventare utile a tutti

grazie

 <% 
'######### Funzione che cerca la dim del file ########  dimensione file  ########
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function
'######### FINE  ########
While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF)) 
%>
  <tr>
    
    <th scope="row"><a href="public/download/<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>
    <td><%=(Estrai.Fields.Item("DataFile").Value)%>
    <td><%=(Estrai.Fields.Item("Data").Value)%></td>
    <td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
    <td><%
    
    
'######### percorso per rendere la funzione dinamica   ########
Dim fname, fpath
fname = "/public/download/" + Estrai.Fields.Item("NomeFile").Value
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 

Perfetto! Alla prossima!