cancellare file dal server

[azocomposto]

Ciao, usando questo script, ma mi restituisce l'errore 500.100 alla riga 9. Visualizza perfettamente il contenuto della cartella, ma nel momento di eliminare il file selezionato, non mi visualizza la pagina.

<%
page = request.serverVariables("PATH_INFO")
fileToDelete = request.queryString("fileToDelete")
basePath = "/prove/"
response.write "File presenti nella cartella " & basePath & "<br />" & vbCrLf
set fso = server.createObject("scripting.fileSystemObject")
if len(fileToDelete) > 0 then
if fso.fileExists(server.mapPath(basePath & fileToDelete)) then
fso.deleteFile(server.mapPath(basePath & fileToDelete))
end if
end if
set folder = fso.getFolder(server.mapPath(basePath))
set files = folder.files
response.write "<ul>" & vbCrLf
for each file in files
response.write "<li>" & file.name & " - <a href=""" & page & "?fileToDelete=" & file.name & """>Elimina</a></li>" & vbCrLf
next
response.write "</ul>" & vbCrLf
set files = nothing
set folder = nothing
set fso = nothing
%>

Riuscite a farlo funzionare?

ciao grazie

 

[Maxiz]

<%
page = request.serverVariables("PATH_INFO")
fileToDelete = request.queryString("fileToDelete")
basePath = server.mappath("./")
response.write "File presenti nella cartella " & basePath & "<br />" & vbCrLf
set fso = server.createObject("scripting.fileSystemObject")
if len(fileToDelete) > 0 then
if fso.fileExists(server.mapPath(fileToDelete)) then
fso.deleteFile(server.mapPath(fileToDelete))
end if
end if
set folder = fso.getFolder(basePath)
set files = folder.files
response.write "<ul>" & vbCrLf
for each file in files
response.write "<li>" & file.name & " - <a href=""" & page & "?fileToDelete=" & file.name & """>Elimina</a></li>" & vbCrLf
next
response.write "</ul>" & vbCrLf
set files = nothing
set folder = nothing
set fso = nothing
%>