Home Research Publications Classes Consulting My Lab Files
<% Response.Cookies("genet_view") = "docked" %> <%if request("action") = "" then%>


Upload a File (Password Required) <%if request("result") = "success" then response.write "Thanks

"%>
<%elseif false then 'request("action") = "fileuploadprocess" then Set uploadObject = Server.CreateObject("softartisans.fileup") if not uploadObject.IsEmpty then 'file = split(uploadObject.userFileName, "\") 'extension = right(file(Ubound(file)), 4) 'newfilename = file(ubound(file)) & "_" & replace(date(), "/", "_") & extension newfilename = uploadObject.userFilename end if 'save picture uploadObject.saveas "d:\inetpub\wwwroot\kirsh\fileupload\" & newfilename response.redirect "fileupload.asp?result=success&lastFile=" & uploadObject.userFilename end if%>