28/10/2003, 19:50
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| No condiciones la función, de todos modos no se ejecuta hasta que la invoques...
Function borra(direccion, registro)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile(Server.MapPath(direccion) & registro)
Set FSO = Nothing
borra= true
End Function
if (rstnoticia("imagen") <> " ") Then
Dim registro
Dim direccion
direccion = "..\fotos\"
registro = (rstnoticia.Fields.Item("imatge").Value)
se_elimino= borra(direccion, registro)
Else
End If
ok, entonces una función te regresa un valor cierto?
Por qué no una sub?? Si necesitas la función, recuerda que la invocas con una variable en la cual vas a almacenar el valor regresado por dicha función
Si no te funciona, a lo mejor puede ser por el path, imprímelo antes de llamar a la función y ves que te trae...
Una cosa más, ve tu formulario, tengo un poco de prisa, pero asegúrate que esté llegando la variable correctamente...
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
Última edición por u_goldman; 28/10/2003 a las 19:53 |