Problema con el cambio de nombre a un archivo

[gracipr]

Hola a todos, tengo un pekeñito problema, tengo un programa en asp, en el cual se pueden subir imagenes, cada imagen al subir se guarda con un numero. si un usuario decide borrar una imagen ejemplo, la numero dos, las siguiente pasaria a llamarse dos en vez de tres como estaria actualmente. eso lo ace el problema es cuando ay mas de una imagen a continuacion es decir la 4 pasaria a 3 y la 5 a 4. os dejo mi codigo a ver si me podeis echar una manito.

<%

if Request.QueryString("a") <> "undefined" then
narchivo = Request.QueryString("a")
else
response.redirect("index.asp")
End if

if Request.QueryString("num") <> "undefined" then
idreg = Request.QueryString("num")
else
response.redirect("index.asp")
End if
carpeta = "dbc/A_D/cal/html/ARCHIVOS/obras"
cad = split(narchivo,".")
numeAnt = cad(0) + 1
numeNew = cad(0)
NombreAnterior = numeAnt&".jpg"
NombreNuevo = numeNew&".jpg"
archivo = "/"& carpeta &"/"& idreg &"/"& narchivo
if archivo <> "" then
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set Fich = FSO.Getfile (Server.MapPath(archivo))
Fich.Delete
End if

Set FSO2 = Server.CreateObject("Scripting.FileSystemObject")

if FSO2.FileExists(Server.MapPath("/"& carpeta &"/"& idreg &"/" & NombreAnterior)) = True then
Set Fich2 = FSO2.GetFile(Server.MapPath("/"& carpeta &"/"& idreg &"/" & NombreAnterior))
Call Fich2.Copy(Server.MapPath("/"& carpeta &"/"& idreg &"/"& NombreNuevo))
Call Fich2.Delete()
End if

Set Fich2 = Nothing
Set FSO2 = Nothing

' fecha = Cstr(now())
' ip = Request.servervariables("remote_host")
'
' registro= request.serverVariables("APPL_PHYSICAL_PATH") & "websol/logs/borrado_imagenes.txt"
'
' set confile = createObject("scripting.filesystemobject")
'
' set fich2 = confile.OpenTextFile (registro,8,true)
' fich2.WriteLine " " +fecha+ " " +ip+ " " + archivo + " " + idreg
' 'fich.close

pagina = "imagenes_formobras.asp?num="&idreg
Response.redirect(pagina)
%>