Upload Filename

Hejsa...

Jeg har et script der uploader filer uden brug af komponenter.
Men jeg har også et lille problem:
Scriptet virker fint jeg mangler bare en ting der er at efter en person har uploadet en fil skal den skrive at filen er uploadet og så skal den skrive navnet på den fil der er blevet uploadet.
Det har jeg lidt problemer med for jeg ved ikke hvordan jeg får den til at finde navnet på den fil.
Jeg har prøvet sådan men det virker ikke:


<HTML><HEAD>
<META content=\"text/html; charset=unicode\" http-equiv=Content-Type>

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject(\"Scripting.Dictionary\")
BuildUploadRequest(RequestBin)
contentType = UploadRequest.Item(\"blob\").Item(\"ContentType\")
filepathname = UploadRequest.Item(\"blob\").Item(\"FileName\")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,\"\\\"))
value = UploadRequest.Item(\"blob\").Item(\"Value\")
Set ScriptObject = Server.CreateObject(\"Scripting.FileSystemObject\")
\'pathEnd = Len(Server.mappath(Request.ServerVariables(\"PATH_INFO\")))-14
\'Response.Write (Request.ServerVariables(\"PATH_INFO\"))
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(\"\"&filename))
For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close   
%>

<!--#include file=\"upload.asp\"-->

<BODY>
<font face=\"Verdana\" size=\"2\">Dit er nu uploadet filen hedder:  <%filename%><br>
</BODY></HTML>