filnamn i aspupload

Hej!

Jag har sökt & sökt i forumet efter en lösning på hur jag får ut namnet på filen som laddas upp, men inte hittat något som gör mig klokare!

Jag har följande formsida;

	<form method="post" action="lagg_till_product2.asp" id=form1 name=form1 enctype="multipart/form-data">
	Name<br>
	<INPUT type="text" name=falt01 size="60">
	<br><br>

	Indications & Ingredients<br>
	<TEXTAREA rows=15 cols=100 name=text01 style='font-family: Verdana, Geneva, sans-serif; font-size: 10px; color: #000000'></TEXTAREA>
	<br><br>
	
	Dosage & Content<br>
	<TEXTAREA rows=15 cols=100 name=text02 style='font-family: Verdana, Geneva, sans-serif; font-size: 10px; color: #000000'></TEXTAREA>
	<br><br>

	Other Information<br>
	<TEXTAREA rows=30 cols=100 name=text03 style='font-family: Verdana, Geneva, sans-serif; font-size: 10px; color: #000000'></TEXTAREA>
	<br><br>

	Picture<br>
		<input type="file" name="file1"><br>
<br>

	<INPUT type="text" name=id value="<%=request("id")%>">

	<INPUT type="submit" value=" Spara " id=submit1 name=submit1>

	</form>

Upload sidan ser ut så här;

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
	IntMappId = IntIdentityMappId

	On Error Resume Next
	Upload.SaveVirtual("/upload/"& IntMappId)
	Upload.SetMaxSize 1000, True 

	tmp_falt01	= upload.Form("falt01")
	tmp_text01	= upload.Form("text01")
	tmp_text02	= upload.Form("text02")
	tmp_text03	= upload.Form("text03")
	tmp_id		= upload.Form("id")

	
	tmp_datum	= date()

	SQLStmt ="INSERT INTO db_i "
	SQLStmt = SQLStmt & "(falt01, text01, text02, text03, p_id, datum, fil01) "
	SQLStmt = SQLStmt & "VALUES('"& tmp_falt01 &"','"& tmp_text01 &"','"& tmp_text02 &"','"& tmp_text03 &"','"& tmp_id &"','"& tmp_datum &"','"& tmp_namn &"') "

	Connection.Execute(SQLStmt)
	response.write(sqlstmt)
%>

Allt utom filnamnet fungerar perfekt.

Jag har försökt med

Obtain file object
Set File = Upload.Files("THEFILE")

		tmp_namn = File.ExtractFileName

För att få ut namnet, men inte lyckats.

Tacksam om någon kan peka mig i rätt riktning!

rollo