PK

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/rename.asp" -->

<%Dim fso, f, f1, fc, s, fn(30),cant

rs.open "SELECT * FROM Articulos ORDER BY idarticulo",conn,2,2
rs.movefirst

do until rs.EOF

    s=0
	cant = -1

	Set fso = CreateObject("Scripting.FileSystemObject")
	if fso.FolderExists(imagedir & "\Articulos\thumbs\" & rs("idArticulo") & "\") then
		Set f = fso.GetFolder(imagedir & "\Articulos\thumbs\" & rs("idArticulo") & "\")
		Set fc = f.Files
		 For Each f1 in fc
			fn(s)=f1.name
			s=s+1
		 next
		 cant=s-1
	end if
	
	for a = 0 to cant
		if rename(fn(a)) <> fn(a) then response.write(rs("art_nombre") & "-" & fn(a) & " X " & rename(fn(a)) & "<br>")
	    fso.MoveFile imagedir & "\Articulos\thumbs\" & rs("idArticulo") & "\" & fn(a), imagedir & "\Articulos\thumbs\" & rs("idArticulo") & "\" & rename(fn(a))
		fso.MoveFile imagedir & "\Articulos\fotos\" & rs("idArticulo") & "\" & fn(a), imagedir & "\Articulos\fotos\" & rs("idArticulo") & "\" & rename(fn(a))
	next
	
	if rs("art_foto") <> "" AND not isnull(rs("art_foto")) then rs("art_foto") = rename(rs("art_foto"))
	rs.update

	rs.movenext
loop
rs.close%>
				
<!--#include file="includes/closeconn.asp" -->

PK 99