%>
<script language="javascript">
Function FSOdel(fileName)
dim fso,f
set fso = server.CreateObject( "scripting.filesystemobject ")
f=server.MapPath(&action&)
if fso.FileExists(f) then
fso.DeleteFile f,true
end if
set f = nothing
set fso = nothing
End Function
</script>