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