error al generar miles de directorios

[dieguicho]

hola a todos.
les cuento de que se trata
tengo dos tablas
1) fiestas... (100 registros)
2) rubros (1000 registros)

lo que quiero hacer es..
recorrer todos los registros de la base fiestasy crear un directorio con su nombre
y luego dentro de este directorio creado recorrer tooda la tabla rubros y generar nuevos directorios dentro de este con los nombres de los rubros.
tengo un codigo ya hecho pero no logro hacerlo funcionar correctamente, despues de crear el primer directorio de fiestas y crearle adentro todos los directorios de rubros me salta el error de Path not found (puede ser que la segunda ejecucion, osea la de la tabla rubros se este apurando y este intentando crear directorios donde aun no estan creados los directorios de fiestas?)

les voy a dejar el codigo por si alguien tiene ganas de verlo, perdonen lo extenso.
cualquier manita me viene bien para mejorar esto, muchas gracias!

Código:

function limpiarNombres(string)
	Output = lcase(string)
	output = replace(output," ", "_")
	limpiarNombres = output
end function


set fiestas = Server.CreateObject("ADODB.Recordset")
fiestas.ActiveConnection = MM_web_STRING
fiestas.Source = "SELECT * FROM fiestas"
fiestas.CursorType = 1
fiestas.CursorLocation = 2
fiestas.LockType = 3
fiestas.Open()
	do while Not (fiestas.BOF) AND Not (fiestas.EOF)
	fiesta = limpiarNombres(fiestas("titulo"))
	
		set fso=Server.CreateObject("Scripting.FileSystemObject")
		set crearDirectorio=fso.GetFolder(Server.MapPath("/fiestas/_fiesta"))
		nuevoDirectorio = Server.MapPath("\fiestas\" &  fiesta)
			if fso.FolderExists(nuevoDirectorio) then
				fso.DeleteFolder(nuevoDirectorio)
			else	
				crearDirectorio.Copy nuevoDirectorio,false
			end if
		set crearDirectorio=nothing
		set fso=nothing
	
	
		set rubros = Server.CreateObject("ADODB.Recordset")
		rubros.ActiveConnection = MM_web_STRING
		rubros.Source = "SELECT * FROM rubros"
		rubros.CursorType = 1
		rubros.CursorLocation = 2
		rubros.LockType = 3
		rubros.Open()
			do while Not (rubros.BOF) AND Not (rubros.EOF)
			rubro = limpiarNombres(rubros("titulo"))


				set fso=Server.CreateObject("Scripting.FileSystemObject")
				set crearDirectorio=fso.GetFolder(Server.MapPath("/fiestas/_rubro"))
				nuevoDirectorio = Server.MapPath("\fiestas\" & fiesta & "\" &  rubro)
					if fso.FolderExists(nuevoDirectorio) then
						fso.DeleteFolder(nuevoDirectorio)
					else	
						crearDirectorio.Copy nuevoDirectorio,false
					end if
				set crearDirectorio=nothing
				set fso=nothing
		
			
			rubros.movenext()
			loop
		rubros.close()
				
	fiestas.movenext()
	loop
fiestas.close()

[El_Metallick]

por lo que veo tienes el loop para crear la carpeta de los rubros dentro del loop de fiestas... creo que ese es el error prueba haciendo primero el loop de las fiestas y luego el otro... saludos

[AlZuwaga]

no revisé el códgo pero podrías, en vez de crear los directorios, momentaneamente "jugar" con responseS.writeS hasta que llegues a la estructura lógica deseada. Luego reemplazás esos res.writes por la creación de las carpetas y debería funcionar (salvo por algún posible error de timeout...)

[dieguicho]

si, eso hice y funcionaba perfecto.
pero cuando cambio a generar directorios me pasa eso
no tengo plena seguridad pero me parece que el loop de los rubros se esta apurando e intenta crear directorios donde aun no puede.
como seria la ejecucion del codigo? hay algun comando para especificar que.. "cuando termines esto, hace esto"