home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / setup3.cab / pak210-x86.exe / RCDATA / CABINET / uploadn.asp < prev    next >
Text File  |  1997-05-22  |  993b  |  31 lines
  1. <% Response.Buffer = TRUE %>
  2. <% if (Len(Request.ServerVariables("LOGON_USER")) = 0 ) then %>
  3.     <% Response.Status = "401 Unauthorized" %>
  4.     <HTML><BODY><B>Error: Access is denied.</B><P></BODY></HTML>
  5. <% else %>
  6. <html>
  7.  
  8. <head>
  9. <title>RFC 1867 Upload Form</title>
  10. </head>
  11.  
  12. <body>
  13. <center>
  14.     <hr>
  15.     <h2>
  16.         Upload your files here.
  17.     </h2>
  18.     <hr><br>
  19. </center>
  20. <form enctype="multipart/form-data" action="http://<%= Request.ServerVariables("SERVER_NAME") %>/scripts/cpshost.dll?PUBLISH?http://<%= Request.ServerVariables("SERVER_NAME") %>/scripts/repost.asp" method=post>
  21. File to process: <input name="my_file" type="file"><br>
  22. File to process: <input name="my_file" type="file"><br>
  23. File to process: <input name="my_file" type="file"><br>
  24. Destination URL: <input name="TargetURL" value="http://<%= Request.ServerVariables("SERVER_NAME") %>/users/<%= request.ServerVariables("LOGON_USER") %>"><br>
  25. <input type="submit" value="Upload">
  26. </form>
  27. </body>
  28.  
  29. </html>
  30. <% end if %>
  31.