Hej!

Jag ska bara ha en enkel uppladdningsfunktion till servern. Jag provade
exemplet som finns här på pellesoft, men jag får det inte att fungera. Då
provade jag att ändra lite i koden och kortade ner den lite, men jag får
inte det att fungera.

Detta är min kod:
<code>
<%
Server.ScriptTimeout = 5400
CrLf = Chr(13) & Chr(10)

PostData = ""

Dim biData
biData = Request.BinaryRead(Request.TotalBytes)

For nIndex = 1 to LenB(biData)
PostData = PostData & Chr(AscB(MidB(biData,nIndex,1)))
Next


ContentType = Request.ServerVariables( "HTTP_CONTENT_TYPE")
ctArray = Split(ContentType, ";")
bArray = Split(Trim(ctArray(1)), "=")
Boundary = Trim(bArray(1))
FormData = Split(PostData, Boundary)

For x = 0 to UBound(FormData)
InfoEnd = InStr(FormData(x), CrLf & CrLf)
varValue = Mid(FormData(x), InfoEnd + 4,Len(FormData(x)) - InfoEnd - 7)
myRequestFiles(FileCount, 1) = varValue
Next

Set lf = server.createObject("Scripting.FileSystemObject")

SavePath = Server.MapPath("/databas/hej.gif")

Set SaveFile = lf.CreateTextFile(SavePath, True)

SaveFile.Write(myRequestFiles(0,1))

SaveFile.Close

%>

</code>

och mitt felmedelande är:

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Mid'
/admin/upload.asp, line 25

Är är tavksom för hjälp, för jag har kört fast...

/Daniel N