+ 1 i databasen når der klikkes på linket.

Groft skitseret:

SQL = "Select * From TABEL Where LINK_ID = LINK_ID"

SQL = "Update TABEL Set KLIK = " & rs("KLIK") + 1 & " Where LINK_ID = LINK_ID"

ja!
hvad skal jeg bruge af sider?
kan det ikke lade sige gøre at lave det på en side?

Dit link skal kadle en fil som tæller links op så du det kunne være du gemmer links i DB'en og så har en fil som hender linket fra DBen og tæller det et op...:

<a href="vislink.asp?id=3453">Billede siden</a>


Så din vislink.asp

<%
Set conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\denene.mdb"

id = Request.QueryString("id")
SQL = "select link from linktabel where id=" & id
Set rs=Conn.Execute(SQL)
linket = rs("link")
rs.Close
SQL = "update linktabel set hitCount = hitCount + 1 where id=" & id
Conn.Execute(SQL)
Conn.Close
Set Conn=nothing
Response.Redirect(linket)
%>

Altså en HIT Counter !!!!

Jeg regner med at du i din database også har dine link og de forskellige hits for hvert link !!

Det du gør er at lave en side som hedder HITS.ASP
<---start--->
<%

Dim cn, cnStr, sql, rs, strSQL

cnStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("DINDB.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open cnStr

Set rs = Cn.Execute("SELECT * FROM linkhits WHERE ID = " & Request.Querystring("id"))
       
        strUrl = rs("Url")
        strHits = rs("Hits")
   
   
    strSQL = "UPDATE linkhits
    strSQL = strSQL & "Hits = " & strHits+1 & ""
    strSQL = strSQL & " WHERE ID = " & Request.Querystring("id")
   
   
    Cn.Execute(strSQL)
   
   
    Response.Redirect strUrl

cn.Close
Set cn = Nothing
%>

det vi har lavet her er en side som via en "Request ID" går ind i og finder det linkID man har valgt og så lægger den 1 til dennes HITS derefter sender den en videre til den side/ det URL som man vil ind og kigge på !!!

det vi nu skal er at lave en side som går ind og viser alle link fra DB på vores side !!!!

det kunne gøres sådan her

<a href=hits.asp?id=" & rs("ID") & " target='_blank' onclick='refresh()'>" & strNavn & "</a>

med denne linje laver vi et link til HITS.asp siden og siger at den skal kigge på et bestemt ID og dette link kan vi kalde via strNavn !!!

DU SKAL HUSKE AT LAVE EN CONNICTING TIL DIN DB !!!

ligenu ville din DB til dette eks se sådan her ud:

DINDB.MDB
linkhits
ID = AUTO og KEY
Navn = TEKST (er navnet på det link du vil vise evt.  Eksperten)
Url = TEKST (er linket til siden med HTTP://  evt.  http://www.eksperten.dk/)
Hits = TAL (er her hvor vi lægger 1 til ved hvert klik på linket !!! husk at start med 0 i feltet !!!)

håber du blev klogere og ellers bare skriv !!!!

Thomas J.

ment som svar !!! :)

Heey Martin...
Længe siden.
Håber du nyder din ferie, hvis du har nogen...

Løsningen på dit problem:

denne side kalder du: goto.asp

<%   
   
    'Denne side sender videre til linket, og opdatere tælleren.   
       
    Set objConn = Server.CreateObject ("ADODB.Connection")
    Set objRec2 = Server.CreateObject ("ADODB.Recordset")
    strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db.mdb")

    objConn.Open strconnect
   
    ID = Request.QueryString("id")
   
    objRec2.Open "Tlinks", objConn, 0, 2, 2
   
    objRec2.Filter = "ID = " & ID
   
    objRec2("LinkHits") = objRec2("LinkHits") + 1
    objRec2.Update
    Response.Redirect(""& objRec2("Link") &"")

    objRec2.Close
    Set objRec2 = Nothing
    objConn.Close
    Set objConn = Nothing
%>

Så kalder du fx. linket: goto.asp?id=23
Dette id referere til dets placering i databasen.

Håber det er forståeligt...

oki her er mine filer

download.asp


<a href="download_redir.asp?id=<%=rs("id")%>">link tekst</a>


download_redir.asp

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/db1.mdb")
Conn.Open DSN

id = Request.QueryString("id")
SQL = "select link from download where id=" & id
Set rs=Conn.Execute(SQL)
linket = rs("fil_navn")
rs.Close
SQL = "update linktabel set hitCount = hitCount + 1 where id=" & id
Conn.Execute(SQL)
Conn.Close
Set Conn=nothing
Response.Redirect(/download/linket)
%>


tabel navn : Download
  -id ¤ giver sig selv
  -overskrift ¤ giver også sig selv
  -Tex ¤ en tekst om downloadet
  -fil_navn ¤ filens navn (alle de filer der kan downloades ligger i et biblotek der hedder download
  -hits ¤ har skal hitsene så komme

ellebaek

jo jeg nyder min ferie*gg*
hvad med dig?

kommer du på icq?

JENS.!!!!!

hjælp.!!

jeg har lavet som du skriver men den vil ikke.!

ved ikke om du kan huske min side, hvis du kan så er det under download


den driller sku.!


den vil ikke den ser sådan du pt.
<%

    'Denne side sender videre til linket, og opdatere tælleren.

    Set objConn = Server.CreateObject ("ADODB.Connection")
    Set objRec2 = Server.CreateObject ("ADODB.Recordset")
    strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../db/db1.mdb")

    objConn.Open strconnect

    ID = Request.QueryString("id")

    objRec2.Open "Tlinks", objConn, 0, 2, 2

    objRec2.Filter = "ID = " & ID

    objRec2("Hits") = objRec2("Hits") + 1
    objRec2.Update
    Response.Redirect(""& objRec2("fil_navn") &"")

    objRec2.Close
    Set objRec2 = Nothing
    objConn.Close
    Set objConn = Nothing
%>

Tlinks--> hvad er det?

Evt prøv den jeg har lavet virker altid for mig og er let at opsætte !!! ;)

det bliver i morgen.!

gnat

TLinks det er den tabel du har i din database...

I mit tilfælde hed den Tlinks.

<%

    'Denne side sender videre til linket, og opdatere tælleren.

    Set objConn = Server.CreateObject ("ADODB.Connection")
    Set objRec2 = Server.CreateObject ("ADODB.Recordset")
    strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../db/db1.mdb")

    objConn.Open strconnect

    ID = Request.QueryString("id")

    objRec2.Open "Download", objConn, 0, 2, 2

    objRec2.Filter = "ID = " & ID

    objRec2("Hits") = objRec2("Hits") + 1
    objRec2.Update
    Response.Redirect("download/"& objRec2("fil_navn") &"")

    objRec2.Close
    Set objRec2 = Nothing
    objConn.Close
    Set objConn = Nothing
%>


Prøv dette...?

kanon jens.!
den virker.!

Mange tak skal du have.!

Vi må lige snakkes ved en dag.!

det kan godt være der inden længe kommer et indlæg mere her inde,.!
der er en ting der stadig driller, men det har ikke noget med download at gøre.!


Tak skal du have.!

God sommer og god "arbejdslydst" på strandene*gg*

tak tak...

Vi skal også lige have snakket med hender Pernille, og få hende til at holde noget halløj, så vi kan se hendes lejlighed!

Husk nu at nyde resten af din ferie.. ;-)

Hvis du har problemer kan du også bare sende mig en mail...

Vi snakkes!