SET mybobj = Server.CreateObject("basp21")

myform_size=Request.TotalBytes

mybuffer=Request.BinaryRead(myform_size)

myauthor=mybobj.Form(mybuffer,"author")

myfile_name=mybobj.FormFileName(mybuffer,"upfile")

myfile_size=mybobj.FormFileSize(mybuffer,"upfile")

myfile_name=Mid(myfile_name,InStrRev(myfile_name,"\")+1)

mypath=Server.MapPath("/temp") & "\" & myauthor & "_" & myfile_name

myerror=mybobj.FormSaveAs(mybuffer,"upfile",mypath)