ASP - Controlar descargas

Hola.
Quisiera saber como puedo controlar si un descarga desde mi página Web ha terminado con éxito. Yo guardo un informe de cada descarga en una tabla, quisiera que este solo se hiciera al tener éxito la descarga.
Un saludo y gracias

Este es el texto de mi página:

<%
' Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' abrimos la conexion
sentencia = "SELECT f.nombre, f.tamano, f.tipo, f.datos, f.iddescarga, f.protegido FROM ficheros AS f LEFT JOIN accdescarga AS ad ON f.iddescarga = ad.iddescarga WHERE f.idfichero = " & ID
If Session("USER") <> "admin" Then sentencia = sentencia & " AND (f.protegido = 0 OR (f.protegido = 1 AND ad.limite > 0 AND ad.idusuario = " & Session("USERID") & "))"

RS.Open sentencia, Application("CON"), 0, 4
If Not RS.Eof Then
Response.AddHeader "Content-Disposition","inline;filename=""" & RS("nombre") & """"
Response.ContentType = RS("tipo")
Response.BinaryWrite RS("datos")
If Session("USER") <> "admin" And RS("protegido") = 1 Then
ejecutar("UPDATE accdescarga SET limite = (limite - 1) WHERE idusuario = " & Session("USERID") & " AND iddescarga = " & RS("iddescarga"))
End If

ejecutar("INSERT INTO registros (idfichero, idusuario, fecha, ip, sistema, navegador, resolucion)" &_
" VALUES (" & ID & ", " & Session("USERID") & ", NOW(), '" & Request.ServerVariables("REMOTE_ADDR") & "'" &_
", '" & sistema & "', '" & navegador & "', '" & resolucion & "')")
Else
%>
<!-- Muestra un mensage al usuario -->
<SCRIPT >
alert("Ha superado su límite de descarga. Póngase en contacto con C.T.I. C@narias.");
</SCRIPT>
<!-- Sierra la ventana principal de descarga "descargar.asp" -->
<SCRIPT >
parent.close()
</SCRIPT>
<%
Response.End()
End If
RS.Close
Set RS = nothing
%>