OK i've just knocked this up. It needs polishing up a bit.
database dload.mdb has a table called table1 with two fields in it
Filename and count
count is Number data type.
<%@ Language=VBScript %>
<!--
Written by Mark Sreeves
-->
<BODY>
<%
dim Fname
dim conn
dim rst
Fname = request("Filename")
if Fname <> "" then
'open the connection to the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\dload.mdb")
strSQL = "Update Table1 set count = count+1 where filename='" & Fname & "';"
conn.execute strsql
response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
response.write "window.location='" & Fname & "';" & vbcrlf
response.write "</SCRIPT>"
end if
%>
<form name="frm1"action="download.asp">
<A HREF="javascript:document.frm1.submit()">Download Myfile.zip</A>
<input name="Filename" type="hidden" value="Myfile.zip">
</form>
</BODY>
</HTML>