<%@ Language=VBScript %> <% dim g3(9000) Set ftp = server.CreateObject("basp21.FTP") rc = ftp.Connect("hostname", "userid", "password") g = ftp.GetDir("../log/") i = 0 for each g2 in g g3(i) = g2 Response.Write(i & ":" & g3(i) & "
") i = i + 1 next %>