ciertas variables tengo que generar un listado de mis archivos en las carpetas
Código:
dim PathFTP1, PathFTP2, PathFTP3 dim urlFTP1, urlFTP2, urlFTP3 dim Subido PathFTP1 = "c:\inetpub\wwwroot\material_distribuidores\NotasTecnicas" PathFTP2 = "c:\inetpub\wwwroot\material_distribuidores\NotasOperativas" PathFTP3 = "c:\inetpub\wwwroot\material_distribuidores\ReplicacionY_SQL" urlFTP1 = "/material_distribuidores/NotasTecnicas/" urlFTP2 = "/material_distribuidores/NotasOperativas/" urlFTP3 = "/material_distribuidores/ReplicacionY_SQL/"
aqui creo el objeto
Código:
Dim fso, folderUsuario, ArchivosUsuario, respuesta Set fso = CreateObject("Scripting.FileSystemObject")
Código:
el detalle fue que yo desde una pag inicial mando desplegar con divs mis diferentes paginas de la sig formaFunction LeerFolder(PathFTP, urlFTP) Dim tmpArchivos, file, Contador, Color dim urlfile Set folderUsuario = fso.GetFolder(PathFTP) Set ArchivosUsuario = FolderUsuario.files tmpArchivos = "" Contador = 1 For Each file in ArchivosUsuario If Contador mod 2 = 0 then '' el color del fondo Color = "#E1E1E1" else Color = "#D1D1D1" end if 'urlfile = urlFTP & replace(server.urlencode(File.name), "+", "%20") urlfile = urlFTP & File.name tmpArchivos = tmpArchivos & " </tr>" tmpArchivos = tmpArchivos & " <tr bgcolor=""" & Color & """>" tmpArchivos = tmpArchivos & " <td><a href=""" & urlfile & """><b>" & HTMLEscape(File.name) & "</a></b></td>" tmpArchivos = tmpArchivos & " <td>" & File.datecreated & "</td>" tmpArchivos = tmpArchivos & " <td align=right>" & Formatnumber(File.Size / 1048576, 2) & " MB</td>" tmpArchivos = tmpArchivos & " </tr>" Contador = Contador + 1 next if tmpArchivos = "" then tmpArchivos = "<tr><td colspan=4 align=center><b><br>Carpeta vacia<br><br></b></td></tr>" end if leerfolder = tmpArchivos end function
<div id="contentb1" style=" display: none;"><!-- #include file = "basnegocios.asp"--></div>
<div id="contentb2" style=" display: none;"><!-- #include file = "puntoventa.asp"--></div>
y lo que hace es que como que se queda con el fso anterior y me muestra lo mismo en todos mis divs aunque en cada pagina.asp sean distintas las condiciones
como puedo cambiar o poner en blanco esas variables? o no se que es loque este pasando =S


