download.asp:
codice:
<%
Dim Path
'Percorso del database
Path="mdb-database/"
%>
<script language="JavaScript1.2">
{ 
function download(loc) {    

         window.open(loc,'Video','width=400,height=100');    

}
}
</script>
<%
Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"download.mdb")
Dim SQLDown,RECDown
SQLDown="select * from DOWNLOAD order by NOME"
Set RECDown=ConnDown.Execute(SQLDown)%>
<table width="400" border="0" cellspacing="0" cellpadding="3">
  <%
While Not RECDown.EOF
%>
  <tr> 
    <td width="279">&path=<%=path%>');"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=RECDown("NOME")%></font></td>
    <td width="121"> 
      <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=RECDown("HIT")%></font></div>
    </td>
  </tr>
  <%
RECDown.MoveNext
WEnd
RECDown.Close
ConnDown.Close
Set RECDown = Nothing
Set ConnDown = Nothing
%>
popdowm.asp:
codice:
<%
Dim CODown,path
CODown = Request.Querystring("cod")
path = Request.Querystring("path")

Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"download.mdb")
Dim SQLDown,RECDown,cont
SQLDown="select * from DOWNLOAD where COD="&CODown
Set RECDown=ConnDown.Execute(SQLDown)
cont=RECDown("HIT")
cont=cont+1
SQLDown="update DOWNLOAD set HIT="&cont&" where COD="&CODown
ConnDown.Execute(SQLDown)
%>
<html>
<head>
<title>Download</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Refresh" content="5; url=<%=RECDown("FILE")%>">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="400" border="0" cellspacing="0" cellpadding="3" height="100">
  <tr> 
    <td>
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">DOWNLOAD</font></div>
    </td>
  </tr>
  <tr> 
    <td>
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Il 
        download inizier&agrave; tra pochi secondi, se hai problemi

        e non inizia ">clicca qui</font></div>
    </td>
  </tr>
  <%
RECDown.Close
ConnDown.Close
Set RECDown=Nothing
Set ConnDown=Nothing
%>
</body>
</html>
ti manca solo il dbase.