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