no funciona el codigo

[gazaposa]

buenas, a ver si me podian ayudar con este codigo.
Tengo el siguiente codigo para copiar unas imagenes a unas carpetas que voy creando.
Las carpetas las crea pero no me copia las imagenes:
el codigo es el siguiente:

<%

leebasedatos("SELECT * FROM imagenes")
if rs.eof then
response.Write("non hay registros")
else
CrearCarpeta("GALERIA")
while not rs.eof
CrearCarpeta("GALERIA/"&ucase(trim(rs.fields("localidad")))&"")
CrearCarpeta("GALERIA/"&ucase(trim(rs.fields("localidad")))&"/img")
CrearCarpeta("GALERIA/"&ucase(rs.fields("localidad"))&"/thumbs")
Set fso = CreateObject("Scripting.FileSystemObject")
if ExisteArchivo(server.MapPath("IMAGES/"&RS.FIELDS("NOMBRE"))) then
Set MiArchivo = fso.GetFile(server.MapPath("IMAGES/"&RS.FIELDS("NOMBRE")))
MiArchivo.Copy (Server.MapPath("GALERIA/"&ucase(trim(rs.fields("localidad")))&"/img/"&RS.FIELDS("NOMBRE")))
MiArchivo.Delete
end if
if ExisteArchivo(server.MapPath("thumbs/"&RS.FIELDS("NOMBRE"))) then
Set MiArchivo = fso.GetFile(server.MapPath("thumbs/"&RS.FIELDS("NOMBRE")))
MiArchivo.Copy (Server.MapPath("GALERIA/"&ucase(trim(rs.fields("localidad")))&"/thumbs/"&RS.FIELDS("NOMBRE")))
MiArchivo.Delete
end if
rs.movenext
wend
end if
cierrabasedatos
%>
muchisimas gracias

[Wasper]

Te has asegurado de que no se copia en otra parte?, te sale algun error?

PD: Te respondi de nuevo a tu peticion de ayuda por MP comentandote que si me interesaba tu propuesta... pero no me has contestado aun nada... ¿sigue en pie?

Saludos, Jose

[gazaposa]

lo siento no me he dado cuenta que me habias escrito
de momento sigue en pie pero me tienen que decir si se hace o no, ya te dire algo
si no me vas preguntando.
con respecto al codigo, no me da ningun error,
las carpetas se crean bien, pero nome copia las imagenes.
muchas gracias portodo
saludos