Set fso = server.CreateObject("Scripting.FileSystemObject")
Folder = Server.MapPath("photos")
ssql = "Select FileName from Animals where FileID=" & session("id")
rs.Open ssql, Conn, 3, 3
if size > 0 then ' if something has been uploaded
Pic1 = rs("FileName") ' get the current image in the db to be deleted
if Pic1 <> "" then ' if there's image inside the db then deleting it
Set MyFile = fso.GetFile(Server.Mappath("photos") & pic1)
MyFile.Delete
set MyFile = nothing
end if
FileName = Upload.UniqueName(folder, FileName) ' get the new image name & path to upload
Upload("File1").SaveAs Folder & FileName ' saving
ssql2 = "update Animals set FileName=""" & FileName & """ where FileID=" & session("id") ' updating new name in DB
Conn.execute ssql2
end if
Bookmarks