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!