Ladda upp bild funktion...

Hej! Jag har problem med ladda upp bild funktion!

Här är koden:

Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 100576 ' Truncate files above 100kb
Upload.Save server.mappath("bilder/uppladdat/")
For Each File in Upload.Files
bilden = File.ExtractFileName
   If File.ImageType <> "JPG" Then
      File.Delete
      Session("fel") = "Du kan bara ladda upp JPG bilder."
      Response.redirect("bild_laddaupp.asp")
   End If

Next

if bilden="" Then
    Session("fel") = "Du måste bläddra efter en fil!"
	response.redirect("bild_laddaupp.asp")
else

Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("*.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM bilder"
rs1.Open Addera, Connect1, 3, 3

	
if not rs1eof then
		'om det är en riktig bild, plocka bort den!
		if rs("bild") <> "bilder/profil_ingen.jpg" then 
			strPath=server.mapPath(rs("bild"))				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
		end if

		bild ="bilder/uppladdat/" & bilden
		    rs1.addnew
			rs1("bild") = bild
			rs1("vems") = gnamn
			rs1.Update
	end if
	end if

Felet är att den aldrig laddar upp bilden... Varför inte?