Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save server.MapPath("resimler")
For Each File in Upload.Files
dosya = file.filename
Next

response.write Upload.Form("baslik")