<% Response.Cookies("genet_view") = "docked" %>
<%if request("action") = "" then%>
<%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%>
|
|
|
|
|
|
|