Tælle antal downloads mv

2 sek.. har sådan en source liggende finder den lige

http://www.activeserverpages.dk/aspdigital/studies/clickcount.asp

hej -sofus-
lyder glimrende, jeg venter
mvh
alj

--> keysersoze
har lige kigget, men det er ikke helt det jeg spørg om. Min side er denne http://alanexcel.dk/filer_download.asp of som sagt lavet i frontpage mv.

of = og
sorry
alj

her noget i den stil:

liste.asp
---------------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
strSQL = \"select * from filer ORDER BY ID\"

set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
%>
<a href=\"counter.asp?id=<%= rs(\"id\") %>\">  <%= rs(\"filnavn\") %></a>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>


counter.asp
-------------------------
<%
Set conn = Server.CreateObject(\"ADODB.Connection\")
connString = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
conn.open connString
Set rs =  Server.CreateObject(\"ADODB.Recordset\")
sql = \"SELECT * FROM filer WHERE Id=\" & Request.QueryString(\"Id\")
rs.open sql, conn, 1, 2
rs(\"count\") = rs(\"count\") + 1
rs.update
Response.Redirect rs(\"Url\")
%>


der er dog ikke ip logning. men det virker

ØHHHHHHHHH, hva\' gør jeg nu, min kode er sådan her:
    <!--webbot bot=\"DatabaseRegionStart\" s-columnnames=\"klik,ID,link,Hyperlink_Til_Fil\" s-columntypes=\"202,5,202,203\" s-dataconnection=\"asp_database\" b-tableformat=\"TRUE\" b-menuformat=\"FALSE\" s-menuchoice s-menuvalue b-tableborder=\"TRUE\" b-tableexpand=\"TRUE\" b-tableheader=\"TRUE\" b-listlabels=\"TRUE\" b-listseparator=\"TRUE\" i-listformat=\"0\" b-makeform=\"TRUE\" s-recordsource=\"Filer til db\" s-displaycolumns=\"klik,ID,Hyperlink_Til_Fil\" s-criteria s-order s-sql=\"SELECT * FROM &quot;Filer til db&quot;\" b-procedure=\"FALSE\" clientside suggestedext=\"asp\" s-defaultfields s-norecordsfound=\"Der er ikke blevet returneret nogen poster.\" i-maxrecords=\"500\" i-groupsize=\"0\" botid=\"0\" u-dblib=\"_fpclass/fpdblib.inc\" u-dbrgn1=\"_fpclass/fpdbrgn1.inc\" u-dbrgn2=\"_fpclass/fpdbrgn2.inc\" tag=\"TBODY\" preview=\"&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Dette er begyndelsen af området med databaseresultater. Denne side kan kun vises korrekt, hvis den hentes fra en Web-server med en Web-browser. Det aktuelle Web-sted er gemt på din harddisk eller på det lokale netværk.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;\" startspan --><!--#include file=\"_fpclass/fpdblib.inc\"-->
<% if 0 then %>
<SCRIPT Language=\"JavaScript\">
document.write(\"<div style=\'background: yellow; color: black;\'>Komponenten Databaseresultater på denne side kan ikke vise databaseindhold. Siden skal have et filnavn, der slutter med \'.asp\', og Webstedet skal findes på en server, der understøtter Active Server Pages.</div>\");
</SCRIPT>
<% end if %>
<%
fp_sQry=\"SELECT * FROM \"\"Filer til db\"\"\"
fp_sDefault=\"\"
fp_sNoRecords=\"<tr><td colspan=3 align=left width=\"\"100%\"\">Der er ikke blevet returneret nogen poster.</td></tr>\"
fp_sDataConn=\"asp_database\"
fp_iMaxRecords=500
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=\"\"
fp_sMenuValue=\"\"
fp_iDisplayCols=3
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file=\"_fpclass/fpdbrgn1.inc\"-->
<!--webbot bot=\"DatabaseRegionStart\" endspan i-checksum=\"13458\" --><tr>
      <td>
      <!--webbot bot=\"DatabaseResultColumn\" s-columnnames=\"klik,ID,link,Hyperlink_Til_Fil\" s-column=\"klik\" b-tableformat=\"TRUE\" b-hashtml=\"FALSE\" b-makelink=\"FALSE\" clientside b-MenuFormat preview=\"&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;klik&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;\" startspan --><%=FP_FieldVal(fp_rs,\"klik\")%><!--webbot bot=\"DatabaseResultColumn\" endspan i-checksum=\"7172\" --></td>
      <td>
      <!--webbot bot=\"DatabaseResultColumn\" s-columnnames=\"klik,ID,link,Hyperlink_Til_Fil\" s-column=\"ID\" b-tableformat=\"TRUE\" b-hashtml=\"FALSE\" b-makelink=\"FALSE\" clientside b-MenuFormat preview=\"&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;ID&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;\" startspan --><%=FP_FieldVal(fp_rs,\"ID\")%><!--webbot bot=\"DatabaseResultColumn\" endspan i-checksum=\"62813\" --></td>
      <td>
      <!--webbot bot=\"DatabaseResultColumn\" s-columnnames=\"klik,ID,link,Hyperlink_Til_Fil\" s-column=\"Hyperlink_Til_Fil\" b-tableformat=\"TRUE\" b-hashtml=\"FALSE\" b-makelink=\"TRUE\" clientside b-MenuFormat preview=\"&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;&lt;a href=&quot;.&quot;&gt;Hyperlink_Til_Fil&lt;/a&gt;&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;\" startspan --><%=\"<a href=\"\"\" & FP_FieldLink(fp_rs,\"Hyperlink_Til_Fil\") & \"\"\">\" & FP_FieldVal(fp_rs,\"Hyperlink_Til_Fil\") & \"</a>\"%><!--webbot bot=\"DatabaseResultColumn\" endspan i-checksum=\"13143\" --></td>
    </tr>
    <!--webbot bot=\"DatabaseRegionEnd\" b-tableformat=\"TRUE\" b-menuformat=\"FALSE\" u-dbrgn2=\"_fpclass/fpdbrgn2.inc\" i-groupsize=\"0\" clientside tag=\"TBODY\" preview=\"&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Dette er slutningen af området med databaseresultater.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;\" startspan --><!--#include file=\"_fpclass/fpdbrgn2.inc\"-->
<!--webbot bot=\"DatabaseRegionEnd\" endspan i-checksum=\"62730\" --></tbody>
</table>\'\'<%
PS: autogenereret af Frontpage 2000.
mvh
alj

ehhh.. tror ikke jeg taler frontpages sprog

har du alle de filer ligende i en database ?

det samme her - frontpage egner sig altså ikke rigtig til asp :o/

fronpage er udemærket til asp, hvis man selv skriver koderne

hvad for nogle koloner har du i din database ?

Enig, det ser mystisk ud, men.........

I databasen er der pt. flg. felter:
1. klik (det er her værdien skal tælles een op ved download)
2. ID (filnummeret)
3. Hyperlink_til_fil (hyperlinke\'t til filen
alj

så her har du det hele:


liste.asp
----------------------------

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
strSQL = \"select * from filer ORDER BY ID\"

set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
%>

<table border=\"1\" width=\"100%\">

  <tr>
    <td width=\"15%\"><%= rs(\"klik\") %></td>
    <td width=\"15%\"><%= rs(\"id\") %></td>
    <td width=\"70%\"><a href=\"counter.asp?id=<%= rs(\"id\") %>\"><%= rs(\"Hyperlink_til_fil\") %></a></td>
  </tr>
</table>


counter.asp
-------------------------
<%
Set conn = Server.CreateObject(\"ADODB.Connection\")
connString = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
conn.open connString
Set rs =  Server.CreateObject(\"ADODB.Recordset\")
sql = \"SELECT * FROM filer WHERE Id=\" & Request.QueryString(\"Id\")
rs.open sql, conn, 1, 2
rs(\"klik\") = rs(\"klik\") + 1
rs.update
Response.Redirect rs(\"Hyperlink_til_fil\")
%>

--------------------------------------------

-->-sofus-
koden ser meget pæn ud, men efter overførsel til siden i frontpage og overførsel til nettet kan siden slet ikke vises. Hvorfor mon ?
mvh
alj

tag og blok det ind jeg har skrevet og sæt det ind i notepad

og gem det som asp fil

det kan være mange grunde til at det ikke virker:

1: Frontpage er ekstremt dårligt til at arbejde med asp
2: du har overset nogle ting i pasteingen
...

hvad kommer der evt af fejl?

tager du directe og paste en code fra experten.dk til fp2k laver den en masse ekstra ting

Iht telefonsamtale med Microsoft dd må jeg desværre indrømme at Microsoft ikke har fundet anledning til at inkludere mit \"problem\" i Frontpage, så jeg er nød til at lave det manuelt, som de hr\'r også antyder.
Da -sofus- har været den mest aktive tilfalder alle point ham.
mvh og tak
alj

(: tak for det