Hola mi problema es que tengo este codigo:
 
<%
sub ListFolderContents(path,webpath)
 
dim fs, folder, file, item, url
 
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
 
 
on error resume next
'Despliega la informacion del Folder
 
Response.Write("<li><b>" & folder.Name & "</b> - " _
& folder.Files.Count & " Arch. ")
Response.Write("</li>" & vbCrLf)
 
Response.Write("<ul>" & vbCrLf)
 
'Muestra una lista de subfolders.
 
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
 
'Despliega una lista de archivos.
 
for each item in folder.Files
url = webpath&item.Name
filesize = round(item.Size/1024,2)
Response.Write("<li><a href=""" & url & """>" _
& item.Name & "</a> - " _
& filesize & " Kb </li>" & vbCrLf)
next
 
Response.Write("</ul>" & vbCrLf)
 
end sub
 
'Llamada de la Funcion:
 
ListFolderContents "C:\inetpub\wwwroot\SistemaUsuarios\carpetas\corre  oe","/SistemaUsuarios/carpetas/correoe/"
 
%>
 
 
Lo que necesito es que en la llamada de la funcion en vez de que correoe sea predeterminado sea un variable 
   
 



