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()