¿Cómo puedo meter variable un fichero en la orden Server.CreateObject?

[haga41]

Saludos a todos,

Estoy intentando hacer la zona de administración de una web y ando luchadno un poco el xelupload y ahora con el Server.CreateObject para eliminar los ficheros. El caso es que se como hacer que me elimine los ficheros dandole la ruta exacta pero claro quiero hacerlo dinámico para que sea útil. El código que tengo es este:

<% sql = "SELECT * from PORTADAS where idportada =" & request("id")
tabla.open sql,conexion

dim fichero
fichero = tabla.fields("imagen")
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists("C:\Inetpub\wwwroot\MiWeb\imagenes\f oto.jpg") then
fs.DeleteFile("C:\Inetpub\wwwroot\MiWeb\imagenes\f oto.jpg") end if
set fs=nothing
%>

Lo que quiero es que en vez poner foto.jpg pueda meter la variable fichero en su lugar para que sea dinámico en función de la id que venga de la página anterior pero he intentado concatenarlo y no me acaba de ir. Con el xelupload me suele dar a veces el error 154, supongo que será una cuestión de permisos. Si me podéis ayudar os lo agradecería mucho.

[Shiryu_Libra]

Carpeta = server.mappath("./imagenes/")
dim fichero
fichero = tabla.fields("imagen")
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists(carpeta & fichero) then
fs.DeleteFile(carpeta & fichero) end if
set fs=nothing

[haga41]

Gracias por la ayuda Shiryu_Libra, lo he adaptado como me dices tú pero he debido hacer algo mal porque pone el siguiente error:

Error de compilación de Microsoft VBScript (0x800A0412)
Debe ser la primera instrucción de la línea
/Miweb/Eliminarportada.asp, línea 28, columna 33
fs.DeleteFile(carpeta & fichero) end if
--------------------------------^

Este es el código:

Carpeta = server.mappath("C:/Inetpub/wwwroot/MiWeb/imagenes/")
dim fichero
fichero = tabla.fields("imagen")
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists(carpeta & fichero) then
fs.DeleteFile(carpeta & fichero) end if
set fs=nothing

[Shiryu_Libra]

esto no va asi

Carpeta = server.mappath("C:/Inetpub/wwwroot/MiWeb/imagenes/")

por eso estamos utilizando la carpeta virtual
jamas encontrara la direccion, ya que seria

C:/Inetpub/wwwroot/MiWeb/C:/Inetpub/wwwroot/MiWeb/imagenes/

asi debe ser

Carpeta = server.mappath(".//imagenes/")

le estamos indicando que donde sea tu sitio web, de ahi parta y busque la carpeta imagenes

ahora el error que te aparece

Debe ser la primera instrucción de la línea
/Miweb/Eliminarportada.asp, línea 28, columna 33
fs.DeleteFile(carpeta & fichero) end if

es por que tienes el END IF en linea con otra instruccion, por eso el error

Carpeta = server.mappath("C:/Inetpub/wwwroot/MiWeb/imagenes/")
dim fichero
fichero = tabla.fields("imagen")
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
if fs.FileExists(carpeta & fichero) then
fs.DeleteFile(carpeta & fichero)
end if
set fs=nothing

[haga41]

Muchas gracias. Después de hacerle algunos cambios ya he conseguido que me funcione.