BAOL errore da Byte a Kb

[asch]

Ciao,

vorrei stampare il peso del file caricato in KB invece che in Byte ma ho mi da errore:
Come posso fare?

 PesoTotale = oUpload.Files("Size")
  	PesoTotale = Cint(PesoTotale)
	PesoTotale = PesoTotale/1000
  	PesoTotale = Round(PesoTotale,2)
	Response.Write(PesoTotale & " KB")

Microsoft VBScript runtime error '800a0006'

Overflow: 'Cint'

[michele.santoro]

Originariamente inviato da asch
Ciao,

vorrei stampare il peso del file caricato in KB invece che in Byte ma ho mi da errore:
Come posso fare?

 PesoTotale = oUpload.Files("Size")
  	PesoTotale = Cint(PesoTotale)
	PesoTotale = PesoTotale/1000
  	PesoTotale = Round(PesoTotale,2)
	Response.Write(PesoTotale & " KB")

Microsoft VBScript runtime error '800a0006'

Overflow: 'Cint'

Secondo me devi togliere il Kb da PesoTotale, una cosa del tipo (anche se non proprio così):

<%
Pesototale = left("20 kb",2)

  	PesoTotale = Cint(PesoTotale)
	PesoTotale = PesoTotale/1000
  	PesoTotale = Round(PesoTotale,2)
	Response.Write(PesoTotale & " KB")
%>

[asch]

forse hai letto male, in PesoTotale non c'è KB!

PesoTotale = oUpload.Files("Size")
Response.Write(PesoTotale)

Risultato = 40448

io il risultato lo vorrei dividere per 1000 ma ho errore

[michele.santoro]

Hai ragione, scusa
prova ad usare:

  	PesoTotale = CLng(PesoTotale)

[asch]

Perfetto! Grazie,
Ciao

[michele.santoro]

Prego