haz procedimiento separados
sube tus imagenes, haces tu procedimietno normal; una ves que finaliza guarda el nombre de ese archivo en una variable temporal,
seguido de esto realiza una consulta para que obtengas el idnoticia que relacionaras con esa imagen
por ultimo, toma el nombre de la imagen(que se encuentra en la variable) y mediante FSO verifica que exista, algo similar a esto:
Cita: If (fs.FileExists("imagen.jpg"))=true Then
Response.Write("existe")
funcion copia("imagen.jpg",variable&"imagen.jpg")
Else
Response.Write("No existe")
End If
ahora en la funcion copia(nombre), tendriamos algo similar a esto:
Cita: <%
function(original,nuevo)
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject ")
'realizamos la copia del archivo
fs.CopyFile server.mappath(original),server.mappath(nuevo)
'una ves lista la copia, borramos el archivo original
fs.delete server.mappath(original)
set fs=nothing
end function
%>
imagino que con eso seria suficiente
...
no andare tomado de mas....