apagar arquivo servidor

Galera,preciso excluir um arquivo salvo no servidor...tenho o código abaixo mas não esta funcionando. Não dá mensagem de erro e também não exclui o arquivo...tem algo de errado ai<%...Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSourceset arquivo=conn.execute("select caminho from Normas where id="&request.querystring("id")&"")Function DeletarArquivo(arquivo) Dim fsSet fs = Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists("C:\pasta\"&Arquivo) thenfs.DeleteFile("C:\pasta\"&Arquivo) end if set fs = nothing End Function...%>