Upload problem!

Hejsan!
Håller på med ett bilduppladdningsscript till mitt community!
Denna kod använder jag:

<%

Set Upload = Server.CreateObject("Persits.Upload")

'här måste du ändra var dina bilder ska sparas
Upload.Save "C:\Inetpub\wwwroot\adde\star\2\press_bilder"
Set File = Upload.Files("file")

For Each File in Upload.Files
   If File.ImageType <> "JPG" Then
      Response.Write "Du kan bara ladda upp JPG bilder."
      File.Delete
      Response.End
   End If
next
 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")

SQL = "SELECT * FROM anv"
set RS = Connect.Execute(SQL)
SQL = "UPDATE anv Set bild = '"&File&"' where id ="&session("id")
Connection.Execute(SQL)
response.redirect "minsida.asp?id="&session("id")
%>

Det funkar att ladda upp bilden! Men adressen till den sparas inte i databasen.. Varför??

Tacksam för svar!

MVH Adde

Du plockar ju aldrig ut filnamnet, din variabel file
som du stoppar in i databasen har inget värde tillsatt.

ex:

[red]For Each File in Upload.Files
	If File.ImageType <> "JPG" Then
		Response.Write "Du kan bara ladda upp JPG bilder."
		File.Delete
		Response.End
	Else
		[b]strFileName = File.Name[/b]
	End If
Next[/red]