hello again
here is the full source code, i dont use ADO only FileSystemObject
hope that it will help t find the problem
thanks
<%
if isAdmin then
set fsObject = Server.CreateObject("Scripting.FileSystemObject")
p_drive = Request.querystring("p_drive")
if p_drive = "" then
%>
<H1>Choose a Drive</H1>
<% for each driveObj in fsObject.Drives
%>
<A HREF="importstart.asp?p_drive=<%Response.Write driveObj.DriveLetter%>">
<%=driveObj.driveLetter%>
</A><BR>
<% next
else
%>
<h1H1>Choose a Directory</h1H1>
<a href<A HREF="importstart.asp">Top Level</a></A><P>
<% set driveObj = fsObject.getDrive(p_drive)
p_folder = Request.querystring("p_folder")
if p_folder = "" then
set FolderObj = driveObj.RootFolder
else
set FolderObj = fsObject.getFolder(p_folder)
end if
%> <h3>Folders</h3>
<% for each subFolderObj in FolderObj.subFolders
p_subFolder = Server.URLEncode(subFolderObj.Path)
%>
<A HREF="importstart.asp?p_drive=<% & nbsp; & nbsp; Response.Write p_drive%>&p_folder=<%   ;   ; Response.Write p_subFolder%>">
<%=subFolderObj.path%>
</A><BR>
<% next
%> <h3>Files</h3>
<% for each fileObj in FolderObj.Files
p_file = fileObj.Name
p_full_path = Server.URLEncode(p_folder & "\" & p_file)
%> <A HREF="importfile.asp?p_full_path=<%=p_full_path%>">
<%=FileObj.Name%>
</A><BR>
<% next
set FolderObj = Nothing
set driveObj = Nothing
end if
set fsObject = Nothing
else
response.wResponse.Write "You do not have access to this page."
end if
%>
thanks