<%

  rem *************************************************************************
  rem *
  rem * This is certainly not the way I would implement an "industrial strength"
  rem *    FTP system. I would probably create a job queue that offloads the
  rem *    processing onto another system besides IIS with IIS simply serving as
  rem *    the gateway to the interface but that is "for another day".
  rem *
  rem * Session timeout's become an issue for files that take longer to transfer than
  rem *   the session timeout will allow. I suspect that the file transfer will continue
  rem *   even after the session times out but I have not tested this.
  rem *
  rem * ASPInet.FTP has two methods:
  rem *   FTPGetFile(strHostName, strUserName, strPassword,
  rem *              strRemoteFileName, strLocalFileName, bolOverwrite)
  rem *   FTPPutFile(strHostName, strUserName, strPassword,
  rem *              strRemoteFileName, strLocalFileName)
  rem *
  rem * The return value is a boolean indicating success or failure.
  rem *
  rem *************************************************************************

  FTP_TRANSFER_TYPE_ASCII = 1
  FTP_TRANSFER_TYPE_BINARY = 2


  Set FtpConn = Server.CreateObject("AspInet.FTP")


  rem *************************************************************************
  rem *
  rem *  GET File Test
  rem *
  rem *************************************************************************
  if FtpConn.FTPGetFile("ftp.microsoft.com", "anonymous", "user@hostname.net", _
      "/disclaimer.txt", "d:\inetpub\wwwroot\disclaim.new", true, FTP_TRANSFER_TYPE_BINARY) then
     Response.Write "<p>FTP download Success...<br>"
  else
    Response.Write "<p>FTP download Failed...<br>"
    Response.Write "Last Error was: " & FtpConn.LastError
  end if


  rem *************************************************************************
  rem *
  rem *  PUT File Test
  rem *
  rem *************************************************************************
  rem if FtpConn.FTPPutFile("localhost", "anonymous", "user@hostname.net", "command.com", "c:\command.com", FTP_TRANSFER_TYPE_BINARY) then
  rem   Response.Write "<p>FTP upload Success...<br>"
  rem else
  rem   Response.Write "<p>FTP upload Failed...<br>"
  rem end if
%>