Hjälp med mitt upload scipt

<%
	Set Upload = Server.CreateObject("Persits.Upload.1")
	
		Set file = Upload.Files("THEFILE")
		If not file is nothing then
		strBild = File.ExtractFileName
		Else
   		strBild = "ingenbild.gif"
		End if
	Upload.OverwriteFiles = False

	Upload.SetMaxSize 1048576	' Limit files to 1MB
	Count = Upload.Save(""&rooten&"")
	%>

Sen för själva tilläget i databasen har jag:

Recset("bild") = strBild

Och nu till problemet, även om jag laddar upp en bild så tar den alltid "ingenbild.gif"

Det var ett tag sen jag ens kollade på aspkod, och så är jag ganska trött

Skulle vara tacksam för lite hjälp!

ha det bra!
//Rickard