<% Option Explicit %> <% dim objFTP Set objFTP = Server.CreateObject("NIBLACK.ASPFTP") objFTP.lTransferType = 2 'ASCII objFTP.sServerName = "post.akdal.ru" objFTP.sUserID = "quantumart" objFTP.sPassword = "#qart1234" objFTP.bPassiveMode = True If objFTP.bConnect Then Response.Write("Connected") If objFTP.bGetFile("on_line.mdb", "c:\inetpub\wwwroot\on_line.mdb") Then Response.Write("OK") else Response.Write objFtp.sError end if else Response.Write objFtp.sError & "OBLOM" end if Set objFTP = Nothing %>