<% Option Explicit

' Written by Daryl Maunder Midnight Oil Computing Pty Ltd

Dim fso
dim MyFile

response.write Request.Querystring("Filename")

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.Getfile(Application("ArchiveDir") & Request.Querystring("Filename"))

MyFile.Delete

set myFile=nothing
set fso=nothing

Response.Redirect "default.asp"

%>