UpLoad: problemi di TimeOut

[FreeSoul]

Ho una pagina nel mio sito che fa un upload in una specifica cartella del mio server.

Funziona tutto bene tranne quando trasferisco file di media grandezza. Vado in time out.
Se laforo su file piccoli tipo immagini, testi ecc. è velocissimo.
Appena provo con pps, exe, comunque file non proprio enormi non ce la fa.
Ho aumentato il tempo di time out ma senza successo.
Dopo un certo punto non carica più e attende soltanto che scada il tempo.

Perchè questo?
La stessa cosa mi accade se da locale uploado in locale (htp://localhost/myupload)

Da cosa dipende? Esistoni dei limiti?

[lukeonweb]

se usi lo script di freeasp aggiungi queste funzioni

Function RSBinaryToString(xBinary)
Dim Binary
If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary

Dim RS, LBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)

If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary
RS.Update
RSBinaryToString = RS("mBinary")
Else
RSBinaryToString = ""
End If
End Function

Function MultiByteToBinary(MultiByte)
Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205
Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)
If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If
MultiByteToBinary = Binary
End Function

[FreeSoul]

si, uso quello.
Ora metto in testa le func e provo.
... ma chi chiama le funzioni?

[FreeSoul]

La chiamata va inserita prina di scrivere ...
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)

' MODIFICO QUESTA RIGA
textStream.Write RSBinaryToString(ContenutoFile)

textStream.Close
Set textStream = Nothing
Set FSO = Nothing





o la inserisco a monte? ...
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next

' AGGIUNGO QUESTA RIGA
FileBinario=RSBinaryToString(FileBinario)

FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

[FreeSoul]

G U L P ! ! !
Chi mi risponde?

[FreeSoul]

QUALCUNO SA RISPONDERMI?

Come devo usare queste funzioni?