hjälp!!

jag har en liten sida som laddar upp filer, men den verkar inte tycka om dom stora =(

allt fungerar fint med lite mindre filer ur exempelvis kategorin textfil med ett recept till mamma, men så fort det handlar om kanske en bmp eller något annat lite större så tar det emot.. den bara står och tuggar!

någon som vet vad felet är??

så här ser koden ut:

'LADDA UPP FILER
Dim Counter
Server.ScriptTimeout = 5400
'Hämta hela headern som postats genom att hämta headerns storlek med dess data
'Eftersom det är binär data så vi måste ändra det till någonting som är hanterbart
Dim Header, PostData
Header = Request.BinaryRead(Request.TotalBytes)
For Counter = 1 to LenB(Header)
PostData = PostData & Chr(AscB(MidB(Header,Counter,1)))
Next
'När BinaryRead har använts kan inte Request-objektet användas
'Hämta gränsernas utseende i headern genom att läsa servervariabeln ContentType
Dim ContentType, ContentTypeArray, Boundary, BoundaryArray
ContentType = Request.ServerVariables("HTTP_CONTENT_TYPE")
ContentTypeArray = Split(ContentType, ";")
BoundaryArray = Split(Trim(ContentTypeArray(1)), "=")
Boundary = Trim(BoundaryArray(1))
'Dela upp headerns fält i en array (första och sista fältet innehåller endast "--")
'Starta loopen som laddar upp alla filer
Dim Fields, CrLf, FileName, FileData, BrowserType, Amount
Fields = Split(PostData, Boundary)
CrLf = Chr(13) & Chr(10)
For Counter = 1 To (Ubound(Fields) - 1)
'Plocka ut filnamnet och filens data ur headerfältet
'Ta reda på vilken klient som skickat filen eftersom Windows skickar sökvägen medan Machintosh skickar namnet
FileName = Mid(Fields(Counter), InStr(Fields(Counter), "filename=") + 10, InStr(Fields(Counter), "Content-Type:") - InStr(Fields(Counter), "filename=") - 13)
FileData = Mid(Fields(Counter), InStr(Fields(Counter), CrLf & CrLf) + 4, Len(Fields(Counter)) - InStr(Fields(Counter), CrLf & CrLf) - 7)
BrowserType = UCase(Request.ServerVariables("HTTP_USER_AGENT"))
If (InStr(BrowserType, "WIN") > 0) Then
FileName = Mid(FileName, InStrRev(FileName, "\") + 1)
End If
'Skapa en ny fil mha FSO och skriv in filens data
If FileName <> "" Then
Dim SaveFile
Set SaveFile = FSO.CreateTextFile(Server.MapPath("\filer") & "\" & FileName, True)
SaveFile.Write(FileData)
SaveFile.Close
Amount = Amount + 1
End If
Next
'LADDA UPP FILER SLUT


tack på förhand!