<%@LANGUAGE="VBSCRIPT"%> <% Response.Charset = "iso-8859-1" %> Rosāngela Melo - Site Oficial

 

<% dim contador contador = 0 root = caminhoFisico set fso = server.CreateObject("Scripting.FileSystemObject") set pasta = fso.getFolder(root&"albuns") %> <% for each x in pasta.SubFolders contador = contador + 1 if cint(contador) <> "" or cint(contador) > 0 then if cint(contador) >=1 and cint(contador) =< 9 then ctd = "0"&replace(cint(contador),0,"") else ctd = contador end if end if %> <% next set pasta = nothing set fso = nothing %>
<%=ctd%>
<%=nomePasta(x.name)%>
VER FOTOS

 

© ROSANGELA MELO- SITE OFICIAL 2011 - TODOS OS DIREITOS SÃO RESERVADOS.