bueno pues tengo esta rutina en diferentes paginas ya que dependiendo
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:
Function 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
el detalle fue que yo desde una pag inicial mando desplegar con divs mis diferentes paginas de la sig forma
<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
ayuda!!