<% umb=cstr(request("up")) Set fbase = Server.CreateObject("Chili.Upload.1") fbase.SizeLimit = 500960 archiv=cstr(fbase.SourceFileName) ext=cstr(fbase.SourceFileExtension) tam=cstr(fbase.FileSize) diag=1 'response.redirect("upload.asp?file=" +archiv) while diag<>0 diag=InStr(archiv, "\") if diag<>0 then archiv=mid(archiv,diag+1,len(archiv)) wend fbase.SaveToFile(server.mappath("images/fotos") + "/" + strreplace(archiv," ","") ) response.redirect("upload.asp?up=" +archiv + umb) %>