Hits...

jeg ville gerne vide hvordan man målte antal downloads... jeg skl måle antal klik på Download Now linket i denne kode:

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data/script.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM messages WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
    rs.Open strSQL, myConn, 1, 3
    if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er ingen indlæg i databasen, men skynd dig og skriv et som den første ;-)</font>\"
else
%>

<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" height=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\" height=\"1%\" bgcolor=\"#FF0000\"><b><%=RS(\"Script\")%></b></td>
</center>
<td width=\"50%\" height=\"1%\" bgcolor=\"#FF0000\"><p align=\"right\"><a href=\"<%=RS(\"url\")%>\">Download&nbsp;HER</a></td>
</tr>
<center>
<tr>
<td width=\"100%\" colspan=\"2\" valign=\"top\"><%=RS(\"message\")%></td>
</tr>
<tr>
<td width=\"50%\" height=\"1\" bgcolor=\"#FF0000\"><%
If rs(\"Demo\") = \"http://\" then %>

<% Else %><a href=\"<%=RS(\"Demo\")%>\" target=\"_blank\">Demo HER</td><% end if %>
<td width=\"50%\" height=\"1\" bgcolor=\"#FF0000\"><p align=\"right\">Af:&nbsp;<%
If rs(\"email\") = \"ingen\" then %>

<% Else %><a href=\"mailto:<%=RS(\"email\")%>\"><% end if %><%=RS(\"name\")%></td>
</tr>
</table>
</div>
<br><br>

<% end if %>
<%
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        end if
%>